C C THIS ROUTINE DEMONSTRATES SOME OF THE FEATURES OF THE PLOT ROUTINES C REAL X(500),Y(500) DATA PI/3.14159265/, E/2.71828183/ CALL SSET(LERR) !ATTACH TERMINAL TO PREVENT INTERFERENCE CALL SCOPE !SET UP FOR PLOTTING FAC = PI / 20. !ANNGLE PER STEP C C GENERATE A SPIRAL C DO 10 I = 1,400 THET = I *FAC RADIUS = (I-1)*.25 X(I) = RADIUS*SIN(THET) Y(I) = RADIUS*COS(THET) 10 CONTINUE CALL ERASE !ERASE THE SCREEN CALL BOXIT(50,50,950,750) !CREATE A WHITE 'BOX' CALL INTENS(0) !NOW SET UP TO ERASE PART OF BOX XS = 1./3. YS = XS XO = -500.*XS YO = -400.*YS CALL PSSCAL(XO,XS,YO,YS) !SET PLOTTING SCALE CALL SCTONE(X,Y,400) !ERASE IN A SPIRAL PATTERM CALL CHAR (60,60,'TEST OF INTENS + SHADE ROUTINES',0) CALL INTENS(1) !SET UP FOR NORMAL PLOT CALL CHAR (60, 0,'TEST OF INTENS + SHADE ROUTINES',0) END