Retour

Source de ex_25.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{SphericalCoor=true,viewpoint=50 -20 30,Decran=50}
\begin{pspicture}(-4,-6)(8,6)
 
\codejps{
/Paleblue {0.8 0.8 1 setrgbcolor} def
/Gray8 {0.8 setgray} 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
/sph3 {%
    4.5 -90 0 [6 18] newcalottespherecreuse
    dup (Gray7) outputcolors
    dup (Gray8) inputcolors
} def
/dod1 {%
    3.9 newdodecaedre
    dup 0.9 solidchampfreine
    dup videsolid
    dup (Gray) outputcolors
    dup (Gray8) inputcolors
} def
/sph4 {%
    2.55 -90 0 [6 18] newcalottespherecreuse
    dup (bleu) outputcolors
    dup (Paleblue) inputcolors
} def
/ico1 {%
    2.1 newicosaedre
    dup 0.9 solidchampfreine
    dup videsolid
    dup (Gray6) outputcolors
    dup (Gray8) inputcolors
} def
/sph5 {%
    1.4 -90 0 [6 18] newcalottespherecreuse
    dup (Gray5) outputcolors
    dup (Gray8) inputcolors
} def
/tet2 {%
    1.2 newoctaedre
    dup 0.9 solidchampfreine
    dup videsolid
    dup (Gray4) outputcolors
    dup (Gray8) inputcolors
} def
/sph6 {%
    0.6 -90 0 [6 18] newcalottespherecreuse
    dup (Gray4) outputcolors
    dup (Gray8) inputcolors
} def
/sph7 {%
    0.3 [6 18] newsphere
    dup (jaune) outputcolors
    dup (Gray8) inputcolors
} def
    sph3 dod1 solidfuz 
    sph4 solidfuz 
    ico1 solidfuz 
    sph5 solidfuz 
    tet2 solidfuz 
    sph6 solidfuz 
    sph7 solidfuz
drawsolid**
}
\end{pspicture}
 
\end{document}