45 lines
997 B
Plaintext
45 lines
997 B
Plaintext
#title SetSpriteRotation [RCBasic Doc]
|
|
#header Sub SetSpriteRotation(sprite, angle)
|
|
|
|
Sets the angle the sprite is rotated by
|
|
|
|
#code
|
|
isFullScreen = false
|
|
vSync = true
|
|
winWidth = 640
|
|
winHeight = 480
|
|
canViewPortX = 0
|
|
canViewPortY = 0
|
|
|
|
OpenWindow("SetSpriteRotation", winWidth, winHeight, isFullScreen, vSync)
|
|
sCanvas = OpenCanvasSpriteLayer(canViewPortX, canViewPortY, winWidth, winHeight)
|
|
Canvas(sCanvas)
|
|
|
|
DIM eye
|
|
DIM eyeW
|
|
DIM eyeH
|
|
DIM eyeAngle 'Variable to hold the sprites angle value
|
|
|
|
eye = LoadImage("theEye.png")
|
|
GetImageSize(eye, eyeW, eyeH)
|
|
|
|
eyeSprite = CreateSprite(eye, eyeW, eyeH)
|
|
SetSpritePosition(eyeSprite, 100, 100)
|
|
|
|
While Not Key(K_ESCAPE)
|
|
'ClearCanvas() For a sprite layer canvas, you don't need to call ClearCanvas. It's automatically called.
|
|
|
|
SetSpriteRotation(eyeSprite, eyeAngle)
|
|
|
|
eyeAngle = eyeAngle + 0.3
|
|
|
|
Update() 'Update automatically deals with drawing the sprites on the sprite canvas.
|
|
Wend
|
|
#/code
|
|
|
|
#image "images/theEye.png"
|
|
|
|
#ref GetSpriteRotation RotateSprite
|
|
|
|
|