\input fig4tex.tex
%%%%%%%% DEBUT DESSIN cube sept
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\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)
\figpt 9:(0,0,1)\figpt 20:(1,0,0)
\figpt 10:(0,1,2)
\figvectP 14[3,4]
\figvectN 15[20,9,10]
\figptinterlineplane 12 :[3,14; 20,15]
\figvectP 16[7,4]
\figptinterlineplane 11 :[7,16; 20,15]
\figvectP 19[6,7]
\figptinterlineplane 18 :[6,19; 20,15]
\figvectN 21[1,6,7]
\figvectP 22[10,9]
\figptinterlineplane 23 :[9,22; 1,21]
%%%%%%%%%%%%%%%%%%%%%
%% fichier graphical
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psset(width=1,fillmode=yes,color=0.7)\psline[20,9,10,12,11,18,20]
\psreset{first}
\psline[1,2,3,4,5,2]\psline[1,6,7,4,5,6]
%\psline[20,9,10,11]
\psset(width=1)\psline[10,12]\psline[20,9]\psline[11,18]
\psset(dash =5)
\psline[1,8,7]\psline[3,8]
\psset(width=1)\psline[9,10]\psline[11,12]\psline[18,20]
\psreset{first}
\psset(dash=5)\psline[9,23,20]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\def\DIM{0.05}
\figvisu{\figBoxA}{}{
\figwritew 1:$D$(\DIM)
\figwritew 2:$A$(\DIM)
\figwritenw 3:$E$(\DIM)
\figwritene 4:$H$(\DIM)
\figwritesw 5:$B$(\DIM)
\figwritee 6:$C$(\DIM)
\figwritee 7:$G$(\DIM)
\figwrites 8:$F$(\DIM)
\figwritew 9:$J$(\DIM)
\figwritenw 10:$K$(\DIM)
\figwritee 11:$M$(\DIM)
\figwriten 12:$L$(\DIM)
\figwritee 18:$N$(\DIM)
\figwrites 20:$I$(\DIM)
\figwrites 23:$R$(\DIM)
}
\box\figBoxA
\bye