PROGRAM DEMO DIMENSION X(1024),Z(1024),Y(1024),IBUF(30) CALL VTCLR !CLEAR SCREEN CALL VTDBLW(10,1) !MAKE LINE 10 DOUBLE WIDTH CALL VTHTXT(1,10,1,'INITIALIZING DATA ARRAYS...') DO 10 I=1,1024 X(I)=ALOG10(FLOAT(I)) R=(6.2832)*FLOAT(I)/200. Y(I)=SIN(R) Z(I)=Y(I)+.1*COS(10.*R) 10 CONTINUE C CALL GRINIT(IBUF) !INITIALIZE GRAPHICS BUFFER CALL VTCLR CALL VTHTXT(8,24,1,'FULL REGION PLOT - STATIC') CALL GRAPHM(IBUF,227+4,X,Y,1024,,0,) !PUT UP GRAPH CALL ISLEEP(0,0,10,0) C CALL VTCLR CALL VTHTXT(8,24,1,'UPPER AND LOWER REGION PLOTTING') CALL GRREGN(IBUF,0,1) !SET UPPER REGION CALL GRREGN(IBUF,1,2) !SET LOWER REGION CALL GRAPHM(IBUF,227+4,X,Z,1024,,0,) CALL GRAPHM(IBUF,227+4,,X,1024,,1,) CALL ISLEEP(0,0,10,0) C CALL VTCLR CALL VTHTXT(8,24,1,'PLOTTING IN POINT MODE, MOVING') CALL BOUNDS(1,Z,ZMAX,ZMIN,1024) CALL GRREGN(IBUF,0,3) !SET FULL REGION CALL GRCLN(IBUF,0) !CLEAN SCREEN CALL GRSCAL(IBUF,XMIN,XMAX,ZMIN,ZMAX,0) !SCALE GRAPH CALL GRFRAM(IBUF,0,227+16) !DRAW FRAME ZMID=(ZMAX+ZMIN)/2. CALL GRSHAD(IBUF,ZMID,0) !SHAD AT ZMID DO 50 I=1,1024 50 CALL GRPNTM(IBUF,227+16+4,,Z(I),0,1.) !POINT PLOT CALL ISLEEP(0,0,10,0) C CALL VTCLR CALL VTHTXT(8,24,1,'FULL SCREEN MOVE USING GRAPHM SUBROUTINE') CALL GRAPHM(IBUF,227+16+4,,Y,1024,,0,) CALL ISLEEP(0,0,10,0) CALL VTCLR CALL EXIT END