home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Image_020_PlaneBend.bas
< prev
next >
Wrap
BASIC Source File
|
2004-03-27
|
1KB
|
34 lines
iOld = CreateImage( 1,1 )
iSav = CreateImage( 1,1 )
Image(iSav).CopyFrom(0)
w = Image(0).Width
h = Image(0).Height
Image(0).Resample( w*2, h*2 )
Image(0).Color = _ColorBlack
Image(0).DrawImage( 0,0, w, h, iSav )
Image(0).DrawImage( w, h, w, h, iSav )
Image(iOld).CopyFrom(0)
Image(iOld).Rotate( 18000, 0 )
for i = 0 to Image(0).Width step (Image(0).Width/10)
Image(0).CopyFrom( iOld )
' x,y, Zaxis, Distance, PlaneOffset, Repeat, PydAngle, Stretch, BendFactor, StartBright, EndBright, BrightLength, Bright, Fill, Flags )
Image(0).PlaneBend( i,1, 0, Image(0).Height, Image(0).Width/2, -1, 900, 100, 400, 0, 100, 20000, _ColorBlack, _ColorBlack, _PLaneDown )
ReDraw(1)
Next
Image(iOld).Rotate( 18000, 0 )
for i = 0 to Image(0).Height step (Image(0).Height/10)
Image(0).CopyFrom( iOld )
' x, y, Zaxis, Distance, PlaneOffset, Repeat, PydAngle, Stretch, BendFactor, StartBright, EndBright, BrightLength, Bright, Fill, Flags )
Image(0).PlaneBend( Image(0).Width/2,i, 0, Image(0).Height, Image(0).Width/2, -1, 900, 100, 400,0,100, 20000, _ColorBlack, _ColorBlack, _PLaneLeft+_PlaneRight )
ReDraw(1)
Next
Sleep(1000)
Image(0).CopyFrom( iSav )
Image(iOld).Delete()
Image(iSav).Delete()