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