Hallo,
stimmt. Das Beispiel ist auch gut.
Das sind die Formeln für die Berechnung der Erdbahn:
Delphi-Quellcode:
FXmoveEarth:=Xm+Round((FSun.Width-40)*sin(2*Pi*FTime/360));
FYmoveEarth:=Ym+Round((FSun.Width-40)*cos(2*Pi*FTime/360));
Darin ist FSun.Width-40 der Radius. Die Kreisbahn ist hier ein Sonderfall!!! Und zwar genau der Sonderfall, wenn beide Radien gleich sind. Wenn die Radien unterschiedlich sind, bewegt sich die Erde auf einer Ellipse.
Das ganze geht auch noch weiter. Wenn Du in den Formeln unterschiedliche Frequenzen verwendest bewegt sich die Erde entlang einer Lissajou-Figur.