- 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;