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