Fig4TeX examples: TD04

% 1. Definition of characteristic points

\figinit{1cm}

\def\ang{.2}

\figpt 1:(0,0)
\figpt 2:(1,0)
%
\figvectC 0 (0,1)
\figpttra 204:=2/\ang,0/
%
\figpt 3:(2.67,0)
%
\figvectC 0 (0,1)
\figpttra 304:=3/\ang,0/
%
\figpt 4:(5,0)
%
\figvectC 0 (0,1)
\figpttra 404:=4/\ang,0/
%
\figpt 5:(7.6,0)
\figvectN 0 [2,3]
\figpttra 6:=2/0.68,0/
\figpttra 7:=3/2.38,0/
\figpttra 8:=4/1.23,0/
\figptstra 16=2,3,4/2.7,0/
\figptstra 26=2,3,4/-0.4,0/
%
\figvectN 0 [6,8]
\figvectP 100 [6,8]
\figptinterlines 9:[3,0;6,100]
\figpttra 12:=3/0.98,0/
\figpttra 13:=3/-0.18,0/
%
\figvectN 0 [6,7]
\figvectP 100 [6,7]
\figptinterlines 10:[4,0;6,100]
\figpttra 14:=4/1.78,0/
\figpttra 15:=4/-0.28,0/
%
\figvectN 0 [7,8]
\figvectP 100 [7,8]
\figptinterlines 11:[2,0;7,100]
\figpttra 19:=2/1.78,0/
\figpttra 20:=2/-0.28,0/

% 2. Creation of the graphical file

\figdrawbegin{}

\figset(dash=4)
\figdrawline[26,16]
\figdrawline[27,17]
\figdrawline[28,18]
\figset(dash=default)
\figdrawaltitude \ang[204,2,3]
\figdrawaltitude \ang[304,3,4]
\figdrawaltitude \ang[404,4,5]
\figdrawaltitude \ang[3,9,8]
\figdrawaltitude \ang[4,10,7]
\figdrawaltitude \ang[2,11,8]
\figdrawline[1,5]
\figdrawline[6,7,8,6]
\figset (width=1.5,color=\Bluergb)
\figdrawline[12,13]
\figdrawline[14,15]
\figdrawline[20,19]
\figset (width=default,color=default)

\figdrawend

% 3. Writing text on the figure

\def\disti{3pt}

\figvisu{\figBoxA}{Figure 3}{%
\figwritesw 2:$B'$(\disti)
\figwritesw 3:$C'$(\disti)
\figwritesw 4:$D'$(\disti)
\figwrites 5:$\Delta \qquad$(\disti)
\figwritew 6:$B$(\disti)
\figwritene 7:$A$(\disti)
\figwritee 8:$C$(\disti)
}
\centerline{\box\figBoxA}