I've got almost no time for this image, so the code is just a mess and probably the best example for never-ever-do-it-this-way-code in TikZ, but it works:
\documentclass[12pt, border=0.5mm]{standalone}
\usepackage{graphicx}
\usepackage[ngerman]{babel}
\usepackage[T1]{fontenc}
\usepackage[sc]{mathpazo}
\usepackage{tikz}
\usepackage{pgfplots}
\usepackage{fp}
\usetikzlibrary{fixedpointarithmetic}
\begin{document}
\begin{tikzpicture}[x=0.75mm, y=0.75mm]
\clip[] (-95, -26) rectangle (30, 12);
\def\k{7};
\begin{scope}[rotate={deg(0.5*pi) - atan(1/0.22) - deg(0.03*pi)}]
\draw[red, line cap=round, line width=0.2mm, domain=-5*pi:2*pi, variable=\t, samples=500] plot[fixed point arithmetic] ({\t r}:{\k*exp(0.22*\t)});
\draw[line width=0.1mm, domain=-91:0, variable=\t] plot[fixed point arithmetic] (\t, {tan(deg(1.03*pi))*\t});
\draw[line width=0.1mm] ({0.53*pi r}:{\k*exp(0.22*0.53*pi)}) -- ({1.53*pi r}:{\k*exp(0.22*1.53*pi)});
\draw[line width=0.1mm] ({1.03*pi r}:{\k*exp(0.22*1.03*pi)}) -- ({0.03*pi r}:{\k*exp(0.22*0.03*pi)});
\begin{scope}
\clip[rotate={deg(0.53*pi) + atan(1/0.22)}] (20, 0) rectangle (65, 19.75);
\clip[rotate={deg(0.03*pi)}] (-20, 0) rectangle (-65, -20);
\draw[line width=0.1mm] ({-(\k*exp(0.22*1.53*pi) - \k*exp(0.22*1.03*pi))/sin(atan(0.22)}, 0) -- ({\k*exp(0.22*1.53*pi)*cos(deg(1.53*pi))-(\k*exp(0.22*1.53*pi) - \k*exp(0.22*1.03*pi))/sin(atan(0.22)}, {\k*exp(0.22*1.53*pi)*sin(deg(1.53*pi))});
\draw[line width=0.1mm] ({(-(\k*exp(0.22*1.53*pi) - \k*exp(0.22*1.03*pi))/sin(atan(0.22))-(\k*exp(0.22*1.03*pi) - \k*exp(0.22*0.53*pi))/sin(atan(0.22)}, 0) --
({\k*exp(0.22*1.53*pi)*cos(deg(1.53*pi))-(\k*exp(0.22*1.53*pi) - \k*exp(0.22*1.03*pi))/sin(atan(0.22))-(\k*exp(0.22*1.03*pi) - \k*exp(0.22*0.53*pi))/sin(atan(0.22)}, {\k*exp(0.22*1.53*pi)*sin(deg(1.53*pi))});
\draw[line width=0.1mm] ({((-(\k*exp(0.22*1.53*pi) - \k*exp(0.22*1.03*pi))/sin(atan(0.22))-(\k*exp(0.22*1.03*pi) - \k*exp(0.22*0.53*pi))/sin(atan(0.22))-(\k*exp(0.22*0.53*pi) - \k*exp(0.22*0.03*pi))/sin(atan(0.22)}, 0) -- ({\k*exp(0.22*1.53*pi)*cos(deg(1.53*pi))-(\k*exp(0.22*1.53*pi) - \k*exp(0.22*1.03*pi))/sin(atan(0.22))-(\k*exp(0.22*1.03*pi) - \k*exp(0.22*0.53*pi))/sin(atan(0.22))-(\k*exp(0.22*0.53*pi) - \k*exp(0.22*0.03*pi))/sin(atan(0.22)}, {\k*exp(0.22*1.53*pi)*sin(deg(1.53*pi))});
\end{scope}
\draw[line width=0.2mm, domain=-95:25, variable=\t] plot[fixed point arithmetic] (\t, {tan(deg(0.53*pi)+atan(1/0.22))*\t + \k*exp(0.22*1.53*pi)*sin(deg(1.53*pi)) - tan(deg(0.53*pi)+atan(1/0.22))*\k*exp(0.22*1.53*pi)*cos(deg(1.53*pi))});
\draw[line width=0.1mm, domain={deg(0.53*pi)}:{deg(0.53*pi)+atan(1/0.22)}, samples=100] plot({\k*exp(0.22*1.53*pi)*cos(deg(1.53*pi)) + 5*cos(\x)}, {\k*exp(0.22*1.53*pi)*sin(deg(1.53*pi)) + 5*sin(\x)});
\node[font=\tiny] at (-0.35, -18) {$\gamma_0$};
\node[font=\scriptsize] at (4, -10) {$R$};
\node[font=\scriptsize] at (2, -23) {$P$};
\node[font=\scriptsize] at (-52, -17) {$s(R)$};
\fill[] (0, 0) circle (0.2mm);
\end{scope}
\end{tikzpicture}
\end{document}
I was redrawing this (handdrawn!) picture:
My question is, how to do it right? The code works, but it's nothing to be proud of. I will fix it in future, so this post is mostly a reminder for myself.