h44642
s 00007/00005/00038
d D 1.4 83/03/01 18:01:23 mrk 4 3
c protect against 0 length string
e
s 00000/00000/00043
d D 1.3 83/02/09 11:40:35 mrk 3 2
c no changes made
e
s 00002/00004/00041
d D 1.2 83/01/28 14:12:32 tes 2 1
c initial_internal_update
e
s 00045/00000/00000
d D 1.1 83/01/28 13:08:10 tes 1 0
c date and time created 83/01/28 13:08:10 by tes
e
u
tes
mjb
mrk
mmm
U
t
T
I 1
subroutine title (x, y, ilen, string)
########################################################################
#                                                                      #
#          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: Place a Title on a Graph                               #
#                                                                      #
#     Input Parameters:                                                #
#            x,y  - location to place text string                      #
#            ilen - length of the input string                         #
#            string - ADE input string                                 #
#                                                                      #
#     Output Parameters:                                               #
#            none                                                      #
#                                                                      #
#     Routines Called:                                                 #
#            gptxat - set the proper text environment                  #
#            imove  - modify current position for later action         #
#            text   - put out a string of graphic text                 #
#                                                                      #
########################################################################
integer ilen, string(1)
D 2
real x, y
E 2
I 2
real x, y, gtreal 
E 2

D 2
PLOTxREALS PLOTxGETREAL

E 2
include(`pltcom')
 
DxB write (DEBUGxUNIT, 100) ilen, string(1)
DxB 100 format (' title:', 5i5)
 
D 4
   nclip = YES  # Turn on clipping
   call gptxat (TITLExTEXTxATT)   # Set up the TITLE text attributes
D 2
   call imove (ABSOLUTE, PLOTxGETREAL(x)/100., PLOTxGETREAL(y)/100.)
E 2
I 2
   call imove (ABSOLUTE, gtreal (x, 0)/100., gtreal (y, 0)/100.)
E 2
   call text (ilen, string)
   nclip = NO
E 4
I 4
   if (ilen > 0)   {   # Check for invalid string length
      nclip = YES  # Turn on clipping
      call gptxat (TITLExTEXTxATT)   # Set up the TITLE text attributes
      call imove (ABSOLUTE, gtreal (x, 0)/100., gtreal (y, 0)/100.)
      call text (ilen, string)
      nclip = NO
      }
E 4
 
   return
end
E 1
