Taking an X-ray for the Head

This is a drawing of a head viewed from the top. The structures in 3 coronal levels are represented by a definite shape
and color in each level. The head is exposed to an X-ray beam from an X-ray tube. The resulting shadow on an X-ray film is represented in a rectangle beside the main drawing.

It is meant to help professionals in the medical/dental field to use the different elements used to compose their own related drawings.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
\documentclass[tikz,border={10pt 60pt 10pt 10pt}]{standalone}
\usetikzlibrary{decorations.pathmorphing}
% ---------- begin definition xraytube, headtop and 3-level objects
%
% inspired by the comment of samcarter https://tex.stackexchange.com/users/36296
% to my post https://tex.stackexchange.com/questions/713645
% ---------- definitions for lengths of different segments, scaling,
% and rotation angles.
\def\scl{.4}
\def\wda{1}
\def\wdb{2}
\def\wdc{4}
\def\rotm{40}
\def\rotd{-40}
% ---------- definition for drawing an xray tube
\def\xraytube
{%
  \begin{scope}[scale=\scl, opacity=1, line width=.05cm,
    rounded corners=5pt, transform shape, overlay]
    \draw[gray, bottom color=gray, top color=gray!25] (-\wda,0)  --++(-90:\wdc)
       --++(180:\wdb) --++(-90:\wdb) --++(0:\wdb)   --++(0:\wda) --++(0:\wda)
       --++(0:\wdb)   --++(90:\wdb)  --++(180:\wdb) --++(90:\wdc)  --cycle;
    \draw[gray, top color=gray, bottom color=gray!40] (0,-.35) 
      ellipse (1. and 0.5);
\end{scope}
}%
% ---------- definition for drawing a head viewed from the top
\def\headtop
% ---------- modified form https://tex.stackexchange.com/a/74176/213 
% by Tom Bombadil https://tex.stackexchange.com/users/7279
{%
\begin{scope}[scale=2*\scl, line width=.05cm, rounded corners=3pt,
    rotate=0, looseness=1.,overlay]
  \coordinate   (o) at (0,0) {};
  \coordinate  (or) at ([shift={(0.:4.)}]o.center);
  \coordinate  (ot) at ([shift={(86.:1.)}]o.center);
  \coordinate (ort) at ([shift={(95.:1.)}]or.center);
  \coordinate   (x) at ([shift={(56.5:3.6)}]o.center);
  \coordinate  (xt) at ([shift={(90:.3)}]x.center);
  \coordinate  (xl) at ([shift={(180:.34)}]x.center);
  \coordinate  (xr) at ([shift={(0:.34)}]x.center);
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX