% Decoupage d'un tetraedre
% 1. Definition des points caracteristiques de la geometrie
\figinit{4cm,ortho}
% Sommets
\figpt 1:$D$(0.4,0.7,0.9)
\figpt 2:$A$(0,0)
\figpt 3:$B$(1,0.5)
\figpt 4:$C$(0,1.4)
% Plan de base (11,12,13,14)
\figpt 11:(-0.3,-1)\figpttraC 12:$F_D$=11/2.2,0,0/
\figvectC 0(0,3)\figptstra 13=12,11/1,0/
% Points dans le plan de base
\figvectC 10(0,0,1)% Vecteur orthogonal au plan de base
\figptorthoprojplane 5:$E$=1/2,10/
\figptorthoprojline 6:$\gamma$=5/2,3/\figget distance=\Rcg[1,6]
\figvectP 0[5,6]\figvectU 0[0]\figpttra 16:$R$=6/\Rcg,0/
\figptorthoprojline 7:$\alpha$=5/3,4/\figget distance=\Rca[1,7]
\figvectP 0[5,7]\figvectU 0[0]\figpttra 17:$P$=7/\Rca,0/
%
\figset proj(psi=-5,theta=20)
% 2. Creation du fichier graphique
\figdrawbegin{}
% Plan de base
\figdrawline[11,12,13,14]
\figdrawarccircP 12 ; 0.3 [13,11,11]
%
\def\DIM{0.06}
\figdrawline[1,5]\figdrawline[1,6]\figdrawline[1,7]
\figdrawaltitude \DIM[5,2,3]\figdrawaltitude \DIM[5,4,3]
\figdrawline[6,16]\figdrawline[2,16,3]
\figdrawline[7,17]\figdrawline[3,17,4]
\figdrawarccircP 6;\Rcg[1,16,16]
\figset arrow(fill=yes)\figdrawarrowcircP 7;\Rca[1,17,17]
% Aretes externes du tetraedre
\figset(join=round,width=0.8)\figdrawline[1,2,3,1,4,3]
\figset(dash=4)\figdrawline[2,4]
\figdrawend
% 3. Inscription du texte sur le dessin
\def\dist{2pt}
\figvisu{\figBoxA}{\it D\'ecoupage d'un t\'etra\`edre \rm(p. 131)}{%
\figwriten 1:(\dist)\figwritenw 2,5:(\dist)
\figwrites 6:(3pt)\figwritene 4:(\dist)
\figwrites 3,7:(\dist)
\figwritew 16:(\dist)\figwritee 17:(\dist)
\figwritege 12:(6pt,2pt)
}
\centerline{\box\figBoxA}