h01962
s 00000/00000/00047
d D 1.2 83/01/28 13:49:02 tes 2 1
c initial_internal_update
e
s 00047/00000/00000
d D 1.1 83/01/28 13:01:24 tes 1 0
c date and time created 83/01/28 13:01:24 by tes
e
u
tes
mjb
mrk
mmm
U
t
T
I 1
subroutine gpcstk (index, stkary, xin, yin, xout, yout)
########################################################################
#                                                                      #
#          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: check and return a stacked element                     #
#                                                                      #
#     Input Parameters:                                                #
#            index  - index of data array element                      #
#            stkary - array used to stack current graph extents        #
#            xin    - x input coordinate                               #
#            yin    - y input coordinate                               #
#                                                                      #
#     Output Parameters:                                               #
#            xout   - x output coordinate                              #
#            yout   - y output coordinate                              #
#                                                                      #
#     Routines Called:                                                 #
#            none                                                      #
#                                                                      #
########################################################################
integer index
real stkary(1), xin, yin, xout, yout
real data
 
include(`pltcom')
 
   xout = xin
   yout = yin
   if (nstack == 2) {   # If stacking is being done
      data = stkary(index)
      if (nbrdir == 0) {      # Determine the direction of stacking
         yout = data
         }
      else {
         xout = data
         }
      }
 
   return
end
E 1
