%%%%%%%% DEBUT DESSIN cube para trois
\input fig4tex.tex
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\figinit{3cm,3D}
% axe
\figpt 1:(0,0,0)\figpt 2:(0,0,2)\figpt 3:(0,2,2)
\figpt 4:(2,2,2)\figpt 5:(2,0,2)
\figpt 6:(2,0,0)\figpt 7:(2,2,0)\figpt 8:(0,2,0)
\figvectP 13[3,5]
\figpttra 14 := 3/-0.25,13/\figpttra 15 := 5/0.25,13/
\figvectP 16[8,6]
\figpttra 17 := 8/-0.25,16/\figpttra 18 := 6/0.25,16/
%%%%%%%%%%%%%%%%%%%%%
%% fichier graphique
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psset(fillmode=yes,color=0.7)\psline[3,5,6,8,3]
\psreset{first}
\psline[1,2,3,4,5,2]\psline[1,6,7,4,5,6]
\psset(dash =5)
\psline[1,8,7]\psline[3,8]
\psreset{first}
\psset(width=1)\psline[17,18]\psline[14,15]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\def\DIM{0.05}
\figvisu{\figBoxA}{}{
\figwritew 1:$D$(\DIM)
\figwritew 2:$A$(\DIM)
\figwriten 3:$E$(\DIM)
\figwritene 4:$H$(\DIM)
\figwriten 5:$B$(\DIM)
\figwritesw 6:$C$(\DIM)
\figwritee 7:$G$(\DIM)
\figwrites 8:$F$(\DIM)
}
\box\figBoxA
\bye