#%%A-RCB-0094-SL-10   GRAPHIC -- TEST PROGRAM
#  FIRST PLOT IS SQUARE OF DYING SINE WAVE WITH ODD SCALES
 
CALL STRTPL
CALL SIUNIT; CALL WIDTH (1)
CALL CORNER (50.0,55.0)
CALL SCALE (-2.0,5.0,100.0, 0.0,9.0,190.0, 2)
CALL BORDER (3)
CALL SIGNIT ('PDM')
CALL CTITLE (-12., 'GRAPHIC -- TEST PROGRAM OUTPUT')
CALL CTITLE (-18., 'A-RCB-0094-SK-10')
CALL GRID (1.0,1.0)
CALL PLEDGE (2)
CALL TICKS (2.0,'I2',2.0,'1PE8.0')
CALL AXIS (2)
 
I = 2
FOR (X=-2.0; X<=5.0; X=X+0.2) [
     CALL MOVE (X, (EXP(-0.7*X)*SIN(3.14159*X))**2, I)
     CALL SYMBOL (20)
     I = 9
]
CALL ANNOTE (0.0,195.0, 'WILD FUNCTION')
CALL ENDPLT
#%^

#  SECOND PLOT IS A LOG SPIRAL ON SQUARE AXES
 
CALL WIDTH (2)
CALL ROTATE (1)
CALL CORNER (70.,-130.0)
CALL CTITLE (-15.0, 'LOG SPIRAL')
CALL CTITLE (-23.0, 'GRAPHIC -- TEST PROGRAM OUTPUT  Page 2')
CALL CTITLE (-29., 'A-RCB-0094-SK-10')
CALL SCALE (-1.0,1.0,120.0, -1.0,1.0,120.0)
CALL BORDER (2)
CALL PLEDGE (1)
CALL SIGNIT ('PDM')
CALL GRID (0.5,0.1,255)
CALL TICKS (0.5,'F4.1',0.2,'F4.1')
CALL AXIS (1)
 
I = 2
CALL WIDTH (1)
FOR (THETA=0.0; THETA<=18.8478; THETA=THETA+0.1) [
     R = EXP (-0.1*THETA)
     CALL MOVE (R*COS(THETA), R*SIN(THETA), I)
     CALL SYMBOL (7)
     I = 9
]
CALL ENDPLT
#%^

#  SINE PLOT WITH POSITIVE XMIN
 
CALL SIUNIT;  CALL WIDTH(1);  CALL ROTATE (0)
CALL CORNER (35.0, 140.0)
CALL SCALE (20.0, 40.0, 150.0,  -1.0, 1.0, 110.0)
CALL BORDER (2)
CALL SIGNIT ('PDM')
CALL CTITLE (-15.0, 'GRAPHIC -- TEST PROGRAM OUTPUT  Page 3')
CALL CTITLE (-21.0, 'A-RCB-0094-SK-10')
CALL GRID (10.0, 0.5, -1)
CALL GRID ( 2.0, 0.1)
CALL TICKS (10.0, 'I3', 0.5, 'F4.1')
 
I = 2
FOR (X=20.0; X<=40.0; X=X+0.5) [
     CALL MOVE (X, SIN(X), I)
     I = 9
]
CALL ENDPLT
 
CALL ENDJOB
CALL EXIT
END