image IMG1
IMG1 := RealImage("New", 4, 200, 200)
ShowImage(IMG1)
number SCx, SCy
GetScale(IMG1, SCx, SCy)
result("The scales for X and Y dimensions are>> X Scale: "+SCx+" Y Scale:"+SCy+"\n")
