home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g30.bas < prev    next >
BASIC Source File  |  1980-01-02  |  1KB  |  38 lines
  1. 100 ' G30 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!:C=3
  3. 120 FOR H=1 TO 2
  4. 130   READ V,W:DATA 6,1,5,3:C=W
  5. 140   FOR G=-22.5! TO 22.5! STEP .5!
  6. 150     FOR I=G TO 360+G  STEP 45
  7. 160       T=I/180*PI:U=(I+30)/180*PI
  8. 170       Z=COS(T*8)*50+110
  9. 180       S=Z*1.5!:F=2
  10. 190       X0=S*COS(U)+320:Y0=S*SIN(U)+239
  11. 200       Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  12. 210       IF I+F=INT((I+F)/45)*45 THEN C=V-C
  13. 220       LINE(X0,Y0)-(X1,Y1),PSET,C
  14. 230     NEXT I
  15. 240   NEXT G
  16. 250 NEXT H
  17. 260 FOR D=1 TO 2000:NEXT D
  18. 270 FOR G=-22.5! TO 22.5! 
  19. 280   FOR I=G TO 360+G  STEP 45
  20. 290     T=I/180*PI:U=(I+30)/180*PI
  21. 300     Z=COS(T*8)*50+110
  22. 310     S=Z*1.5!:F=70
  23. 320     X0=S*COS(U)+320:Y0=S*SIN(U)+239
  24. 330     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  25. 340     LINE(X0,Y0)-(X1,Y1),PSET,0
  26. 350   NEXT I
  27. 360 NEXT G
  28. 370 FOR G=-23 TO 23 
  29. 380   FOR I=G TO 360+G  STEP 45
  30. 390     T=I/180*PI:U=(I+30)/180*PI
  31. 400     Z=COS(T*8)*50+110
  32. 410     S=Z*1.5!:F=70
  33. 420     X0=S*COS(U)+320:Y0=S*SIN(U)+239
  34. 430     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  35. 440     LINE(X0,Y0)-(X1,Y1),PSET,0
  36. 450   NEXT I
  37. 460 NEXT G
  38.