Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0152/test5.for
There are 2 other files named test5.for in the archive. Click here to see a list.
PROGRAM TEST5
DIMENSION X(512),Y(512),IBUF(30),X1(512)
DO 10 I=1,512
R=(6.2832)*FLOAT(I)/200.
X(I)=SIN(4.*R)
X1(I)=FLOAT(I)
Y(I)=SIN(R)
10 CONTINUE
CALL BOUNDS(1,X,XMAX,XMIN,512,0,0,0)
CALL VTCLR
CALL VTHTXT(8,23,1,'TWO GRAPHS OVERLAPPING - FULL DISPLAY')
CALL GRAPHS(IBUF,227+4,X1,Y,512,0.,0)
CALL GRREGN(IBUF,1,3)
CALL GRAPHS(IBUF,227+4,X1,X,512,XMIN,1)
CALL SLEEP(5)
CALL VTHTXT(8,23,1,' TURNING GRAPH 0 OFF ')
CALL GRVIEW(IBUF,0,0)
CALL SLEEP(5)
CALL VTHTXT(8,23,1,' TURNING GRAPH 0 ON AND GRAPH 1 OFF ')
CALL GRVIEW(IBUF,1,0)
CALL GRVIEW(IBUF,0,1)
CALL SLEEP(5)
call vtclr
CALL GRREGN(IBUF,0,1)
CALL GRREGN(IBUF,1,2)
CALL VTHTXT(8,23,1,'SAME GRAPHS PLOTTED SEPERATELY')
CALL GRAPHS(IBUF,227+4,X1,X,512,XMIN,0)
CALL GRAPHS(IBUF,227+4,X1,Y,512,0.,1)
CALL SLEEP(5)
CALL VTHTXT(8,23,1,' TURNING GRAPH 0 OFF ')
CALL GRVIEW(IBUF,0,0)
CALL SLEEP(5)
CALL VTHTXT(8,23,1,'TURNING GRAPH 0 ON, AND GRAPH 1 OFF')
CALL GRVIEW(IBUF,1,0)
CALL GRVIEW(IBUF,0,1)
CALL SLEEP(5)
call vtclr
CALL EXIT
END