Guten morgen....
ich hab mal wieder ein Problem:
Ich möchte eine Kreisbahn darstellen. Diese Kreisbahn soll in einer Procedure stehen und um ein Objekt liegen...(die Sonne).
Ich hatte schon mal angefangen nur irgendwie fehlt mir etwas, damit es auch eine Kreisbahn wird:
Delphi-Quellcode:
procedure erdbahn(x,y: integer);
var i: integer;
wi: real;
begin
for i:=1 to 180 do
begin
wi:=pi/180;
x:=round(i*cos(wi));
y:=round(i*sin(wi));
form1.Canvas.Pixels[x,y]:=clgreen;
end;
end;
Delphi stellt immer ein Strich dar und keine Kreisbahn. X soll den Wert 240 und Y 120 sein. Das sind die einzigen Vorgaben.
Danke im Voraus für eure Hilfe.
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]