home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / DEMOS / MEGADEMO / PASSIONP.ARJ / PASSIONP.MSA / SHADING / MAKE_SIN.LST < prev    next >
File List  |  1997-03-05  |  251b  |  14 lines
  1. DIM sin%(319)
  2. FOR i%=0 TO 319
  3.   sin%(i%)=256*SIN((2*PI*i%)/256)
  4. NEXT i%
  5. a%=VARPTR(sin%(0))
  6. b%=VARPTR(sin%(0))+2
  7. FOR i%=0 TO 319
  8.   var%=DPEEK(b%)
  9.   DPOKE a%,var%
  10.   a%=a%+2
  11.   b%=b%+4
  12. NEXT i%
  13. BSAVE "a:\shading\sinus.xxx",VARPTR(sin%(0)),640
  14.