home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / kxc / ms_dos / tf02mini / tfxpr08.bas < prev    next >
BASIC Source File  |  1990-06-14  |  1KB  |  37 lines
  1. 1000 OPEN "R",#1,"1:(7)OTAMA.TFX":CLS
  2. 1010 FIELD #1,7 AS A$
  3. 1020 PX=180/3.14159!:R=60:RX=112
  4. 1030 FOR IO=0 TO 300 STEP 60
  5. 1040 XO=RX*COS(IO/PX):YO=RX*SIN(IO/PX):ZO=IO*.5!
  6. 1050 FOR I=30 TO 150 STEP 30
  7. 1060   R0=R*SIN(I/PX)
  8. 1070   Y=R*COS(I/PX)+200+YO
  9. 1080   FOR J=0 TO 360 STEP 30
  10. 1090     X=R0*COS(J/PX)+320+XO
  11. 1100     Z=R0*SIN(J/PX)+200+ZO
  12. 1110     'LINE -(X,Y),PSET,7
  13. 1120     B$=CHR$(X MOD 256)+CHR$(X\256)
  14. 1130     B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  15. 1140     B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  16. 1150     IF J<>360 THEN B$=B$+CHR$(0):GOTO 1170
  17. 1160     B$=B$+CHR$(1)
  18. 1170     LSET A$=B$:PUT #1
  19. 1180   NEXT
  20. 1190 NEXT
  21. 1200 FOR I=0 TO 150 STEP 30
  22. 1210   FOR J=0 TO 360 STEP 30
  23. 1220     X=R*COS(J/PX)*COS(I/PX)+320+XO
  24. 1230     Y=R*SIN(J/PX)+200+YO
  25. 1240     Z=R*COS(J/PX)*SIN(I/PX)+200+ZO
  26. 1250     'LINE -(X,Y),PSET,7
  27. 1260     B$=CHR$(X MOD 256)+CHR$(X\256)
  28. 1270     B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  29. 1280     B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  30. 1290     IF J<>360 THEN B$=B$+CHR$(0):GOTO 1310
  31. 1300     IF IO=300 AND I=150 THEN B$=B$+CHR$(2) ELSE B$=B$+CHR$(1)
  32. 1310     LSET A$=B$:PUT #1
  33. 1320   NEXT
  34. 1330 NEXT
  35. 1340 NEXT
  36. 1350 CLOSE #1
  37.