decoupecube_object.tex

\makeatletter
\pstheader{decoupe_cube.pro}
\define@key[psset]{pst-V3D}{A}{\def\psk@IIID@A{#1}}  % arête du cube
%\define@key[psset]{pst-V3D}{colorface}{\def\psk@IIID@colorface{#1}} % couleurs des triangles
% on utilise pour les couleurs de faces celles déjà pré-définies
\define@key[psset]{pst-V3D}{tetraedre}{\def\psk@IIID@tetraedre{#1}} % couleurs des triangles
\psset[pst-V3D]{A=4,tetraedre=T1}
\def\psDecoupeCube{\pst@object{psDecoupeCube}}
\def\psDecoupeCube@i(#1,#2,#3){{%
  \begin@ClosedObj
    \use@par
    \addto@pscode{%
    1 setlinejoin
    \tx@parametresIIID
    \ifPst@visibility /condition { PSfacette 0 gt } def \else /condition { PSfacette 0 le} def \fi
    /arete \psk@IIID@A\space def
%    /colorface {\psk@IIID@colorface} def
    /tetrahedron {\psk@IIID@tetraedre} def
    /CX #1 def
    /CY #2 def
    /CZ #3 def
/PointsApresTransformations{%
3 dict begin
  M11 Xpoint mul M12 Ypoint mul add M13 Zpoint mul add CX add
  M21 Xpoint mul M22 Ypoint mul add M23 Zpoint mul add CY add
  M31 Xpoint mul M32 Ypoint mul add M33 Zpoint mul add CZ add
end
  } def
decoupage_cube
}% fin du code ps
    \end@ClosedObj%
}}
\makeatother