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