Man könnte folgende Prozedur verwenden, um zwei Linien in einem bestimmten Winkel zueinander zu zeichnen (ungetestet):
Delphi-Quellcode:
uses Math;
...
procedure Linien_mit_Winkel(x1, y1, x2, y2: Integer; winkel: Double);
var alpha, len, si,co: Double;
begin
len:= sqrt(sqr(x1-x2)+sqr(y1-y2));
alpha:= winkel+ arctan((y2-y1)/(x2-x1));
SinCos(alpha, si, co);
with Form1.Paintbox1.Canvas do begin
MoveTo(x2, y2);
LineTo(x1, y1);
LineTo( Round(x1+ len*c), Round(y1+ len*s));
end;//with
end;//proc
Zu den Parametern:
x1, y1: Koordinaten des Anfangspunktes der Grundlinie
x2, y2: Koordinaten des Endpunktes der Grundlinie
winkel: Winkel zwischen beiden Linien (im Bogenmaß!)
MfG
Binärbaum