BlitzMAx SetScale command in PB

[Pot Noodle]

Information: scale_x and scale_y multiply the width and height of drawing commands where 0.5 will half the size of the drawing and 2.0 is equivalent to doubling the size.

This is my procedure i am using but it's not working right.

Code: [Select]

Procedure SetScale(Image, x.f, y.f)
   If ResizeImage(Image, ImageWidth(Image)*x, ImageHeight(Image)*y, #PB_Image_Smooth)
      ProcedureReturn 1
   Else
      ProcedureReturn 0
   EndIf
EndProcedure

Anyone shine a light on this 

[Edit]

Sorted