Google
 

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