Forum: Multimedia
Delphi
by Uwe Raabe,
11. Apr 2014
Du dividierst zu oft!
mpunkt.x := 0;
mpunkt.y := 0;
For i:=0 to Dreiecke.Count-1 do
begin
tmp_dr := Dreiecke.Items;
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
Forum: Multimedia
Delphi
by Uwe Raabe,
11. Apr 2014
Gib der Methode Drehen noch den Drehpunkt mit - also quasi den m_punkt, den du zur Zeit noch selbst berechnest. Alle Dreiecke drehst du dann um denselben Punkt. Das sollte irgendwie der Mittelpunkt des Raumschiffs sein, wie auch immer du den ermittelst.