home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_019_MotionBlur.bas < prev    next >
BASIC Source File  |  2004-03-26  |  420b  |  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.