Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#4

Re: Stern zeichnen mit line to und move to

  Alt 25. Okt 2009, 14:03
Der Ansatz ist nicht schlecht, du musst aber bei dem Zeichnen vom Mittelpunkt ausgehen.

Delphi-Quellcode:
for i :=1 to Anzahl_Punkte do
  begin
    if x=0 then
    begin
      xi:=trunc (xm + ri*cos(i*winkelstueck)); // <--<<
      yi:=trunc (ym + ri*sin(i*winkelstueck)); // <--<<
      Image1.Canvas.LineTo(xi, yi)
    end else
    begin
      xi:=trunc (xm + ra*cos(winkelstueck)); // <--<<
      yi:=trunc (ym + ra*sin(winkelstueck)); // <--<<
      image1.Canvas.lineto(xi, yi);
    end;
  end;
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat