Sub SetSpriteScale(sprite, x, y)

Sets the scale of a sprite

isFullScreen = false 
vSync = true 
winWidth = 640 
winHeight = 480 
canViewPortX = 0 
canViewPortY = 0 
  
OpenWindow("SetSpriteScale", winWidth, winHeight, isFullScreen, vSync) 
sCanvas = OpenCanvasSpriteLayer(canViewPortX, canViewPortY, winWidth, winHeight) 
Canvas(sCanvas) 
  
DIM eye 
DIM eyeW 
DIM eyeH 
DIM eyeScale            'Variable to hold the sprites scale
eyeScale = 2 
  
eye = LoadImage("theEye.png") 
GetImageSize(eye, eyeW, eyeH) 
  
eyeSprite = CreateSprite(eye, eyeW, eyeH) 
SetSpritePosition(eyeSprite, 100, 100) 
  
eyeSprite2 = CreateSprite(eye, eyeW, eyeH) 
SetSpritePosition(eyeSprite2, 200, 100) 
  
SetSpriteScale(eyeSprite2, eyeScale, eyeScale) 
  
While Not Key(K_ESCAPE) 
  
Update() 
Wend 


Related: ScaleSprite GetSpriteScale