also danke erstmal für die antworten.
ja, mit der mathematik is nich so dolle bei mir :-/.
glaube ich habe das nen bissel falsch umgesetzt, weil ich den anfang nicht so ganz kapiere:
Delphi-Quellcode:
if (x1 - x2)<>0 then a:=arctan((y1 - y2) / (x1 - x2));
FBitmap.Canvas.LineTo(Round(cos(a-30)), Round(sin(a-30)));
dachte er zeichnet mir jetzt eine seite aber bei den werten kommt quark raus