home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Image_027_ZoomBlur.bas
< prev
next >
Wrap
BASIC Source File
|
2004-03-30
|
431b
|
18 lines
iOld = CreateImage( 1,1 )
Image(iOld).CopyFrom(0)
' ZoomBlur( x,y, Stretch 1...500, Stress 0...100 )
for i = 0 to 200 step 20
Image(0).CopyFrom( iOld )
Image(0).ZoomBlur( Image(0).Width/2 ,Image(0).Height/2, i, 10 )
ReDraw(1)
Next
for i = 0 to Image(0).Width step 10
Image(0).CopyFrom( iOld )
Image(0).ZoomBlur( i,Image(0).Height/2, 50, 10 )
ReDraw(1)
Next
Image(0).CopyFrom( iOld )
Image(iOld).Delete()