Lower Level Routines

An example of using the auxilary routines of LONGLIB library from  FORTRAN is illustrated below. An example for using this library from  C follows.

This example plots a damped sine wave on both the terminal screen, the Ramtek (in color), and the LONGLIB metafile. No MASTER routines are used.

       PROGRAM DEMO
       DIMENSION X(100),Y(100),ICOL(3)
       DATA P,U,A,B,PHI/112,85,25.,.013,.3/
C ICOL IS THE COLOR ARRAY FOR AXES
       DATA PI/3.141593/,ICOL/1,2,3,4/
C FILL DATA ARRAYS WITH Y=F(X)
       DO 10 I=1,100
         X(I)=I-1
         Y(I)=SIN((I-1)*PI/A+PHI)*EXP(-I*B)
   10  CONTINUE
C INITIALIZE LONGLIB WITH SCREEN PROMPT OPTION
C AND CREATE METAFILE TO FORTRAN UNIT 3.
       CALL FRAME(3,0,2.,2.,1.)
C COMPUTE SCALING FACTORS FOR X AND Y
       CALL SCALE(X,8.,100,1,1,XMIN,DX)
       CALL SCALE(Y,6.,100,1,1,YMIN,DY)
       Y0=-YMIN/DY
C PLOT COORDINATE AXISES WITH COLOR OPTION ENABLED
       CALL AXIS(0.,Y0,'X-AXIS',-6-100000,20.,0.,
      1  XMIN,DX,N1,N2,ICOL)
       CALL AXIS(0.,0.,'SINE',4+100000,17.,90.,
      1  YMIN,DY,N1,N2,ICOL)
C SET LINE COLOR
       CALL PLOT(5.,0.,0)
C PLOT DATA POINTS AS A LINE WITH SYMBOLS
       CALL LINE(X,Y,100,1,5,2,1,1,XMIN,DX,YMIN,DY)
C PICK UP PEN AT END OF LINE (FORCES OUTPUT TO SCREENS)
       CALL PLOT(0.,0.,3)
C PROMPT FOR SCREEN CLEAR ON RAMTEK/TERMINAL
       CALL CTERM(2)
       CALL RTERM(2)
C CLOSE LONGLIB
       CALL PLOTND
       STOP
       END