home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / kxc / ms_dos / tf02mini / tfxpr07.bas < prev    next >
BASIC Source File  |  1990-06-14  |  607b  |  20 lines
  1. 1000 OPEN "R",#1,"1:(7)SHIKAKU1.TFX":CLS
  2. 1010 FIELD #1,7 AS A$
  3. 1015 DEFINT R,J
  4. 1020 R=128:PX=180/3.14159!
  5. 1030 FOR R=20 TO 190 STEP 10
  6. 1050   FOR J=R TO 360+R STEP 90
  7. 1060     X=R*COS(J/PX)+320
  8. 1070     Y=R*SIN(J/PX)+200
  9. 1078     Z=R*SIN((J+R)/PX)*COS((J-R)/PX)+200
  10. 1080     LINE -(X,Y),PSET,7
  11. 1090     B$=CHR$(X MOD 256)+CHR$(X\256)
  12. 1100     B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  13. 1110     B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  14. 1120     IF J=360+R ELSE B$=B$+CHR$(0):GOTO 1140
  15. 1130     IF R=190 THEN B$=B$+CHR$(2) ELSE B$=B$+CHR$(1)
  16. 1140     LSET A$=B$:PUT #1
  17. 1150   NEXT
  18. 1160 NEXT
  19. 1310 CLOSE #1
  20.