%% 
%%  The LaTeX Graphics Companion, 2ed (first printing May 2007)
%% 
%%  Example D-6-6 on page .
%% 
%%  Copyright (C) 2007 Michel Goossens, Frank Mittelbach, Denis Roegel, Sebastian Rahtz, Herbert Vo\ss 
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 

\documentclass{ttctexaplate}
\pagestyle{empty}
\setcounter{page}{6}
\setlength\textwidth{413.44133pt}
\StartShownPreambleCommands
\usepackage{pst-vue3d}
\setlength\parindent{0pt}
\StopShownPreambleCommands
\begin{document}
\psset{%
  CubeColorFaceOne=1 1 1,  CubeColorFaceTwo=1 0 0,
  CubeColorFaceThree=0 1 0,CubeColorFaceFour=0 0 1,
  CubeColorFaceFive=1 1 0, CubeColorFaceSix=0 1 1}
\definecolor{GrisClair}{cmyk}{0.25,0.01,1,0}
\definecolor{GrisTresClair}{cmyk}{0.01,0.25,1,0}
\newcommand*\PlansOXYZ[1]{{%
  \psset{fillstyle=solid,grille=10,linewidth=0.2mm,%
       normaleLongitude=0,normaleLatitude=90}
  \FrameThreeD[fillcolor=GrisClair](0,0,0)(-50,0)(0,50)
  \QuadrillageThreeD(0,0,0)(-50,0)(0,50)%
  \psset{normaleLongitude=90,normaleLatitude=0}
  \FrameThreeD[fillcolor=GrisTresClair](0,0,0)(0,0)(50,-#1)
  \QuadrillageThreeD(0,0,0)(0,-#1)(50,0)%
  \psset{normaleLongitude=0,normaleLatitude=0}
  \FrameThreeD[fillcolor=GrisTresClair](0,0,0)(-50,0)(0,-#1)
  \QuadrillageThreeD(0,0,0)(-50,-#1)(0,0)%
}}
\begin{pspicture}(-2.8,-3)(3.75,3.5)
  \psset{THETA=30,PHI=30,Dobs=200,Decran=12}
  \PlansOXYZ{50}
  \pNodeThreeD(40,40,35){G}
  \pNodeThreeD(40,40,0){G_XY}
  \pNodeThreeD(40,0,0){G_X}
  \pNodeThreeD(0,40,0){G_Y}
  \pNodeThreeD(0,0,35){G_Z}
  \pNodeThreeD(0,40,35){G_YZ}
  \pNodeThreeD(40,0,35){G_XZ}
  \psdots[linecolor=red,dotscale=3](G)
  \psdots(G_XY)(G_XZ)(G_YZ)(G_X)(G_Y)(G_Z)
  \AxesThreeD{->}(55)
  { \psset{linecolor=red,linewidth=2pt}
    \psline(G_Z)(G_XZ)\psline(G_Z)(G_YZ)
    \psline(G_X)(G_XY)\psline(G_Y)(G_XY)
    \psline(G_X)(G_XZ)\psline(G_Y)(G_YZ)
    \psline(G_X)(0,0)\psline(G_Y)(0,0)\psline(G_Z)(0,0)
  }%
  \psset{A=5,B=5,C=5}%
  \DieThreeD[RotZ=90](5,5,5)%
  \DieThreeD(5,5,30)%
  \DieThreeD[RotY=90](5,35,5)%
  \DieThreeD[RotY=90,RotZ=90](35,35,5)%
  \DieThreeD[RotZ=-90](35,5,5)
  \DieThreeD[RotX=90,RotZ=-90](35,5,30)%
  \psset{linecolor=red,linewidth=2pt}
  \psline(G)(G_XZ)\psline(G)(G_YZ)\psline(G)(G_XY)
\end{pspicture}
\psset{%
  CubeColorFaceOne=1 1 1,  CubeColorFaceTwo=1 0 0,
  CubeColorFaceThree=0 1 0,CubeColorFaceFour=0 0 1,
  CubeColorFaceFive=1 1 0, CubeColorFaceSix=0 1 1}
\begin{pspicture}(-2,-2)(6,5)
  \psset{Dobs=200,Decran=11}
  \PlansOXYZ{50}
  \pNodeThreeD(40,40,35){G}
  \pNodeThreeD(40,40,0){G_XY}
  \pNodeThreeD(40,0,0){G_X}
  \pNodeThreeD(0,40,0){G_Y}
  \pNodeThreeD(0,0,35){G_Z}
  \pNodeThreeD(0,40,35){G_YZ}
  \pNodeThreeD(40,0,35){G_XZ}
  \psdots[linecolor=red,dotscale=3](G)
  \psdots(G_XY)(G_XZ)(G_YZ)(G_X)(G_Y)(G_Z)
  \AxesThreeD{->}(55)
  { \psset{linecolor=red,linewidth=2pt}
    \psline(G_Z)(G_XZ)\psline(G_Z)(G_YZ)
    \psline(G_X)(G_XY)\psline(G_Y)(G_XY)
    \psline(G_X)(G_XZ)\psline(G_Y)(G_YZ)
    \psline(G_X)(0,0)\psline(G_Y)(0,0)\psline(G_Z)(0,0)
  }
  \psset{A=5,B=5,C=5}
  \DieThreeD[RotZ=90](5,5,5)
  \DieThreeD(5,5,30)
  \DieThreeD[RotY=90](5,35,5)
  \DieThreeD[RotY=90,RotZ=90](35,35,5)
  \DieThreeD[RotZ=-90](35,5,5)
  \DieThreeD[RotX=90,RotZ=-90](35,5,30)
  \psset{linecolor=red,linewidth=2pt}
  \psline(G)(G_XZ)\psline(G)(G_YZ)\psline(G)(G_XY)
\end{pspicture}
\end{document}