home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / MAGGIE22.ARJ / magg22st.msa / GOODIES / ST_INTRO.ZIP / M21.ST / DATA / TUNNEL.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1996-08-22  |  1KB  |  48 lines
  1. ' Tunnel projection
  2. '
  3. '
  4. '
  5. RESERVE 600000
  6. ' VOID XBIOS(5,L:-1,L:-1,0)
  7. tunnel%=MALLOC(640*200*2)
  8. mem%=tunnel%
  9. zs%=500
  10. ystart%=-60
  11. xstart%=-120
  12. '
  13. FOR y#=ystart% TO ystart%+79                    !160 pixels high
  14.   FOR x#=xstart% TO xstart%+159                 !320 pixels wide
  15.     IF x#<>0
  16.       x1#=x#
  17.     ELSE
  18.       x1#=1E-05
  19.     ENDIF
  20.     p%=(ATN(y#/x1#)/2/PI)*32*8                   !.....
  21.     '
  22.     l#=SQR(x#*x#+y#*y#)/4                  !These two are the problems
  23.     IF l#<>0
  24.       dist%=(zs%/l#)+0.5
  25.       '      IF l>10/6
  26.       PSET 180+x#,100+y#,dist%
  27.       PSET 180-x#,100-y#,p%
  28.       '
  29.       l%=((p% AND 63)*2)+(64*2*(dist% AND 31))
  30.       '
  31.       IF l%>64*2*33
  32.         END
  33.       ENDIF
  34.       DPOKE mem%,l%
  35.     ELSE
  36.       DPOKE mem%,0
  37.     ENDIF
  38.     ADD mem%,2
  39.   NEXT x#
  40. NEXT y#
  41. '
  42. BSAVE "d:\source2\m21.st\data\tunnel.dat",tunnel%,mem%-tunnel%
  43. REPEAT
  44.   k$=INKEY$
  45. UNTIL k$<>""
  46. CLS
  47. PRINT mem%-tunnel%
  48.