home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_022_RadialBlur.bas < prev    next >
Encoding:
BASIC Source File  |  2004-03-27  |  420 b   |  18 lines
  1. iOld = CreateImage( 1,1 )    
  2. Image(iOld).CopyFrom(0)
  3. ' RadialBlur( x,y, stretch 1...100, uStress 0...100 )
  4. for i = 1 to 20 step 2 
  5.     Image(0).CopyFrom( iOld )
  6.     Image(0).RadialBlur( Image(0).Width/2 ,Image(0).Height/2, i, 10 )
  7.     ReDraw(1)
  8. Next
  9.  
  10. for i = 0 to Image(0).Height step 10
  11.     Image(0).CopyFrom( iOld )
  12.     Image(0).RadialBlur( i,i, 5, 10 )
  13.     ReDraw(1)
  14. Next
  15. Image(0).CopyFrom( iOld )
  16. Image(iOld).Delete()
  17.  
  18.