home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / falcon / program / jagdem_s / graphics / jsd.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1994-03-31  |  1KB  |  41 lines

  1. '
  2. ' Plasma SCROLLER 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-(16+2)
  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#,y#
  23.   mem#=mem#+1
  24. NEXT deg#
  25. ' sin_height=sin_height*0.75
  26. FOR deg#=1 TO 360 STEP 1
  27.   ' angles in radians rather than degrees, so convert those.
  28.   theta#=(deg#/360)*(2*PI)
  29.   y#=INT(sin_height#-(COS(theta#)*sin_height#))
  30.   '  y=y+(SIN(x)*5)
  31.   PLOT x#,y#
  32.   x#=x#+1
  33.   x#=x# MOD 360
  34.   '  p=y MOD 64
  35.   POKE mem#,y#
  36.   mem#=mem#+1
  37. NEXT deg#
  38. length#=mem#-length#
  39. PRINT length#
  40. BSAVE "a:\graphics\jsd.dat",start#,length#
  41.