% 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

\begin{tikzpicture}[scale=1.0,>=latex]
\usetikzlibrary{angles,quotes}
\colorlet{brownskin}{pink!5!brown!45}
\colorlet{Bcol}{violet!90}
\colorlet{BFcol}{red!60!black}
\colorlet{veccol}{green!45!black}
\tikzset{
BField/.style={->,line width=2,Bcol},
force/.style={->,line width=2,BFcol},
velocity/.style={->,line width=2,veccol},
charge-/.style={very thin,draw=black,top color=blue!35,bottom color=blue!80!black,shading angle=20,circle,inner sep=0.5},
right angle mark/.style={draw=black,line width=0.9,fill=none}
}
\coordinate (O) at (1.0,0.7);
\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.85,0.2);
\coordinate (I1) at (-1.1,2.45);
\coordinate (I2) at (-2.9,3.45);
\coordinate (I3) at (-3.3,2.9);
\coordinate (I4) at (-1.5,1.8);
\coordinate (I5) at (-0.9,1.1);
\coordinate (I6) at (-0.9,0.3);
\coordinate (M1) at (-2.1,0.9);
\coordinate (M2) at (-3.95,0.55);
\coordinate (M3) at (-4.0,-0.15);
\coordinate (M4) at (-2.3,0.05);
\coordinate (M5) at (-1.1,0.20);
\coordinate (R1) at (-1.9,-0.1);
\coordinate (R2) at (-1.8,-0.7);
\coordinate (R3) at (-0.3,-1.5);
\coordinate (R4) at (0.1,-1.7);
\coordinate (R5) at (0.1,-1.0);
\coordinate (R6) at (-0.5,-0.7);
\coordinate (R7) at (-1.2,-0.3);
\coordinate (P1) at (-1.9,-1.3);
\coordinate (P2) at (-0.8,-1.9);
\coordinate (P3) at (-0.2,-2.1);
\coordinate (P4) at (-0.05,-1.65);
\coordinate (W1) at (0.4,-2.9);
\coordinate (W2) at (1.6,-3.5);
\fill[brownskin]
(WT) -- (T6) -- (I5) -- (M5) -- (R2) -- (P2) -- (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) to[out=150,in=-30]
(I1) to[out=150,in=-30]
(I2) to[out=150,in=145,looseness=1.7]
(I3) to[out=-30,in=150]
(I4) to[out=-30,in=105]
(I5) to[out=-75,in=90]
(I6)
(I5) to[out=-170,in=10]
(M1) to[out=-170,in=10]
(M2) to[out=-170,in=-175,looseness=1.8]
(M3) to[out=5,in=-170]
(M4) to[out=10,in=-170]
(M5)
(M5) to[out=-160,in=50]
(R1) to[out=-130,in=140,looseness=1.2]
(R2) to[out=-30,in=160]
(R3) --
(R4) to[out=-20,in=-20,looseness=1.5]
(R5) --
(R6) to[out=140,in=8,looseness=0.9]
(R7)
(R2) to[out=-160,in=155]
(P1) to[out=-35,in=150]
(P2) to[out=-30,in=160]
(P3) to[out=-20,in=-30,looseness=1.5]
(R4)
(P2) to[out=-50,in=140]
(W1) to[out=-40,in=160]
(W2);
\draw[very thin] (T5)++(-80:0.3) to[out=40,in=180]++(25:0.45);
\draw[very thin] (I1)++(180:0.2) to[out=-160,in=90]++(-130:0.6);
\draw[very thin] (I1)++(155:1.3) to[out=-150,in=80]++(-130:0.55);
\draw[very thin] (M4)++(30:0.2) to[out=80,in=-65]++(95:0.5);
\draw[very thin] (M3)++(10:0.8) to[out=80,in=-75]++(90:0.45);
\draw[very thin] (M5)++(-140:0.1) to[out=-20,in=90]++(-54:0.8);
\draw[very thin] (R6) to[out=160,in=10]++(180:0.2);
\draw[very thin] (R3)++(155:0.5) to[out=120,in=-100]++(100:0.2);
\draw[very thin] (P2)++(140:0.1) to[out=95,in=-110]++(80:0.4);
\draw[very thin] (I5)++(-40:0.45) to[out=-70,in=90]++(-70:1.7);
\draw[very thin] (P3)++(-155:0.05) to[out=-120,in=40]++(-130:0.2);
\draw[very thin] (W2)++(70:1.4) to[out=-175,in=-40]++(160:1.4);
\def\R{0.32}
\coordinate (Ftip) at ($(O)+(-98:3.2)$);
\coordinate (Vtip) at ($(O)+(148:3.3)$);
\coordinate (Btip) at ($(O)+(-172:3.47)$);
\draw[force] (O) -- (Ftip)
node[right,scale=1.5] {$\vec{F}$};
\draw[velocity] (O) -- (Vtip)
node[above left,scale=1.5] {$\vec{v}$};
\draw[BField] ($(O)+(-172:0.7*\R)$) -- (Btip)
node[below left,scale=1.5] {$\vec{B}$};
\draw[charge-] (O) circle (\R) node[scale=1.4] {$-$};
\end{tikzpicture}
