% Patron d'un tetraedre
% 1. Definition des points caracteristiques de la geometrie
\figinit{4cm}
% Sommets
\figpt 1:$A$(0,0)
\figpt 2:$B$(0.5,-1)
\figpt 3:$C$(1.3,-0.4)
\def\RadA{1.2}\def\RadB{0.9}\def\RadC{1}
\figptsintercirc 11 [2,\RadB ; 3,\RadC]
\figptsintercirc 12 [3,\RadC ; 1,\RadA]
\figptsintercirc 13 [1,\RadA ; 2,\RadB]
\figptorthoprojline 21:$\alpha$=11/2,3/
\figptorthoprojline 22:$\beta$=12/1,3/
\figptorthoprojline 23:$\gamma$=13/1,2/
\figvectN 51[2,3]\figvectN 52[1,3]
\figptinterlines 4:$E$[11,51; 12,52]
% 2. Creation du fichier graphique
\figdrawbegin{}
\figdrawline[1,2,3,1]
\figdrawline[1,13,2,11,3,12,1]
\figdrawline[11,4]\figdrawline[12,4]\figdrawline[13,4]
\def\DIM{0.05}
\figdrawaltitude \DIM[4,2,3]\figdrawaltitude \DIM[4,1,3]\figdrawaltitude \DIM[4,2,1]
\figdrawend
% 3. Inscription du texte sur le dessin
\def\dist{2pt}\def\Dist{4pt}
\figvisu{\figBoxA}{\it Patron d'un t\'etra\`edre \rm(p. 132)}{%
\figwritenw 1:(\dist)\figwrites 2:(\dist)\figwritene 3:(\dist)
\figwritee 11:$P$(\dist)\figwriten 12:$Q$(\dist)\figwritew 13:$R$(\dist)
\figwritene 4:(\dist)
\figwritee 21:(\Dist)\figwritegw 22:(0,\Dist)\figwritegw 23:(4pt,0.1pt)
\figset write(mark=$\times$)
\figptbary 41:[13,2;1,1]\figptbary 42:[11,2;1,1]\figwritep[41,42]
\figset write(mark=$\figCirc$)
\figptbary 41:[11,3;1,1]\figptbary 42:[12,3;1,1]\figwritep[41,42]
\figset write(mark=$\star$)
\figptbary 41:[12,1;1,1]\figptbary 42:[13,1;1,1]\figwritep[41,42]
}
\centerline{\box\figBoxA}