Thema: Delphi Sinus Kurve für Newbie

Einzelnen Beitrag anzeigen

MikeS

Registriert seit: 3. Mai 2003
Ort: München
157 Beiträge
 
Delphi 7 Professional
 
#2

Re: Sinus Kurve für Newbie

  Alt 15. Feb 2004, 17:34
mit MoveTO legst du den Startpunkt fest und mit LineTo das Ende. zwischen MoveTO und LineTo ist nach dem ausführen eine Gerade!
um eine Sinuskurve zu zeichnen könntest du in einer for schleife von 0 bis x zählen in dan sin i ausrechnen!

das könnte dann ungetestet wie folgt aussehen:

Delphi-Quellcode:
[..]

altx := 0; alty := 0;
x1 := einstellbar;
x2 := einstellbar;

for i := x1 to x2 do
begin
  y := sin(i);
  image1.canvas.moveto(altx, alty);
  image1.canvas.lineto(i, y);
  altx := i;
  alty := y;
end;
Mike Schröder
Fleiß kann man vortäuschen, faul muss man schon selber sein!
  Mit Zitat antworten Zitat