home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_019_MotionBlur.bas < prev    next >
Encoding:
BASIC Source File  |  2004-03-27  |  420 b   |  20 lines
  1. iOld = CreateImage( 1,1 )    
  2. Image(iOld).CopyFrom(0)
  3. ' MotionBlur( Dim, Angle 1...36000, Unidirectional TRUE/FALSE )
  4. for i = 0 to 100 step 10 
  5.     Image(0).CopyFrom( iOld )
  6.     Image(0).MotionBlur( i, 0, TRUE )
  7.     ReDraw(1)
  8.     Sleep(100)
  9. Next
  10.  
  11. for i = 0 to 36000 step 1800
  12.     Image(0).CopyFrom( iOld )
  13.     Image(0).MotionBlur( 10, i, FALSE )
  14.     ReDraw(1)
  15.     Sleep(200)
  16. Next
  17. Image(0).CopyFrom( iOld )
  18. Image(iOld).Delete()
  19.  
  20.