File: WEB.FC of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971 01.01 C WEB BY BARRY SMITH 01.02 C OMSI SOFTWARE DEVELOPMENT GROUP 01.03 C LAST CHANGE: 7/3/71 01.04 C ***** TEKTRONIX T-4002 GRAPHIC TERMINAL REQUIRED ***** 01.05 01.06 C THIS PROGRAM DRAWS A SPIDER AND HER WEB. IT IS NOTHING 01.07 C MORE THAN A HANDY DEMONSTRATION OF FOCAL'S DISPLAY POWER. 03.10 F A=0,30,330;S B=A/57.295;D 4 03.20 G 5.05 04.10 S C=FDIS[0,300,400] 04.20 S C=FDIS[1,300+FSIN[B]*100,400+FCOS[B]*100] 04.30 S C=FDIS[1,300+FSIN[B]*200,400+FCOS[B]*200] 04.40 S C=FDIS[1,300+FSIN[B]*300,400+FCOS[B]*300] 05.05 S D=1.5 05.10 F A=0,30,3500;S B=A/57.295;D 6 06.10 S C=FDIS[1,300+FSIN[B]*D,400+FCOS[B]*D] 06.20 S D=D+2.5 07.10 S C=FDIS[0,175,180] 07.20 F A=0,45,360;S B=A/57.295;D 8 08.10 S C=FDIS[1,250+FSIN[B]*10,170+FCOS[B]*15] 09.10 S C=FDIS[1,220,210] 09.20 S C=FDIS[1,190,180] 09.30 S C=FDIS[0,250,185] 09.40 S C=FDIS[1,235,220];D 9.3 09.50 S C=FDIS[1,300,160];D 9.3 09.60 S C=FDIS[1,275,210] 09.70 S C=FDIS[1,300,190];D 9.3 09.75 S C=FDIS[1,275,225] 09.80 S C=FDIS[1,300,210];D 9.3