% Supersonic technical drawing
% Author: Michele Muccioli
\documentclass{standalone}
\usepackage{tikz}
\usetikzlibrary{calc,patterns,arrows,shapes.arrows,intersections}
\usetikzlibrary{decorations}
\usepackage{wasysym}
\usepackage{siunitx}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% SECTION PATTERN DEFINITION %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newlength\thickness
\pgfdeclarepatternformonly[\thickness]{section}
{\pgfpointorigin}
{\pgfpoint{1cm}{1cm}}
{\pgfpoint{1cm}{1cm}}
{
\pgfsetlinewidth{\thickness}
\pgfpathmoveto{\pgfpoint{0cm}{0cm}}
\pgfpathlineto{\pgfpoint{1cm}{1cm}}
\pgfpathclose
\pgfsetlinewidth{\thickness}
\pgfpathmoveto{\pgfpoint{0cm}{.5cm}}
\pgfpathlineto{\pgfpoint{.5cm}{1cm}}
\pgfpathclose
\pgfsetlinewidth{\thickness}
\pgfpathmoveto{\pgfpoint{.5cm}{0cm}}
\pgfpathlineto{\pgfpoint{1cm}{.5cm}}
\pgfusepath{stroke}
}

\tikzset{
thickness/.store in = \thickness,
thickness           = 0.5pt
}
%%%%%%%%%%%%%%%%%%%%%%%%%
% DIMENSION DECORATIONS %
%%%%%%%%%%%%%%%%%%%%%%%%%
\makeatletter
%-> New if
\newif\if@dim@connection

%-> New TeX dimensions
\newdimen\dim@x
\newdimen\dim@y
\newdimen\dim@sep
\newdimen\dim@overline
\newdimen\dim@overlineI
\newdimen\dim@overlineII
\newdimen\dim@text@translation

% x=, y=
%\newif\iftikz@isdimension
%\def\tikz@checkunit#1{%
%  \pgfmathparse{#1}%
%  \let\iftikz@isdimension=\ifpgfmathunitsdeclared%
%}
%\tikz@checkunit{1}
%\iftikz@isdimension
%true
%\else
%false
%\fi

% output scale
%  \pgf@pt@x=\pgf@x%
%  \pgf@pt@y=\pgf@y%
%  \let\pgf@pt@aa=\pgf@tempaa%
%  \let\pgf@pt@ba=\pgf@tempba%
%  \let\pgf@pt@ab=\pgf@tempab%
%  \let\pgf@pt@bb=\pgf@tempbb%
%  \def\pgf@trans@idtest{#1,#2,#3,#4}%
%  \ifx\pgf@trans@idtest\pgf@trans@idtext%
%  \else%
%    \pgf@pt@identityfalse%->\ifpgf@pt@identity
%  \fi%

%-> Horizontal dimension
\pgfdeclaredecoration{Hdim}{final}{%
\state{final}{%
% Setting needed dimensions from pgfkeys values.
\tikz@checkunit{\pgfkeysvalueof{/pgf/decoration/distance}}
\iftikz@isdimension
	\pgfmathsetlength{\dim@sep}{\pgfkeysvalueof{/pgf/decoration/distance}}
\else
	\pgfmathsetlength{\dim@sep}{\pgfkeysvalueof{/pgf/decoration/distance}*\pgf@yy}
\fi
\pgfmathsetlength{\dim@x}{\pgfdecoratedpathlength*cos(\pgfdecoratedangle)}
\pgfmathsetlength{\dim@y}{\pgfdecoratedpathlength*sin(\pgfdecoratedangle)}
\pgfmathsetlength{\dim@overline}{\pgfkeysvalueof{/pgf/decoration/overline}}
\pgfmathsetlength{\dim@text@translation}{\pgfkeysvalueof{/pgf/decoration/text translation}}
% Setting text to write from pgfkeys value.
\def\dim@text{\pgfkeysvalueof{/pgf/decoration/text}}
% The overline verse (where it points. Positive or negative) depends
% on dimension sep and angle of the segment to dimension.
\ifdim0pt<\dim@sep
	% Case with positive dimension sep.
	% Normal behaviour.
	\pgfmathsetlength{\dim@overlineI}{\dim@overline}
	\pgfmathsetlength{\dim@overlineII}{\dim@overline}
\else
	% Case with negative dimension sep.
	% The value of dimension overline I is different from
	% dimension overline II and it depends on the
	% quadrant where the the segment is.
	\pgfmathparse{abs(\dim@sep)<abs(\dim@y)}
	\if\pgfmathresult1
		% true
		\ifnum180<\pgfdecoratedangle
			\pgfmathsetlength{\dim@overlineI}{-\dim@overline}
			\pgfmathsetlength{\dim@overlineII}{\dim@overline}
		\else
			\pgfmathsetlength{\dim@overlineI}{\dim@overline}
			\pgfmathsetlength{\dim@overlineII}{-\dim@overline}
		\fi
	\else
		% false
		\pgfmathsetlength{\dim@overlineI}{-\dim@overline}
		\pgfmathsetlength{\dim@overlineII}{-\dim@overline}
	\fi
\fi
% Set to rotation transformation because we want dimension
% only the horizontal distance between two points.
\pgftransformrotate{-\pgfdecoratedangle}
% The drawing depends on segment to dimension orientation
\ifnum180<\pgfdecoratedangle
	% FIRST POINT HIGHER
	%
	% Node drawing. It can be translate along the path with
	% text translation option.
	{
 	\pgftransformshift{\pgfpoint{\dim@x/2+\dim@text@translation}{\dim@sep}}
	% Capturing the TikZ picture font size
	\dim@text@font
	\pgfnode{rectangle}{south}{\dim@text}{\dim@text@nodename}{\pgfusepath{discard}}
	}
	% Drawing the connection segments.
	\pgfpathmoveto{\pgfpoint{0pt}{\dim@sep+\dim@overlineI}}
	% Check if the first connection line must be drawn.
	\if@dim@connection
		\pgfpathlineto{\pgfpoint{0pt}{0pt}}
	\else
		\pgfpathlineto{\pgfpoint{0pt}{\dim@sep-\dim@overlineI}}
	\fi 
	\pgfpathmoveto{\pgfpoint{\dim@x}{\dim@sep+\dim@overlineII}}
	% Check if the second connection line must be drawn.
	\if@dim@connection
		\pgfpathlineto{\pgfpoint{\dim@x}{\dim@y}}
	\else
		\pgfpathlineto{\pgfpoint{\dim@x}{\dim@sep-\dim@overlineII}}
	\fi
	% Draw an extra line if node text lies outside of the
	% dimension.
	\pgfmathparse{abs(.5\dim@x)<abs(\dim@text@translation)}
	\if\pgfmathresult1
		% Dimension label outside.
		\ifdim0pt<\dim@text@translation
			% Text lies on right.
			\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south east}}
			\pgfpathlineto{\pgfpoint{\dim@x}{\dim@sep}}
		\else
			% Text lies on left.
			\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south west}}
			\pgfpathlineto{\pgfpoint{0pt}{\dim@sep}}
		\fi
	\fi
	% Draw the dimension segments with arrows.
	\pgfsetarrowsstart{\dim@arrow@type}
	\pgfsetarrowsend{\dim@arrow@type}
	\pgfpathmoveto{\pgfpoint{0pt}{\dim@sep}}
	\pgfpathlineto{\pgfpoint{\dim@x}{\dim@sep}}
	% Finally put all the stuff on paper.
	\pgfusepath{stroke}
\else
	% FIRST POINT LOWER
	%
	% Node drawing. It can be translate along the path with
	% text translation option.
	{
 	\pgftransformshift{\pgfpoint{\dim@x/2+\dim@text@translation}{\dim@y+\dim@sep}}
	% Capturing the TikZ picture font size
	\dim@text@font
	\pgfnode{rectangle}{south}{\dim@text}{\dim@text@nodename}{\pgfusepath{discard}}
	}
	% Drawing the connection segments.
	\pgfpathmoveto{\pgfpoint{0pt}{\dim@y+\dim@sep+\dim@overlineI}}
	% Check if the first connection line must be drawn.
	\if@dim@connection
		\pgfpathlineto{\pgfpoint{0pt}{0pt}}
	\else
		\pgfpathlineto{\pgfpoint{0pt}{\dim@y+\dim@sep-\dim@overlineI}}		
	\fi
	\pgfpathmoveto{\pgfpoint{\dim@x}{\dim@y+\dim@sep+\dim@overlineII}}
	% Check if the second connection line must be drawn.
	\if@dim@connection
		\pgfpathlineto{\pgfpoint{\dim@x}{\dim@y}}
	\else
		\pgflineto{\pgfpoint{\dim@x}{\dim@y+\dim@sep-\dim@overlineII}}
	\fi
	% Draw an extra line if node text lies outside of the
	% dimension.
	\pgfmathparse{abs(.5\dim@x)<abs(\dim@text@translation)}
	\if\pgfmathresult1
		% Dimension label outside.
		\ifdim0pt<\dim@text@translation
			% Text lies on right.
			\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south east}}
			\pgfpathlineto{\pgfpoint{\dim@x}{\dim@y+\dim@sep}}
		\else
			% Text lies on left.
			\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south west}}
			\pgfpathlineto{\pgfpoint{0pt}{\dim@y+\dim@sep}}
		\fi
	\fi
	% Draw the dimension segments with arrows.
	\pgfsetarrowsstart{\dim@arrow@type}
	\pgfsetarrowsend{\dim@arrow@type}
	\pgfpathmoveto{\pgfpoint{0pt}{\dim@y+\dim@sep}}
	\pgfpathlineto{\pgfpoint{\dim@x}{\dim@y+\dim@sep}}
	% Finally put all the stuff on paper.
	\pgfusepath{stroke}
\fi
}}


%-> Vertical dimension (NOT UTILISED IN THE FOLLOWING DRAWING)
\pgfdeclaredecoration{Vdim}{final}{%
\state{final}{%
% Setting needed dimensions from pgfkeys values.
\tikz@checkunit{\pgfkeysvalueof{/pgf/decoration/distance}}
\iftikz@isdimension
	\pgfmathsetlength{\dim@sep}{\pgfkeysvalueof{/pgf/decoration/distance}}
\else
	\pgfmathsetlength{\dim@sep}{\pgfkeysvalueof{/pgf/decoration/distance}*\pgf@yy}
\fi
\pgfmathsetlength{\dim@x}{\pgfdecoratedpathlength*cos(\pgfdecoratedangle)}
\pgfmathsetlength{\dim@y}{\pgfdecoratedpathlength*sin(\pgfdecoratedangle)}
\pgfmathsetlength{\dim@overline}{\pgfkeysvalueof{/pgf/decoration/overline}}
\pgfmathsetlength{\dim@text@translation}{\pgfkeysvalueof{/pgf/decoration/text translation}}
% Setting text to write from pgfkeys value.
\def\dim@text{\pgfkeysvalueof{/pgf/decoration/text}}
% The overline verse (where it points. Positive or negative) depends
% on dimension sep and angle of the segment to dimension.
\ifdim0pt<\dim@sep
	% Case with positive dimension sep.
	% Normal behaviour.
	\pgfmathsetlength{\dim@overlineI}{\dim@overline}
	\pgfmathsetlength{\dim@overlineII}{\dim@overline}
\else
	% Case with negative dimension sep.
	% The value of dimension overline I is different from
	% dimension overline II and it depends on the
	% quadrant where the the segment is.
	\pgfmathparse{abs(\dim@sep)<abs(\dim@x)}
	\if\pgfmathresult1
		% true
		\ifnum90<\pgfdecoratedangle
			\ifnum270<\pgfdecoratedangle
				\pgfmathsetlength{\dim@overlineI}{\dim@overline}
				\pgfmathsetlength{\dim@overlineII}{-\dim@overline}
			\else
				\pgfmathsetlength{\dim@overlineI}{-\dim@overline}
				\pgfmathsetlength{\dim@overlineII}{\dim@overline}
			\fi
		\else
			\pgfmathsetlength{\dim@overlineI}{\dim@overline}
			\pgfmathsetlength{\dim@overlineII}{-\dim@overline}
		\fi
	\else
		% false
		\pgfmathsetlength{\dim@overlineI}{-\dim@overline}
		\pgfmathsetlength{\dim@overlineII}{-\dim@overline}
	\fi
\fi
% Set to rotation transformation because we want dimension
% only the horizontal distance between two points.
\pgftransformrotate{-\pgfdecoratedangle}
\ifnum180<\pgfdecoratedangle
	%
	% FIRST POINT HIGHER
	%
	\ifnum270>\pgfdecoratedangle
		% Third quadrant
		% Node drawing. It can be translate along the path with
		% text translation option.
		{
 		\pgftransformshift{\pgfpoint{\dim@sep}{\dim@y/2-\dim@text@translation}}
		% In this case, the node must e rotated.
		\pgftransformrotate{-90}
		% Capturing the TikZ picture font size
		\dim@text@font
		\pgfnode{rectangle}{south}{\dim@text}{\dim@text@nodename}{\pgfusepath{discard}}
		}
		% Drawing the connection segments.
		\pgfpathmoveto{\pgfpoint{\dim@sep+\dim@overlineI}{0pt}}
		% Check if the first connection line must be drawn.
		\if@dim@connection
			\pgfpathlineto{\pgfpoint{0pt}{0pt}}
		\else
			\pgfpathlineto{\pgfpoint{\dim@sep-\dim@overlineI}{0pt}}
		\fi
		\pgfpathmoveto{\pgfpoint{\dim@sep+\dim@overlineII}{\dim@y}}
		% Check if the second connection line must be drawn.
		\if@dim@connection
			\pgfpathlineto{\pgfpoint{\dim@x}{\dim@y}}
		\else
			\pgfpathlineto{\pgfpoint{\dim@sep-\dim@overlineII}{\dim@y}}
		\fi
		% Draw an extra line if node text lies outside of the
		% dimension.
		\pgfmathparse{abs(.5\dim@y)<abs(\dim@text@translation)}
		\if\pgfmathresult1
			% Dimension label outside.
			\ifdim0pt<\dim@text@translation
				% Text lies on right.
				\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south east}}
				\pgfpathlineto{\pgfpoint{\dim@sep}{\dim@y}}
			\else
				% Text lies on left.
				\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south west}}
				\pgfpathlineto{\pgfpoint{\dim@sep}{0pt}}
			\fi
		\fi
		% Draw the dimension segments with arrows. 
		\pgfsetarrowsstart{\dim@arrow@type}
		\pgfsetarrowsend{\dim@arrow@type}
		\pgfpathmoveto{\pgfpoint{\dim@sep}{0pt}}
		\pgfpathlineto{\pgfpoint{\dim@sep}{\dim@y}}
		% Finally put all the stuff on paper.
		\pgfusepath{stroke}
	\else
		% Fourth quadrant
		% Node drawing. It can be translate along the path with
		% text translation option.
		{
 		\pgftransformshift{\pgfpoint{\dim@x+\dim@sep}{\dim@y/2-\dim@text@translation}}
		% In this case, the node must e rotated.
		\pgftransformrotate{-90}
		% Capturing the TikZ picture font size
		\dim@text@font
		\pgfnode{rectangle}{south}{\dim@text}{\dim@text@nodename}{\pgfusepath{discard}}
		}
		% Drawing the connection segments.
		\pgfpathmoveto{\pgfpoint{\dim@x+\dim@sep+\dim@overlineI}{0pt}}
		% Check if the first dimension connection must be drawn.
		\if@dim@connection
			\pgfpathlineto{\pgfpoint{0pt}{0pt}}
		\else
			\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep-\dim@overlineI}{0pt}}
		\fi
		\pgfpathmoveto{\pgfpoint{\dim@x+\dim@sep+\dim@overlineII}{\dim@y}}
		% Check if the second dimension connection must be drawn.
		\if@dim@connection
			\pgfpathlineto{\pgfpoint{\dim@x}{\dim@y}}
		\else
			\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep-\dim@overlineII}{\dim@y}}
		\fi
		% Draw an extra line if node text lies outside of the
		% dimension.
		\pgfmathparse{abs(.5\dim@y)<abs(\dim@text@translation)}
		\if\pgfmathresult1
			% Dimension label outside.
			\ifdim0pt<\dim@text@translation
				% Text lies on right.
				\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south east}}
				\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep}{\dim@y}}
			\else
				% Text lies on left.
				\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south west}}
				\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep}{0pt}}
			\fi
		\fi
		% Draw the dimension segments with arrows.
		\pgfsetarrowsstart{\dim@arrow@type}
		\pgfsetarrowsend{\dim@arrow@type}
		\pgfpathmoveto{\pgfpoint{\dim@x+\dim@sep}{0pt}}
		\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep}{\dim@y}}
		% Finally put all the stuff on paper.
		\pgfusepath{stroke}
	\fi
\else
	%
	% FIRST POINT LOWER
	%
	\ifnum90>\pgfdecoratedangle
		% First quadrant
		% Node drawing. It can be translate along the path with
		% text translation option.
		{
 		\pgftransformshift{\pgfpoint{\dim@x+\dim@sep}{\dim@y/2-\dim@text@translation}}
		% In this case, the node must e rotated.
		\pgftransformrotate{-90}
		% Capturing the TikZ picture font size
		\dim@text@font
		\pgfnode{rectangle}{south}{\dim@text}{\dim@text@nodename}{\pgfusepath{discard}}
		}
		% Drawing the connection segments.
		\pgfpathmoveto{\pgfpoint{\dim@x+\dim@sep+\dim@overlineI}{0pt}}
		% Check if the first dimension connection must be drawn.
		\if@dim@connection
			\pgfpathlineto{\pgfpoint{0pt}{0pt}}
		\else
			\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep-\dim@overlineI}{0pt}}
		\fi
		\pgfpathmoveto{\pgfpoint{\dim@x+\dim@sep+\dim@overlineII}{\dim@y}}
		% Check if the second dimension connection must be drawn.
		\if@dim@connection
			\pgfpathlineto{\pgfpoint{\dim@x}{\dim@y}}
		\else
			\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep-\dim@overlineII}{\dim@y}}
		\fi
		% Draw an extra line if node text lies outside of the
		% dimension.
		\pgfmathparse{abs(.5\dim@y)<abs(\dim@text@translation)}
		\if\pgfmathresult1
			% Dimension label outside.
			\ifdim0pt<\dim@text@translation
				% Text lies on right.
				\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south east}}
				\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep}{\dim@y}}
			\else
				% Text lies on left.
				\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south west}}
				\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep}{0pt}}
			\fi
		\fi
		% Draw the dimension segments with arrows.
		\pgfsetarrowsstart{\dim@arrow@type}
		\pgfsetarrowsend{\dim@arrow@type}
		\pgfpathmoveto{\pgfpoint{\dim@x+\dim@sep}{0pt}}
		\pgfpathlineto{\pgfpoint{\dim@x+\dim@sep}{\dim@y}}
		% Finally put all the stuff on paper. 
		\pgfusepath{stroke}
	\else 
		% Second quadrant
		% Node drawing. It can be translate along the path with
		% text translation option.
		{
 		\pgftransformshift{\pgfpoint{\dim@sep}{\dim@y/2-\dim@text@translation}}
		% In this case, the node must e rotated.
		\pgftransformrotate{-90}
		% Capturing the TikZ picture font size
		\dim@text@font
		\pgfnode{rectangle}{south}{\dim@text}{\dim@text@nodename}{\pgfusepath{discard}}
		}
		% Drawing the connection segments.
		\pgfpathmoveto{\pgfpoint{\dim@sep+\dim@overlineI}{0pt}}
		% Check if the first dimension connection must be drawn.
		\if@dim@connection
			\pgfpathlineto{\pgfpoint{0pt}{0pt}}
		\else
			\pgfpathlineto{\pgfpoint{\dim@sep-\dim@overlineI}{0pt}}
		\fi
		\pgfpathmoveto{\pgfpoint{\dim@sep+\dim@overlineII}{\dim@y}}
		% Check if the second dimension connection must be drawn.
		\if@dim@connection
			\pgfpathlineto{\pgfpoint{\dim@x}{\dim@y}}
		\else
			\pgfpathlineto{\pgfpoint{\dim@sep-\dim@overlineII}{\dim@y}}
		\fi
		% Draw an extra line if node text lies outside of the
		% dimension.
		\pgfmathparse{abs(.5\dim@y)<abs(\dim@text@translation)}
		\if\pgfmathresult1
			% Dimension label outside.
			\ifdim0pt<\dim@text@translation
				% Text lies on right.
				\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south east}}
				\pgfpathlineto{\pgfpoint{\dim@sep}{0pt}}
			\else
				% Text lies on left.
				\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south west}}
				\pgfpathlineto{\pgfpoint{\dim@sep}{\dim@y}}
			\fi
		\fi
		% Draw the dimension segments with arrows.
		\pgfsetarrowsstart{\dim@arrow@type}
		\pgfsetarrowsend{\dim@arrow@type}
		\pgfpathmoveto{\pgfpoint{\dim@sep}{0pt}}
		\pgfpathlineto{\pgfpoint{\dim@sep}{\dim@y}}
		% Finally put all the stuff on paper. 
		\pgfusepath{stroke}
	\fi
\fi
}}

%-> Along the dimension
\pgfdeclaredecoration{dim}{final}{
\state{final}{%
% Check if the dimension inserted has unit
\tikz@checkunit{\pgfkeysvalueof{/pgf/decoration/distance}}
\iftikz@isdimension
	\pgfmathsetlength{\dim@sep}{\pgfkeysvalueof{/pgf/decoration/distance}}
\else
	\pgfmathsetlength{\dim@sep}{\pgfkeysvalueof{/pgf/decoration/distance}*\pgf@yy}
\fi
% Overline value if function of the sep sign.
\ifdim0pt>\dim@sep
	\pgfmathsetlength{\dim@overline}{-\pgfkeysvalueof{/pgf/decoration/overline}}
\else
	\pgfmathsetlength{\dim@overline}{\pgfkeysvalueof{/pgf/decoration/overline}}
\fi
\pgfmathsetlength{\dim@text@translation}{\pgfkeysvalueof{/pgf/decoration/text translation}}
% Setting the text to be inserted into the dimension node.
\def\dim@text{\pgfkeysvalueof{/pgf/decoration/text}}
{
\pgftransformshift{\pgfpoint{\pgfdecoratedpathlength/2+\dim@text@translation}{\dim@sep}}
% Capturing the TikZ picture font size
\dim@text@font
\pgfnode{rectangle}{south}{\dim@text}{\dim@text@nodename}{\pgfusepath{discard}}
}
\pgfpathmoveto{\pgfpoint{0pt}{\dim@sep+\dim@overline}}
% Check if the first connection line mus b drawn
\if@dim@connection
	\pgfpathlineto{\pgfpoint{0pt}{0pt}}
\else
	\pgfpathlineto{\pgfpoint{0pt}{\dim@sep-\dim@overline}}
\fi
\pgfpathmoveto{\pgfpoint{(\pgfdecoratedpathlength}{\dim@sep+\dim@overline}}
% Check if the first connection line mus b drawn
\if@dim@connection
	\pgfpathlineto{\pgfpoint{\pgfdecoratedpathlength}{0pt}}
\else
	\pgfpathlineto{\pgfpoint{(\pgfdecoratedpathlength}{\dim@sep-\dim@overline}}
\fi
% Draw an extra line if node text lies outside of the
% dimension.
\pgfmathparse{abs(.5*\pgfdecoratedpathlength)<abs(\dim@text@translation)}
\if\pgfmathresult1
	% Dimension label outside.
	\ifdim0pt<\dim@text@translation
		% Text lies on right.
		\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south east}}
		\pgfpathlineto{\pgfpoint{\pgfdecoratedpathlength}{\dim@sep}}
	\else
		% Text lies on left.
		\pgfpathmoveto{\pgfpointanchor{\dim@text@nodename}{south west}}
		\pgfpathlineto{\pgfpoint{0pt}{\dim@sep}}
	\fi
\fi
\pgfsetarrowsstart{\dim@arrow@type}
\pgfsetarrowsend{\dim@arrow@type}
\pgfpathmoveto{\pgfpoint{0pt}{\dim@sep}}
\pgfpathlineto{\pgfpoint{\pgfdecoratedpathlength}{\dim@sep}} 
\pgfusepath{stroke}
\pgfpathmoveto{\pgfpoint{0pt}{0pt}}
}}

%-> Initial values
\pgfkeys{/pgf/decoration/.cd,
         distance/.initial         = 10pt,
         overline/.initial         = 1mm,
         text/.initial             = {},
         text translation/.initial = 0pt,
         text node name/.store in  = \dim@text@nodename,
         text node name            = dim_text,
         >/.store in               = \dim@arrow@type,
         >                         = latex,
         connection/.is if         = @dim@connection,
         connection                = false,
         font/.store in            = \dim@text@font,
         font                      = \tikz@textfont,
}
\makeatother

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% COMMANDS TO CALL DIMENSION DECORATIONS %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand\Hdimension[1][]{\path[decorate,decoration={Hdim,#1}]}
\newcommand\Vdimension[1][]{\path[decorate,decoration={Vdim,#1}]}
\newcommand\dimension[1][]{\path[decorate,decoration={dim,#1}]}

\begin{document}
\begin{tikzpicture}[x         = 1mm,
                    y         = 1mm,
                    >         = latex,
                    line join = round,
                    font      = \small]

%%%%%%%%%%%%%%%%%%
% NOZZLE DRAWING %
%%%%%%%%%%%%%%%%%%
%-> Origin definition
\coordinate (o) at (0,0);

%-> Nozzle
% Symmetric characteristic is used in a
% foreach command where the cycle is made
% for upper part (up) with positive sign (+)
% and lower part (down) with negative sign (-)
\foreach \pos/\sign in {up/+,down/-}{

%%-> Points definitions
\coordinate (A\pos)        at ($(o)+(0,\sign11.5)$);
\coordinate (B\pos)        at ($(A\pos)+(0,\sign5.075)$);
\coordinate (C\pos)        at ($(B\pos)+(20,0)$);
\coordinate (D\pos)        at ($(C\pos)+(0,-\sign1.575)$);
\coordinate (E\pos)        at ($(D\pos)+(10,0)$);
\coordinate (F\pos)        at ($(E\pos)+(0,\sign11)$);
\coordinate (G\pos)        at ($(F\pos)+(0,\sign8)$);
\coordinate (H\pos)        at ($(G\pos)+(0,\sign6)$);
\coordinate (I\pos)        at ($(H\pos)+(10,0)$);
\coordinate (L\pos)        at (G\pos-|I\pos);
\coordinate (M\pos)        at (F\pos-|I\pos);
\coordinate (N\pos)        at (E\pos-|I\pos);
\coordinate (O\pos)        at ($(N\pos)+(100,0)$);
\coordinate (P\pos)        at ($(O\pos)+(10,-\sign10)$);
\coordinate (throat_\pos)  at ($(P\pos)-(43.8,\sign1.15)$);
\coordinate (IN_\pos)      at ($(A\pos)+(92.74,0)$);
\coordinate (center1_\pos) at ($(o)+(92.74,\sign4.5)$);
\coordinate (center2_\pos) at ($(throat_\pos)+(0,\sign7)$);

%%-> Draw nozzle main body
\draw[fill,
      pattern    = section,
      line width = 1.1pt]
\ifnum\sign1>0
        (center1_\pos)++(45:7)arc(45:90:7)--
\else
        (center1_\pos)++(-45:7)arc(315:270:7)--
\fi
(A\pos)--
(B\pos)--
(C\pos)--
(D\pos)--
(E\pos)--
(F\pos)--
(G\pos)--
(H\pos)--
(I\pos)--
(L\pos)--
(M\pos)--
(N\pos)--
(O\pos)--
(P\pos)--
(throat_\pos)
\ifnum\sign1>0
      arc(270:225:7)
\else
     arc(90:135:7)
\fi
--cycle;

%%-> Draw holes on the flange
\draw[fill       = white,
      line width = 1.1pt] (G\pos)rectangle(M\pos);

%%-> Draw symmetric axis on flange holes
\draw[dash pattern = on 3pt off 5pt on 6pt off 5pt,
      line width   = 1pt] ($(F\pos)!.5!(G\pos)-(5,0)$)--
                          ($(L\pos)!.5!(M\pos)+(5,0)$);

%%-> screw drawing
\draw[dashed] (D\pos)--(D\pos-|A\pos);
}

%%-> Nozzle input and output closure
\draw[line width = 1.1pt](Adown)--(Aup)
                         (Pdown)--(Pup);

%%-> Nozzle symmetry line
\draw[dash pattern = on 3pt off 5pt on 6pt off 5pt,
      line width   = 1pt] ($(Adown)!.5!(Aup)-(5,0)$)--($(Pdown)!.5!(Pup)+(5,0)$);

%%%%%%%%%%%%%%
% DIMENSIONS %
%%%%%%%%%%%%%%
% Macro to see the dimension
% inserted. For debug.
\newif\ifdimension
\dimensionfalse
%\dimensiontrue % if true, you will see the dimension number (%x) on the draw
\newcount\Ndim=0
\def\SeeDim#1{\ifdimension\global\advance\Ndim by 1 \the\Ndim\else#1\fi}
%-> 1
\Hdimension[text      = \SeeDim{10},
            distance  = 3]  (Hup) --  (Iup);

%-> 2
\Hdimension[text     = \SeeDim{10},
            distance = 3] (Cup)--(Hup);

%-> 3
\Hdimension[text     = \SeeDim{20},
            distance = 26.425] (Bup)--(Cup);

%-> 4
\Hdimension[text     = \SeeDim{100},
            distance = 3] (Iup)--(Oup);

%-> 5
\Hdimension[text     = \SeeDim{10},
            distance = 28] (Oup)--(Pup);

%-> 6
\dimension[text     = \SeeDim{\diameter30},
           distance = -25] (Odown)--(Oup);

%-> 7
\Hdimension[text     = \SeeDim{43.8},
            distance = -48.15] (throat_down)--(Odown);

%-> 8
\Hdimension[text     = \SeeDim{92.74},
            distance = -40.5] (IN_down)--(Bdown);

%-> 9
\dimension[text             = \SeeDim{\diameter7.7},
           text translation = -7mm,
           distance         = 20] (throat_down)--(throat_up);

%-> 10
\dimension[text     = \SeeDim{\diameter10},
           distance = -8] (Pdown)--(Pup);

%-> 11 (by hand)
\draw[->] (center1_up)--++(45:7)node[sloped,
                                     above     = .4mm,
                                     pos       = .3,
                                     inner sep = 0.5pt]{\SeeDim{R7}};

%-> 12 (by hand)
\draw[->] (center2_up)--++(225:7)node[above     = .4mm,
                                      pos       = .4,
                                      inner sep = 0.5pt,
                                      rotate    = 45,
                                      fill      = white]{\SeeDim{R7}};

%-> 13 (by hand)
\coordinate (raccordo_up)   at ($(center1_up)+(45:7)$);
\coordinate (raccordo_down) at ($(center1_down)+(-45:7)$);
\draw (raccordo_up)--++(135:20);
\draw (raccordo_down)--++(225:20);
\path[name path=C1](raccordo_up)--++(-45:20);
\path[name path=C2](raccordo_down)--++(45:20);
\path[name intersections={of=C1 and C2}];
\coordinate (C90) at (intersection-1);
\draw[<->] ($(C90)+(135:30)$)arc[start angle = 135,
                                 delta angle = 90,
                                 radius      = 30];
\def\angle{35}
\node[rotate = \angle+45,
      anchor = south] at ($(C90)+(135+\angle:30)$){\SeeDim{\ang{90}}};

%-> 14
\dimension[text             = \SeeDim{\diameter60},
           distance         = -5,
           >                = angle 45,
           text translation = .5cm] ($(Ldown)!.5!(Mdown)$)--($(Lup)!.5!(Mup)$);

%-> 15
\dimension[text             = \SeeDim{\diameter80},
           distance         = -10,
           text translation = .5cm] (Idown)--(Iup);

%-> 16
\dimension[text             = \SeeDim{\diameter8 ($\times$4)},
           distance         = 10,
           text translation = -12mm] (Gdown)--(Fdown);

%-> 17
\dimension[text     = \SeeDim{G1'},
           distance = 10] (Bdown)--(Bup);

%-> 18
\dimension[text     = \SeeDim{\diameter23},
           distance = 5] (Adown)--(Aup);

% Dimensions scale
\node[anchor = north west] at (current bounding box.south west)
{All dimensions are in millimeters};
\end{tikzpicture}
\end{document}
