image IMG1
IMG1 := RealImage("New", 4, 200, 200)
ShowImage(IMG1)
number Ox, Oy
GetOrigin(IMG1, Ox, Oy)
result("X Origin: "+Ox+"; Y Origin:"+Oy+"\n")
