DrawRotate falsce winkelangabe!!!

[wursthunter]

Wenn ich etwas rotiert wiedergeben möchte, nutze ich ja diesen Befehl. Bei 64° sind bereits 90° erreicht. Wie das??? Wie kann man abhilfe schaffen???
Das gleiche bei TImageSpriteEx! sehr nervig!

[Klaus01]

vielleicht rad in grad umwandeln

Grüße
Klaus

[edit] das war wohl mumpitz [/edit]

[Frank Borland]

255 ist eine komplette Drehung, wem auch immer das eingefallen ist :-)

Gruß


Malte

[wursthunter]

ok, soweit bin auch schon, dass 255 grad eine drehung ist, wie kann man abhilfe schaffen???

[Frank Borland]

eine eigene Funktion schreiben, die Grad annimmt, umrechnet und das Original aufruft

Gruß

Malte

[wursthunter]

manche leute sind extrem lustig...

[Daniel Schuhmann]

Wieso lustig? Die Funktion muss doch blos die Winkelangabe mit 359 / 255 multiplizieren, dann stimmts wieder.

[Frank Borland]

extrem einfach wäre dies:

Delphi-Quellcode:

function MeinUmrechnungFunktionInAngle(MeineGrad: double): integer;
begin
 result:= round(MeineGrad/360*255);
end;

...CenterX,CenterY,MeinUmrechnungFunktionInAngle(M eineGrad));

und gut zu lesen

einen lustigen Gruß


Malte

[edit=alcaeus]Delphi-Tags eingefuegt. In Zukunft bitte selbst machen. ;) Mfg, alcaeus[/edit]

[Ultimator]

Wo ist denn das Problem?
359° entsprechen 255. 1° entspricht dann also 255/359. Du musst also nur die Grad, die du in "255stel" umrechnen willst, mit 255/359 malnehmen und halt anschließend runden.

Delphi-Quellcode:

function 360to255(Deg: integer): byte;
begin
result := abs(round(Deg * (255 / 359)));
end;

Was die Funktion abs tut steht in der Hilfe. ;)

//edit: OK, dann is halt der Bruch nimmer so schön^^

[Daniel Schuhmann]

359° (und nicht 360°) entsprechen 255, die Zählung beginnt bei beiden Werten bei 0 (0° ist ja dasselbe wie 360°)