Mehrere Dreiecke zusammen drehen

[Uwe Raabe]

Zitat von Astobix:

Die Idee hatte ich auch schon, aber dabei habe ich anscheinend ein paar Fehler gemacht. Ich hatte mir eine Dreieckgruppe erstellt und dort mit folgendem Code den Mittelpunkt der Dreieck ausgerechnet:

Delphi-Quellcode:

For i:=Dreiecke.Count-1 downto 0 do
 begin
  tmp_dr := Dreiecke.Items[i];
  mpunkt.x := mpunkt.x + (tmp_dr.A.x+tmp_dr.B.x+tmp_dr.C.x)/3;
  mpunkt.y := mpunkt.y + (tmp_dr.A.y+tmp_dr.B.y+tmp_dr.C.y)/3;               //Mittelpunkt der Gruppe ausrechnen
  mpunkt.x := mpunkt.x/Dreiecke.Count;
  mpunkt.y := mpunkt.y/Dreiecke.Count;
 end;

Du dividierst zu oft!

Delphi-Quellcode:

mpunkt.x := 0;
mpunkt.y := 0;
For i:=0 to Dreiecke.Count-1 do
  begin
    tmp_dr := Dreiecke.Items[i];
    mpunkt.x := mpunkt.x + (tmp_dr.A.x+tmp_dr.B.x+tmp_dr.C.x)/3;
    mpunkt.y := mpunkt.y + (tmp_dr.A.y+tmp_dr.B.y+tmp_dr.C.y)/3;               //Mittelpunkt der Gruppe ausrechnen
  end;
mpunkt.x := mpunkt.x/Dreiecke.Count;
mpunkt.y := mpunkt.y/Dreiecke.Count;