ex_20.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
 
 
\begin{pspicture}(-4,-5)(-6,8)
%\psset{solidmemory}
\psset{lightsrc=10 5 10,viewpoint=20 10 20,Decran=50}
\rput(0,0){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
    name=c1
    ](0,0,0)}
\rput(0,2){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
    name=c2
    ](0,0,0)}
\rput(0,4){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
%    action=none,
    name=c3
    ](0,0,0)}
\rput(0,6){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
%    action=none,
    name=c4
    ](0,0,0)}
\rput(2,5){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
%    action=none,
    name=c5
    ](0,0,0)}
\rput(4,4){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
%    action=none,
    name=c6
    ](0,0,0)}
\rput(6,3){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
%    action=none,
    name=c7
    ](0,0,0)}
\rput(4,2){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
%    action=none,
    name=c8
    ](0,0,-0.1)}
\rput(2,1){\psSolid[%
    object=cube,
    a=1,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=4,
    name=c9
    ](0,0,-0.2)}
 
 
 
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    name=c10
    ](-0.3375,0.4,-0.3375)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    name=c10
    ](-0.3375,0.4,-0.0875)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    name=c10
    ](-0.3375,0.4,0.1625)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    name=c10
    ](-0.3375,0.4,0.4125)
 
 
 
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    name=c10
    ](-0.0875,0.4,-0.3375)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    name=c10
    ](-0.0875,0.4,-0.0875)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    name=c10
    ](-0.0875,0.4,0.1625)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    name=c10
    ](-0.0875,0.4,0.4125)
 
 
 
 
 \psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    ](0.1625,0.4,-0.3375)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    ](0.1625,0.4,-0.0875)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    ](0.1625,0.4,0.1625)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    ](0.1625,0.4,0.4125)
 
 
 
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    ](0.4125,0.4,-0.3375)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    ](0.4125,0.4,-0.0875)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    ](0.4125,0.4,0.1625)
\psSolid[%
    object=cube,
    a=0.25,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=1,
    ](0.4125,0.4,0.4125)
 
 
\end{pspicture}
 
\end{document}