Retour

Source de ex_27.tex

Fichier TeX
Image PNG
\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
%@DATE: 18 février 2008
 
\psset{unit=1.5}
\psset{lightsrc=55 15 45,SphericalCoor=true,viewpoint=50 -20 30,Decran=50}
\begin{pspicture}(-4,-6)(8,6)
\codejps{
/Paleblue {0.8 0.8 1 setrgbcolor} def
/Gray1 {0.1 setgray} def
/Gray2 {0.2 setgray} def
/Gray3 {0.3 setgray} def
/Gray4 {0.4 setgray} def
/Gray5 {0.5 setgray} def
/Gray6 {0.6 setgray} def
/Gray7 {0.7 setgray} def
/Gray8 {0.8 setgray} def
/Gray9 {0.9 setgray} def
%
.001 setlinewidth
%
/sph1 {%
    6 -90 0 [24 72] newcalottespherecreuse
    dup (LimeGreen) outputcolors
    dup (Gray8) inputcolors
} def
%
/cub1 {%
    6 newcube
    dup 0.9 solidchampfreine
    dup videsolid
    dup (BlueViolet) outputcolors
    dup (Gray7) inputcolors
} def
%
/sph2 {%
    3 -90 0 [12 36] newcalottespherecreuse
    dup (Emerald) outputcolors
    dup (Gray7) inputcolors
} def
%
/tet1 {%
    3 newtetraedre
    dup 0.9 solidchampfreine
    dup videsolid
    dup (MidnightBlue) outputcolors
    dup (Gray7) inputcolors
} def
%
/sph3 {%
    1.5 -90 0 [12 36] newcalottespherecreuse
    dup (BlueGreen) outputcolors
    dup (Gray6) inputcolors
} def
%
/dod1 {%
    1.3 newdodecaedre
    dup 0.9 solidchampfreine
    dup videsolid
    dup (ProcessBlue) outputcolors
    dup (Gray8) inputcolors
} def
%
/sph4 {%
    0.85 -90 0 [6 18] newcalottespherecreuse
    dup (Turquoise) outputcolors
    dup (Gray5) inputcolors
} def
%
/ico1 {%
    0.7 newicosaedre
    dup 0.8 solidchampfreine
    dup videsolid
    dup (Aquamarine) outputcolors
    dup (Gray8) inputcolors
} def
%
/sph5 {%
    0.5 -90 0 [6 18] newcalottespherecreuse
    dup (ProcessBlue) outputcolors
    dup (Gray4) inputcolors
} def
%
/tet2 {%
    0.4 newoctaedre
    dup 0.8 solidchampfreine
    dup videsolid
    dup (Green) outputcolors
    dup (Gray4) inputcolors
} def
%
/sph6 {%
    0.2 -90 0 [6 18] newcalottespherecreuse
    dup (Blue) outputcolors
    dup (White) inputcolors
} def
%
/sph7 {%
    0.125 [6 18] newsphere
    dup (Yellow) outputcolors
    dup (White) inputcolors
} def
%
    sph1 cub1 solidfuz
    sph2 solidfuz
    tet1 solidfuz
    sph3 solidfuz
    dod1 solidfuz
    sph4 solidfuz
    ico1 solidfuz
    sph5 solidfuz
    tet2 solidfuz
    sph6 solidfuz
    sph7 solidfuz
drawsolid**
}
\end{pspicture}
 
\end{document}