Hallo, und zwar hab ich folgenden Code:

markieren

Code:

procedure drehen;
begin
  with Form1.PaintBox2 do
        SetViewportOrgEx(Form1.PaintBox2.Canvas.Handle,20,20,nil);
  trans2d(0,0);
  Form1.PaintBox2.Canvas.MoveTo(Round(x),Round(y));
  trans2d(100,0);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
  trans2d(90,10);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
  trans2d(100,0);
  Form1.PaintBox2.Canvas.MoveTo(Round(x),Round(y));
  trans2d(90,-10);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
end;

procedure trans2d(dx,dy:Single);
var sinus,cosinus:Single;
begin
  sinus:=sin(alpha);
  cosinus:=cos(alpha);
  x:=x0+dx*cosinus-dy*sinus;
  y:=y0+dx*sinus+dy*cosinus;
end;

allerdings wird dabei nicht gezeichnet. Woran liegt das? Wenn ich die Nullpunktverschiebung rauslasse wird gezeichnet!

Gruß Chuqa

Kann das sein, dass das an der Drehung des ersten Punktes also des Ursprungs liegt? Denn wenn wich die Zeile

markieren

Code:

trans2d(0,0)

rausnehmen und stattdessen für den ersten Punkt

markieren

Code:

Form1.PaintBox2.Canvas.MoveTo(0,0);

schreibe klappt es auch wunderbar. Aber warum?

Gruß Chuqa

Hallo,

Du rechnest da was mit dem Winkel alpha aus - wo kommt der denn her?

Gruß
Harald

Den hatt ich als Konstante global vereinbart. Hat den Wert Pi/4 gehabt. Inzwischen kommt der Wert allerdings von einem SpinEdtit. Wie gesagt, wenn ich ich die Drehung des ersten Punktes rauslasse, funktioniert alles wunderbar. Kann es sein, dass durch die Drehung des Ursprungs das gesamte koordinatensystem um eben diese Pi/4 gedreht wird?

Gruß Chuqa

Eigentlich verschiebst Du ja nix beim ersten Aufruf - Du rufst tran2d mit (0, 0) auf ... da kommt dann wieder x0, y0 raus - oder?

Gruß
Harald

Ja im Prinzip schon, aber wenn ich den Eintrag drin lasse, erscheint in der PaintBox dann nichts. Wenn ich den Koordinatenursprung dann umsetze z.B.

markieren

Code:

with Form1.PaintBox2 do
        SetViewportOrgEx(Canvas.Handle,0,10,nil);

dann ist die Zeichnung zwar verschoben, aber nicht mehr komplett. wenn ich dann die y-Koordinate noch weiter erhöhe, wandert das Pfeil langsam aus der Paintbox hinaus bis er schließlich bei ca. 50 gar nicht mehr zu sehen ist.

Gruß Chuqa