Kulman vaihtaneesta objektista mitat.

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Kulman vaihtaneesta objektista mitat.

Post by MaGetzUb »

Jooh, uskoisin että tästä tulisi jotain hyödyllistä vihdoinkin. Eli palautat käännetystä objektista alkuperäis leveyden sekä korkeuden. Itse olen pähkäillyt tuota jo kuinka kauan, mutta sitten syttyikin lamppu palamaan ja voilà, näillä kahdella funktiolla tarkistan sen nyt helposti. ;)
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

Voihan tehdä myös niinkin että kirjoittaa muuttujiin nuo leveydet ja korkeudet muistiin, mutta tämä tuntuisi jotenkin kätevämmältä. :P
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
Post Reply