home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g08.bas < prev    next >
BASIC Source File  |  1980-01-02  |  495b  |  18 lines
  1. 100 ' G08 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!
  3. 120 FOR C=1 TO 3
  4. 130   READ D,E:DATA 5,3,6,1,0,0
  5. 140   FOR K=-30 TO 30 STEP .5!
  6. 150     FOR I=K TO K+360 STEP 60
  7. 160       T=I/180*PI:U=(I+30)/180*PI
  8. 170       Z=COS(T*6)*110+120
  9. 180       S=COS(T*6)*110+120
  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=INT(I/60)*60 THEN E=D-E
  13. 220       LINE(X0,Y0)-(X1,Y1),PSET,E
  14. 230     NEXT I
  15. 240   NEXT K
  16. 250   FOR J=1 TO 3000:NEXT J
  17. 260 NEXT C
  18.