% Adapted by PhysicsGraph from “Right-hand rule and vector cross product.”
% Original author: Izaak Neutelings
% Source: https://tikz.net/righthand_rule/
% License: Creative Commons Attribution-ShareAlike 4.0 International

\tikzset{>=latex}
\colorlet{brownskin}{pink!5!brown!45}
\colorlet{Bcol}{violet!90}
\colorlet{Icol}{blue!70!black}
\tikzset{
  BField/.style={->, line width=2, Bcol},
  current/.style={->, Icol},
}

\begin{tikzpicture}[scale=1.0]
  \coordinate (O) at (1.1,0.2);
  \coordinate (WT) at ( 2.9,-1.1);
  \coordinate (T1) at ( 2.3, 0.7);
  \coordinate (T2) at ( 1.75, 2.3);
  \coordinate (T3) at ( 2.0, 3.1);
  \coordinate (T4) at (1.38, 3.15);
  \coordinate (T5) at ( 0.9, 2.3);
  \coordinate (T6) at ( 0.85, 1.2);
  \coordinate (T7) at ( 0.9, 0.2);
  \coordinate (I1) at (-0.1, 1.4);
  \coordinate (I2) at (-1.3, 1.2);
  \coordinate (I3) at (-1.6, 0.5);
  \coordinate (I4) at (-0.7,-0.4);
  \coordinate (I5) at ( 0.1,-0.6);
  \coordinate (I6) at ( 0.1,-0.05);
  \coordinate (I7) at (-0.4,0.19);
  \coordinate (I8) at (-1.0, 0.9);
  \coordinate (M1) at (-1.8,-0.1);
  \coordinate (M2) at (-0.8,-1.0);
  \coordinate (M3) at ( 0.1,-1.15);
  \coordinate (R1) at (-1.8,-0.8);
  \coordinate (R2) at (-0.9,-1.6);
  \coordinate (R3) at (-0.0,-1.7);
  \coordinate (R4) at ( 0.0,-1.1);
  \coordinate (P1) at (-1.9,-1.4);
  \coordinate (P2) at (-1.0,-2.1);
  \coordinate (P3) at (-0.3,-2.15);
  \coordinate (W1) at ( 0.4,-2.9);
  \coordinate (W2) at ( 1.6,-3.5);

  \fill[brownskin]
    (WT) -- (T6) -- (I2) -- (P2) -- (W1) -- (W2) to[out=25,in=-90] cycle;
  \draw[fill=brownskin]
    (WT) to[out=120,in=-60]
    (T1) to[out=120,in=-90]
    (T2) to[out=80,in=-110]
    (T3) to[out=80,in=50,looseness=1.5]
    (T4) to[out=-130,in=80]
    (T5) to[out=-100,in=70]
    (T6) to[out=-100,in=100]
    (T7)
    (T6) --
    (I1) to[out=170,in=15]
    (I2) to[out=-165,in=140,looseness=1.2]
    (I3) to[out=-60,in=140,looseness=0.8]
    (I4) to[out=-40,in=180,looseness=0.4]
    (I5) to[out=20,in=-30,looseness=1.3]
    (I6) to[out=150,in=-20]
    (I7) to[out=120,in=-30]
    (I8)
    (I7) to[out=160,in=-15]++ (162:0.18)
    (I3) to[out=180,in=140,looseness=0.9]
    (M1) to[out=-60,in=150,looseness=0.8]
    (M2) to[out=-30,in=175,looseness=0.4]
    (M3) to[out=-5,in=-15,looseness=1.5]
    (I5)
    (M1) to[out=-130,in=135,looseness=1.2]
    (R1) to[out=-45,in=160,looseness=0.9]
    (R2) to[out=-20,in=180,looseness=0.4]
    (R3) to[out=0,in=-15,looseness=1.5]
    (M3)
    (R1) to[out=-150,in=130]
    (P1) to[out=-50,in=165]
    (P2) to[out=-15,in=180,looseness=0.9]
    (P3) to[out=0,in=-35,looseness=1.5]
    (R3)
    (P2) to[out=-35,in=145]
    (W1) to[out=-35,in=160]
    (W2);

  \draw[very thin] (T5)++(-80:0.3) to[out=40,in=180]++ (25:0.45);
  \draw[very thin] (I4)++(135:0.1) to[out=100,in=-110]++ (80:0.4);
  \draw[very thin] (M2)++(130:0.1) to[out=100,in=-110]++ (80:0.4);
  \draw[very thin] (R2)++(140:0.1) to[out=95,in=-110]++ (80:0.4);
  \draw[very thin] (P2)++(145:0.1) to[out=95,in=-110]++ (85:0.4);
  \draw[very thin] (I8)++(-33:0.55) to[out=50,in=-90]++ (70:0.6);
  \draw[very thin] (I7)++(-5:0.2) to[out=70,in=-80]++ (80:1.1);
  \draw[very thin] (W2)++(70:1.4) to[out=-175,in=-40]++ (160:1.4);

  \def\Rx{2.4}
  \def\Ry{0.7}
  \draw[very thick]
    (O)++(-108.5:3.6) --++ (78:7.1);
  \draw[current,very thick]
    (O)++(106:1.2) --++ (78:2.1)
    node[midway,left,scale=1.5] {$\vec{B}_{\rm ind.}$};
  \draw[BField,rotate=-15]
    (O)++(-250:{\Rx} and {\Ry}) arc (-250:-80:{\Rx} and {\Ry})
    node[right,scale=1.5] {$I_{\rm ind.}$};
\end{tikzpicture}
