Sorry your browser is not supported!

Global ANGLECATCH as integer
Load Image "mouse.bmp",1
Sprite 1,0,0,1
cls
Offset Sprite 1,Sprite Width(1)/2,Sprite Height(1)/2
Sprite 1,Sprite Width(1)/2,Sprite Height(1)/2,1
Create Bitmap 31,Sprite Width(1),Sprite Height(1)
Sync Rate 0
Do
if Rightkey()
QuintRotate(1,31,576,1,1)
endif
if Leftkey()
QuintRotate(1,31,576,-1,1)
endif
Loop

Function QuintRotate(SprNum,BitNum,ImgNum,Value,Origimage)
Sprite SprNum,Sprite Offset X(SprNum),Sprite Offset Y(SprNum),Origimage
AngleCatch = AngleCatch + Value
Rotate Sprite SprNum,AngleCatch
Set Current Bitmap BitNum
cls
Paste Sprite 1,Sprite Offset X(SprNum),Sprite Offset Y(SprNum)
Get Image ImgNum,0,0,Bitmap Width(BitNum),Bitmap Height(BitNum),BitNum
Set Current Bitmap 0
Sprite SprNum,Sprite Offset X(SprNum),Sprite Offset Y(SprNum),ImgNum
EndFunction

Global AngleCatch As Integer
Load Image "eddykid.png",1
Sprite 1,0,0,1
cls
Offset Sprite 1,Sprite Width(1)/2,Sprite Height(1)/2
Sprite 1,Sprite Width(1)/2,Sprite Height(1)/2,1
Sync Rate 0

Do
   QuintRotate(1,31,576,1,1)
Loop

Function QuintRotate(SprNum,BitNum,ImgNum,Value,Origimage)
Sprite SprNum,Sprite Offset X(SprNum),Sprite Offset Y(SprNum),Origimage
AngleCatch = AngleCatch + Value

Rotate Sprite SprNum,AngleCatch

Xang = abs(sin(AngleCatch)*Sprite Height(SprNum))
Yang = abs(-cos(AngleCatch)*Sprite Height(SprNum))
Xang2 = abs(cos(AngleCatch)*Sprite Width(SprNum))
Yang2 = abs(-sin(AngleCatch)*Sprite Width(SprNum))
XangT = Xang + Xang2
YangT = Yang + Yang2

Create Bitmap BitNum,XangT,YangT
Set Current Bitmap BitNum
cls

Paste Sprite 1,XangT/2,YangT/2
Get Image ImgNum,0,0,Bitmap Width(BitNum),Bitmap Height(BitNum),BitNum

Set Current Bitmap 0
Sprite SprNum,Sprite Offset X(SprNum),Sprite Offset Y(SprNum),ImgNum
Rotate Sprite SprNum,0

Delete Bitmap BitNum

EndFunction