Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - 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