spin cube 2d - zwei dimensionale rotation

[jokerfacehro]

hi
dieses programm habe ich aus interesse an der 2d rotaion geproggt.
es dient der reinen veranschaulichung.

funktionen:
darstellung:
z.B. Sanduhr, kreuze etc.

und

positionierung einmal per eingabe und mit rechter maustaste
skalierung

repaint ein/aus ^^

ich versuche den quelltext sobald wie möglich hoch zu laden

die hauptfunktion ist:

Delphi-Quellcode:

function get_cos_sin(radius,angle:double;x_or_y_pos:integer;cos_or_sin:String):integer;
var pi:double;
begin
pi:=3,142; //egal jetzt ^^
if(cos_or_sin='cos')then
 result:=floor(radius*cos(angle*pi/180)+x_or_y_pos)
else if(cos_or_sin='sin')then
 result:=floor(radius*sin(angle*pi/180)+x_or_y_pos);
end;

so jetzt müsst ihr diese funktion nur noch auf x und y koordinate anwenden und
könnt so jegliche 2d rotation durchführen

viel spaß damit !