- var
 - a,b,c,v1,v2:=TVector3e;
 - w: single; // winkel
 - f: single; // streckfaktor (strecke b,c = f * strecke a,b)
 - begin
 - // erzeugen der verlängerten Strecke
 - v1:=VectorScale(VectorSubtract(b,a),f);
 - // rotation der Strecke um die x-achse (dafür hat die geometry.pas leider keine funktion)
 - v2[1]:=v1[1]*cos(w)+v1[2]*sin(w);
 - v2[2]:=v1[2]*cos(w)-v1[1]*sin(w);
 - // ansetzen der rotierten strecke an b
 - c:=VectorAdd(b,v2);
 - end;
 

