Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0125/spider.fcl
There are 2 other files named spider.fcl in the archive. Click here to see a list.
1.05 C GENERATES A DYNAMIC SPIDER WEB
1.10 X FSKP(0) ; X FDIS(0,5,0,0) ; S LOC=0
1.15 S LOC=FSET(LOC,0,0)
1.20 S LOC=FVEC(LOC,1023,0) ; S LOC=FVEC(LOC,0,767)
1.25 S LOC=FVEC(LOC,-1023,0) ; S LOC=FVEC(LOC,0,-767)
1.30 S LOC=FVEC(LOC,1023,767) ; S LOC=FSET(LOC,0,767)
1.35 S LOC=FVEC(LOC,1023,-767)
1.40 S LOC=FSET(LOC,509,0) ; S LOC=FVEC(LOC,0,767)
1.45 S LOC=FSET(LOC,0,383) ; S LOC=FVEC(LOC,1023,0)
1.50 S SLOC=LOC
1.55 F D=.25,.25,1.25 ; D 1.6
1.60 S LOC=SLOC ; F R=5,10,380 ; D 2
1.65 S XP=5 ; S YP=700
1.70 S LOC=FSET(LOC,XP,YP) ; S LOC=FTXT(LOC,0S,0P,0I,0D)
1.75 S LOC=FTXT(LOC,5,0R) ; S LOC=FSET(LOC,XP,YP-20)
1.80 S LOC=FTXT(LOC,0W,5,0B)
1.85 G 1.55
2.05 S LOC=FSET(LOC,509+R*D,383)
2.10 S X=R ; S Y=0; S THETA=0 ; S AINC=3.14159/4
2.15 S THETA=THETA+AINC ; S NX=R*FCOS(THETA) ; S NY=R*FSIN(THETA)
2.20 S LOC=FVEC(LOC,(NX-X)*D+.5,NY-Y+.5)
2.25 S X=NX ; S Y=NY
2.30 IF(THETA-2*3.14159)2.15,2.35,2.35
2.35 R