home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / falcon / program / jagdem_s / graphics / jpb.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1994-03-31  |  1KB  |  40 lines
  1. '
  2. ' Plasma BLUE bit y-sine data creation thingy
  3. '
  4. ' by <Genie!> of Network trash.
  5. '
  6. mem#=&H30000
  7. y#=0
  8. x#=0
  9. sin_height#=130
  10. start#=mem#
  11. length#=mem#
  12. sin_height#=sin_height#/2
  13. FOR deg#=1 TO 360 STEP 0.75
  14.   ' angles in radians rather than degrees, so convert those.
  15.   theta#=(deg#/360)*(2*PI)
  16.   y#=INT(sin_height#-(COS(theta#)*sin_height#))
  17.   '  y=y+(SIN(x)*5)
  18.   PLOT x#,y#
  19.   x#=x#+1
  20.   x#=x# MOD 360
  21.   p#=y# MOD 64
  22.   POKE mem#,p#
  23.   mem#=mem#+1
  24. NEXT deg#
  25. FOR deg#=1 TO 360 STEP 1.5
  26.   ' angles in radians rather than degrees, so convert those.
  27.   theta#=(deg#/360)*(2*PI)
  28.   y#=INT(sin_height#-(COS(theta#)*sin_height#))
  29.   '  y=y+(SIN(x)*5)
  30.   PLOT x#,y#
  31.   x#=x#+1
  32.   x#=x# MOD 360
  33.   p#=y# MOD 64
  34.   POKE mem#,p#
  35.   mem#=mem#+1
  36. NEXT deg#
  37. length#=mem#-length#
  38. PRINT length#
  39. BSAVE "a:\graphics\jpb.dat",start#,length#
  40.