home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / COMPUTER / GRAPHICS / GRAFPIX.ARC / GRAFHAT.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1984-04-25  |  728 b   |  29 lines
  1. 5  '  G R A F H A T . B A S
  2. 6  '
  3. 7  ' This program takes about 45 minutes...it's impressive
  4. 10  '          See "Personal Computer Age", Nov. 82, page 27
  5. 12  SCREEN 2:KEY OFF
  6. 15  CLS
  7. 20  P=300: Q=90
  8. 30  XP=250: XR=1.5*3.14159
  9. 40  YP=56: YR=1: ZP=64
  10. 50  XF=XR/XP: YF=YP/YR: ZF=XR/ZP
  11. 60  FOR ZI = -Q TO Q - 1
  12. 70           IF ZI < -ZP OR ZI > ZP THEN GOTO 150
  13. 80           ZT=ZI*XP/ZP: ZZ = ZI
  14. 90           XL = INT(0.5 + SQR(XP*XP-ZT*ZT))
  15. 100    FOR XI = -XL TO XL
  16. 110             XT = SQR(XI*XI+ZT*ZT)*XF: XX=XI
  17. 120             YY = (SIN(XT) + 0.4 * SIN(3 * XT)) * YF
  18. 130             GOSUB 170
  19. 140        NEXT XI
  20. 150    NEXT ZI
  21. 165  DEF SEG=&HB800
  22. 166  BSAVE"B:GRAFHAT.SCR",0,&H4000
  23. 167  END
  24. 170  X1 = XX + ZZ + P
  25. 180  Y1 = -YY + ZZ + Q
  26. 190  PSET(X1,Y1)
  27. 200  IF Y1=0 THEN 220
  28. 220  RETURN
  29.