home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g09.bas < prev    next >
BASIC Source File  |  1980-01-02  |  1KB  |  52 lines
  1. 100 ' G09 T.WAKAMATSU 
  2. 110 CLS:PI=3.14159!:C1(9)=3:C1(8)=0:C1(7)=4:C1(6)=2:C1(5)=0
  3. 112 C1(2)=6:C1(3)=2:C1(4)=4:C1(5)=0
  4. 120 C(1)=2:C(2)=4:C(3)=3:C(4)=5:C(5)=0:C(6)=3:C(7)=5:C(8)=0:C(9)=2
  5. 122 C2(1)=2:C2(2)=3:C2(3)=5:C2(4)=1:C2(5)=0
  6. 130 PSET(320,479)
  7. 140 FOR L=1 TO 5
  8. 150   C=C2(L)
  9. 160   FOR T=0 TO PI*2 STEP PI/96
  10. 170     X=SIN(125*T)*239+320
  11. 180     Y=COS(125*T)*239+240
  12. 190     LINE -(X,Y),PSET,C
  13. 200   NEXT T
  14. 210 NEXT L
  15. 220 PSET(320,479)
  16. 230 FOR L=9 TO 8 STEP -1
  17. 240   C=C(L):K=C1(L)
  18. 250   FOR T=0 TO PI*2 STEP PI/96
  19. 260     X=SIN(65*T)*239+320
  20. 270     Y=COS(65*T)*239+240
  21. 280     LINE -(X,Y),PSET,K
  22. 290     X=SIN(65*T)*120+320
  23. 300     Y=COS(65*T)*120+240
  24. 310     LINE -(X,Y),PSET,C
  25. 320   NEXT T
  26. 330 NEXT L
  27. 340 PSET(320,479)
  28. 350 FOR L=7 TO 5 STEP -1
  29. 360   C=C(L):K=C1(L)
  30. 370   FOR T=0 TO PI*2 STEP PI/96
  31. 380     U=PI*2-T
  32. 390     X=SIN(65*T)*239+320
  33. 400     Y=COS(65*T)*239+240
  34. 410     LINE -(X,Y),PSET,K
  35. 420     X=SIN(65*U)*120+320
  36. 430     Y=COS(65*U)*120+240
  37. 440     LINE -(X,Y),PSET,C
  38. 450   NEXT T
  39. 460 NEXT L
  40. 470 PSET(320,479)
  41. 480 FOR L=2 TO 5
  42. 490   C=C(L):K=C1(L)
  43. 500   FOR T=0 TO PI*2 STEP PI/96
  44. 510     X=SIN(55*T)*239+320
  45. 520     Y=COS(55*T)*239+240
  46. 530     LINE -(X,Y),PSET,K
  47. 540     X=SIN(54*T)*90+320
  48. 550     Y=COS(54*T)*90+240
  49. 560     LINE -(X,Y),PSET,C
  50. 570   NEXT T
  51. 580 NEXT L
  52.