h11842
s 00000/00000/00041
d D 1.4 83/03/08 20:19:48 tes 4 3
c modified axis pipeline for integer calculations
e
s 00003/00002/00038
d D 1.3 83/03/02 00:42:10 mrk 3 2
c replace call to gpdraw with call to idraw
e
s 00000/00000/00040
d D 1.2 83/01/28 13:49:19 tes 2 1
c initial_internal_update
e
s 00040/00000/00000
d D 1.1 83/01/28 13:01:28 tes 1 0
c date and time created 83/01/28 13:01:28 by tes
e
u
tes
mjb
mrk
mmm
U
t
T
I 1
subroutine gpdbln (index)
########################################################################
#                                                                      #
#          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: Output an axis base line for the selected axis         #
#                                                                      #
#     Input Parameters:                                                #
#            index - index of axis to be drawn                         #
#                                                                      #
#     Output Parameters:                                               #
#            none                                                      #
#                                                                      #
#     Routines Called:                                                 #
#            gplnat - set the current line attributes                  #
D 3
#            gpdraw - do a 2D absolute draw                            #
E 3
I 3
#            idraw  - do a 2D absolute draw                            #
E 3
#            imove  - modify current position for later action         #
#                                                                      #
########################################################################
integer index
real p(2)
 
include(`pltcom')
 
 
   call gplnat              # Set the current line attribute
I 3

E 3
   p(1) = zplmin(1)         # Move to minimum of the plot sub-area
   p(2) = zplmin(2)
   call imove (ABSOLUTE, p(1), p(2))
   p(index) = zplmax(index)
D 3
   call gpdraw (p(1), p(2))
E 3
I 3
   call idraw (ABSOLUTE, p(1), p(2))
E 3
 
   return
end
E 1
