CB:n Manuaali wrote:(ObjectsizeY) Kertoo objektin korkeuden pikseleissä. Huomaa, että luvut eivät vastaa alkuperäisen kuvan kokoa. CoolBasic ottaa huomioon, että objektia on käännetty, ja palauttaa hetkitäsmällisen korkeuden.
Code: Select all
SCREEN 640,480
ukko = LoadObject("Media\Soldier.Bmp",360)
Repeat
Text 0,0,"ObjDefSizeX Palauttama arvo: "+ObjectDefSizeX(ukko)
Text 0,15,"ObjDefSizeY Palauttama arvo: "+ObjectDefSizeY(ukko)
Text 0,30,"CBn Objectsizex Palauttama arvo: "+ObjectSizeX(ukko)
Text 0,45,"CBn Objectsizey palauttama arvo: "+ObjectSizeY(ukko)
TurnObject ukko,1
DrawScreen
Forever
Function ObjectDefSizeX(obj)
ang = ObjectAngle(obj)
RotateObject obj,0
w = ObjectSizeX(obj)
RotateObject obj,ang
Return w
EndFunction
Function ObjectDefSizeY(obj)
ang = ObjectAngle(obj)
RotateObject obj,0
h = ObjectSizeY(obj)
RotateObject obj,ang
Return h
EndFunction