home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_024_Ripple.bas < prev    next >
BASIC Source File  |  2004-03-30  |  350b  |  13 lines
  1. iOld = CreateImage( 1,1 )    
  2. Image(iOld).CopyFrom(0)
  3.  
  4. ' Ripple( x,y, Amplitude 0...100, Frequency, Phase -36000...+36000, Attenuation 0...1000 )
  5. for i = 36000 to -36000 step -3600
  6.     Image(0).CopyFrom( iOld )
  7.     Image(0).Ripple( Image(0).Width/2 ,Image(0).Height/2, 5, 5, i, 0 )
  8.     ReDraw(1)
  9. Next    
  10. Image(0).CopyFrom( iOld )
  11. Image(iOld).Delete()
  12.  
  13.