home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g17.bas < prev    next >
BASIC Source File  |  1980-01-02  |  675b  |  26 lines
  1. 100 ' G17 T.WAKAMATSU
  2. 110 C(1)=7:C(2)=3:C(3)=2:C(4)=6:C(5)=4:C(6)=5:C(7)=1
  3. 120 A=36:B=36:K=1:CLS
  4. 130 FOR J=1 TO 21
  5. 140   V=2*B-B+320:W=240
  6. 150   FOR T=0 TO 360 STEP 2
  7. 160     I=T*1.74533E-02
  8. 170     X=2*B*COS(I)-B*COS(9*I)+320
  9. 180     Y=2*A*SIN(I)-A*SIN(9*I)+240
  10. 190     LINE (V,W)-(X,Y),PSET,C(K):V=X:W=Y
  11. 200   NEXT T
  12. 210   A=A+2:B=B+2:K=INT(J/3)+1
  13. 220 NEXT J
  14. 230 FOR D=1 TO 5000:NEXT D
  15. 240 A=36:B=36
  16. 250 FOR J=1 TO 21
  17. 260   V=2*B-B+320:W=240
  18. 270   FOR T=0 TO 360 STEP 2
  19. 280     I=T*1.74533E-02
  20. 290     X=2*B*COS(I)-B*COS(9*I)+320
  21. 300     Y=2*A*SIN(I)-A*SIN(9*I)+240
  22. 310     LINE (V,W)-(X,Y),PSET,0:V=X:W=Y
  23. 320   NEXT T
  24. 330   A=A+2:B=B+2
  25. 340 NEXT J
  26.