h30135
s 00000/00000/00057
d D 1.2 83/03/31 12:45:19 mmm 2 1
c 
e
s 00057/00000/00000
d D 1.1 83/03/15 21:44:47 tes 1 0
c date and time created 83/03/15 21:44:47 by tes
e
u
4
U
t
T
I 1
subroutine gzatt (opcode, attin, attout)
########################################################################
#                                                                      #
#          THIS MATERIAL IS CONFIDENTIAL AND IS FURNISHED UNDER        #
#          A WRITTEN LICENSE AGREEMENT.  IT MAY NOT BE USED,           #
#          COPIED OR DISCLOSED TO OTHERS EXCEPT IN ACCORDANCE          #
#          WITH THE TERMS OF THAT AGREEMENT.                           #
#                                                                      #
#          COPYRIGHT (C) 1982 GRAPHIC SOFTWARE SYSTEMS INC.            #
#          ALL RIGHTS RESERVED.                                        #
#                                                                      #
#     Function: internal driver caller for attribute setting etc.      #
#                                                                      #
#     Input Parameters:                                                #
#            opcode - opcode to call driver with                       #
#            attin  - index or type attribute                          #
#      Output Parameters:                                              #
#            attout - actual index or attribute set                    #
#                                                                      #
#     Routines Called:                                                 #
#            gzddop - call current device driver                       #
#                                                                      #
########################################################################
integer opcode, attin, attout
integer contrl(5), opcd, npts, intin(1), intin1, 
	intout(1), intou1, ptsdum(1)

include(`gkscom')
 
# The following equivalence statements are used to decrease the amount of code
#    necessary to access specific array elements. The arrays and the
#    variables equivalenced are listed below:
#
#       contrl(1) :: opcd
#       contrl(2) :: npts
#       intin(1) :: intin1
#       intout(1) :: intou1
 
equivalence (contrl(1), opcd), (contrl(2), npts),
            (intin(1), intin1), (intout(1), intou1)
 
   #   contrl(1) = opcode
   opcd = opcode
   # contrl(2) = 0
   npts = 0
   # intin(1) = attin
   intin1 = attin
   # intout(1) = 0  # initilize for devices not capable of certain
   intou1 = 0       # functions such as fill area styles etc.

   call gzddop (contrl, intin, ptsdum, intout, ptsdum)

   # intout(1) = attout
   attout = intou1

   return
end
E 1
