home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g46.bas < prev    next >
BASIC Source File  |  1980-01-02  |  417b  |  16 lines
  1. 100 ' G46 T.WAKAMATSU
  2. 110 PI=3.14159!
  3. 120 A=115:B=125:C=2:Z=1:CLS
  4. 130 FOR T=0 TO 2*PI STEP PI/96
  5. 140   C=5-C
  6. 150   CIRCLE(145*SIN(A*T)+320,145*COS(B*T)+240),90,C
  7. 160 NEXT T
  8. 170 FOR D=1 TO 2000:NEXT D
  9. 180 FOR T=0 TO 2*PI STEP PI/96
  10. 190   Z=6-Z
  11. 200   CIRCLE(145*SIN(A*T)+320,145*COS(B*T)+240),90,Z
  12. 210 NEXT T
  13. 220 FOR T=0 TO 2*PI STEP PI/96
  14. 230   CIRCLE(145*SIN(A*T)+320,145*COS(B*T)+240),90,0
  15. 240 NEXT T
  16.