How do I draw a projection of specified length, parallel to another line, between two sides of a triangle in TikZ?

Question

I am trying to draw something called an "Ossanna circle" in PGF.

Here is my MWE. Forgive its size -- you need all the intermediate points to get the points that we need for this question:

\documentclass[a4paper,11pt,titlepage,preview=false,tikz=true,class=scrartcl]{standalone}

\usepackage[urw-garamond]{mathdesign}
\usepackage[T1]{fontenc}

\usepackage{amsmath} % amssymb ist schon in mathdesign enthalten

\usepackage{fontspec}
\setmainfont{GaramondNo8}

\usepackage[ngerman]{babel}
\usepackage{tikz}
\usetikzlibrary{arrows}
\usetikzlibrary{calc,intersections,through,backgrounds}

\begin{document}

\begin{tikzpicture}[scale=1,domain=0:1]
    \coordinate (O) at (0,0);
    \coordinate (Un) at (0,193.55/50);
    \coordinate (I0) at (90-85.6:12.5/10);
    \coordinate (IK) at (180-122:133.53/10);
  \draw[font=\normalsize,<-] (-0.1,0) -- (20,0) node(IM)[right=3pt] {\text Im}; %{$\text$}; imaginary axis
  \draw[font=\normalsize,->] (0,-0.1) -- (0,20) node(RE)[above=2pt] {\text Re} ; % real axis
  \draw[thick,color=blue,->] (O) -- (Un) node[above=2pt,left=2pt] {$\text U_n$}; % rated voltage
  \draw[thick,color=red,->] (O) -- (I0) node[above=2pt,right=2pt] (Leerlaufstrom) {$\text I_0$}; % no-load current
  \draw[thick,color=red,->] (O) -- (IK) node[above=2pt,right=2pt] (Kurzschlussstrom) {$\text I_k$}; % blocked rotor current
  \draw[thin,dotted] (I0) -- (IK); % dotted line between tips of I_0 and I_K
  \coordinate (S) at ($(I0)!.5!(IK)$); % point halfway between tips of I_0 and I_K, new point is called S
  \coordinate (S0) at ($ (S) !1.5! 90:(IK) $); % new point S0, turned -90° from line between S and I_K and 1.5 times as long as I_K to S
  \coordinate (S1) at ($ (S) !1.5! -90:(IK) $); % new point S1, turned -90° from line between S and I_K and 1.5 times as long as I_K to S 
  \coordinate (S2) at ($ (IK) !1! 58:(O) $); % new point S2, turned 58° from line between I_K and origin O and 1 times as long as I_K to O 
  \draw[thin,dotted] (S0) -- (S1); % dotted line between S0 and S1 (bisector)
  \draw[thin,dotted] (IK) -- (S2); % dotted line between I_K and S2
  \path[name path=S0--S1] (S0) -- (S1); % labeling of bisector path as S0--S1
  \path[name path=IK--S2] (IK) -- (S2); % labeling of path I_K to S2 als IK--S2
  \path[name intersections={of=S0--S1 and IK--S2,by={[label=left:M]M}}]; % definition of intersection of the two lines as M, with label
  \fill[red] (M) circle (1.5pt); % drawing of point M as circle of diameter 1.5 pt, red fill
  \node (KR) [name path=KRI,draw,thick,dotted,circle through=(IK)] at (M) {}; % Ossanna circle through tip of I_K with M as centre
  \path[name path=IK--IM,draw,thin] (IK) -- (IK |- IM); % perpendicular from IK to the imaginary axis
  \coordinate (P1) at ($ (IK |- IM) !0.5! (IK)$); % Power P1
  \draw[thick,->] (IK |- IM) -- (P1) node[above=2pt,left=2pt] {$\text P_1$}; % P1 line
  \path[name path=I0--P1,draw,thin] (I0) -- ($ (I0) !3! (P1) $); % path over I0 and P1 to circle
  \path[name intersections={of=I0--P1 and KRI,by={[label=right:$\text S_\infty$]SINF}}]; % definition of intersection as S_infinity
  \fill[black] (SINF) circle (1.5pt); % drawing of point S_infinity
  \path[name path=O--RAND] ($ (0,0) !0.5! -20:(IM) $) -- ($ (0,0) !1! -20:(IM) $); % random line from origin
  \path[name intersections={of=O--RAND and KRI,by={[label=right:$\text {Wow}$]RAND}}]; % "random" intersection of line and circle
  \fill[green] (RAND) circle (1.5pt); % drawing of random point in green
  \path[name path=RAND--SINF,draw,thin] (RAND) -- ($ (RAND) !1.25! (SINF) $); % line from random point to S_infinity
  \node at (IK) [above=3pt,left=5pt] {$\text S_{\text I_k}$}; % labeling of S_IK
  \fill[black] (IK) circle (1.5pt); % drawing of point S_IK
  \path[name path=I0--RAND,draw,thin] (I0) -- (RAND); % drawing of line from random point to no-load current
  \path[name path=RAND--IK,draw,thin] (RAND) -- ($ (RAND) !1.25! (IK) $); % line from random point to blocked rotor current

\end{tikzpicture}
\end{document}

The result looks like this:

Here is my challenge: I want to draw a line parallel to RAND--SINF, which touches both RAND--IK and RAND--I0, except that this line has to be exactly 10 cm (or units) long.

How can I do this?

Answer 1

As DJP said, tkz-euclide is great for this. It allows you to construct the whole thing very comfortably, and it can easily calculate the angles necessary to construct the 10cm parallel line:

\documentclass[]{standalone}
\usepackage{tkz-euclide}
\usetkzobj{all}


\usepackage{tikz}
\usetikzlibrary{arrows}
\usetikzlibrary{calc,intersections,through,backgrounds}
\usepackage{amsmath}

\begin{document}
\begin{tikzpicture}[scale=1,domain=0:1]

% Define known points
\tkzDefPoint(0,0){O}
\tkzDefPoint(1,0){I}
\tkzDefPoint(0,1){R}
\tkzDefPoint(0,193.55/50){Un}
\tkzDefPoint(90-85.6:12.5/10){I0}
\tkzDefPoint(180-122:133.53/10){Ik}

% Draw lines (just for illustration, not needed for the construction)
\tkzDrawSegment[thick, red](O,Ik)
\tkzDrawSegment[thick, red](O,I0)
\tkzDrawLine[add=0 and 20](O,I)
\tkzDrawLine[add=0 and 20](O,R)

% Define points describing mediator of I0 and Ik, draw line for illustration
\tkzDefLine[mediator](I0,Ik) \tkzGetPoints{A}{B}
\tkzDrawLine[dashed, gray!50, add=-0.2 and 0](A,B)

% Define a point by rotating Ik--O by 58 degrees around O
\tkzDefPointBy[rotation=center Ik angle 58](O) \tkzGetPoint{C}

%Draw line for illustration
\tkzDrawLine[dashed, gray!50](Ik, C)

% Find intersection of Ik--C and A--B, save as M
\tkzInterLL(Ik,C)(A,B) \tkzGetPoint{M}

% Find projection of Ik onto imaginary axis, save as D
\tkzDefPointBy[projection=onto O--I](Ik) \tkzGetPoint{D}
% Find halfway point between D and Ik, save as P1
\tkzDefPointWith[linear,K=0.5](D,Ik) \tkzGetPoint{P1}

% Draw Ossanna circle for illustration
\tkzDrawCircle(M,Ik)
% Find Sinf as intersection between Ossanna circle
\tkzInterLC(I0,P1)(M,Ik) \tkzGetPoints{Sinf'}{Sinf}

% Random point
\tkzDefPoint(-20:1){RND}

% Find intersection between O--RND and Ossanna circle
\tkzInterLC(O,RND)(M,Ik) \tkzGetPoints{Wow}{Wow'}

% Mark angles that we need to measure for illustration
\tkzDrawSegments(Wow,Sinf Wow,I0 Wow,Ik)
\tkzMarkAngle(Ik,Wow,I0)
\tkzMarkAngle[size=1.5, fill=orange](Sinf,Wow,Ik)
\tkzLabelAngle(Ik,Wow,I0){$\gamma$}
\tkzLabelAngle[pos=1.5](Sinf,Wow,Ik){$\beta$}

% Measure and save angles
\tkzFindAngle(Ik,Wow,I0)
\tkzGetAngle{gamma}
\tkzFindAngle(Sinf,Wow,Ik)
\tkzGetAngle{beta}

% Calculate length \a in pt along Wow--I0 at which our slip line starts if we want it to be 10cm long
\pgfmathsetmacro\a{10cm * sin(\beta)/sin(\gamma)}
% Find point E at which the slip line starts
\tkzInterLC[R](Wow,I0)(Wow,\a pt) \tkzGetPoints{E'}{E}
% Find point F at which the slip line ends
\tkzInterLC[R](Wow,Ik)(E,10cm) \tkzGetPoints{F}{F'}
% Draw slip line
\tkzDrawSegment[ultra thick, blue](E, F)

% Show the equivalent angle beta for illustration
\tkzMarkAngle[size=1.5, fill=orange](E,F,Wow)

\tkzDrawPoints(O,Un,I0,Ik,P1,M, Sinf, Wow, E)
\tkzLabelPoints(O,Un,I0,Ik, M, P1, Sinf, Wow)

\end{tikzpicture}
\end{document}