Zitat von
Helmi:
Wäre ein angebbarer Y-Scheitelwert kompliziert?
Läuft auf eine quadratische Gleichung hinaus, nehmen wir vielleicht doch was Einfacheres
.
Wie wäre es mit einer
quadratischen Bezier-Kurve? Dort hast du neben Start- und Endpunkt noch einen dritten Punkt, dem sich die Kurve annähert. Simpel, aber trotzdem hübsch
.
Delphi-Quellcode:
procedure TSplashScreenForm.Timer_BewegungTimer(Sender: TObject);
var
t: Real;
begin
If Count < 10 then
begin
t := Count / 10;
Left := Round(Sqr(1-t) * P0.X + 2 * t * (1-t) * P1.X + Sqr(t) * P2.X);
Top := ...