Source de octahedral

$Fichier TeX$
\makeatletter
\pstheader{octaedre.pro}
\define@key[psset]{pst-V3D}{radius}{\def\psk@IIID@R{#1}}  % rayon de la sphère circonscrite
\define@key[psset]{pst-V3D}{d}{\def\psk@IIID@d{#1}}       % fraction arête
\psset[pst-V3D]{radius=2,d=3}
\def\psOctahedron{\pst@object{psOctahedron}}
\def\psOctahedron@i(#1,#2,#3){{%
  \begin@ClosedObj
    \use@par
    \addto@pscode{%
    1 setlinejoin
    \tx@parametresIIID
    /radius \psk@IIID@R\space def
    /d \psk@IIID@d\space def
    /ColorFace1 {\psk@IIID@ColorFaceOne} def
    /ColorFace2 {\psk@IIID@ColorFaceTwo} def
    /ColorFace3 {\psk@IIID@ColorFaceThree} def
    /ColorFace4 {\psk@IIID@ColorFaceFive} def
    /ColorFace5 {\psk@IIID@ColorFaceFour} def
    /ColorFace6 {\psk@IIID@ColorFaceSix} def
    /ColorFace7 {\psk@IIID@ColorFaceSeven} def
    /ColorFace8 {\psk@IIID@ColorFaceEight} 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
octaedre }% fin du code ps
    \end@ClosedObj%
}}
\makeatother
— Syracuse — Dernière modification : 18 août 2006 (0.07s - 3609424 - 7 octobre 2008)