|
Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
Delphi 2009 Professional
|
Re: Rotierenden Vektor ausgeben
21. Jan 2004, 10:12
Hallo,
schau mal dort nach  http://www.delphipraxis.com/topic520...ght=sonne+mond
In meinem Beispiel rotiert die Erde um die Sonne und der Mond um die Erde.
Delphi-Quellcode:
FXmoveEarth:=Xm+Round((FSun.Width-25)*sin(2*Pi*FTime/360));
FYmoveEarth:=Ym+Round((FSun.Width-25)*cos(2*Pi*FTime/360));
Der X-Wert wird mit dem sin und der Y-Wert wird mit cos berechnet.
|