\documentclass{article} \usepackage[latin1]{inputenc} \usepackage[T1]{fontenc} \usepackage{pst-solides3d} \usepackage[a4paper,dvips]{geometry} \pstheader{rhombicuboctahedron.pro} \pagestyle{empty} \begin{document} \multido{\i=30+2}{55}{% \begin{center} \psset{unit=0.75} \begin{pspicture}(-7,-7)(7,8) \psframe(-7,-7)(7,8) \psset{SphericalCoor=true,viewpoint=40 -60 20,Decran=40,args={[0 \i\space cos neg \i\space sin 0]}}% \pstVerb{ /BleuMetal {0.7 0.7 1 setrgbcolor} def %%%%% ### SymPlan ### %% symétrie / plan ax+by+cz+d=0 /SymPlan { 12 dict begin /z exch def /y exch def /x exch def args aload pop /d1 exch def /c1 exch def /b1 exch def /a1 exch def /n_U a1 dup mul b1 dup mul add c1 dup mul add sqrt def /a a1 n_U div def /b b1 n_U div def /c c1 n_U div def /d d1 n_U div def /u a x mul b y mul add c z mul add d add def x 2 a mul u mul sub y 2 b mul u mul sub z 2 c mul u mul sub end } def /reverseliste { /F_temp exch def 4 dict begin /F1 [ 0 1 F_temp length 1 sub {/j exch def /T F_temp j get def [T length 1 sub -1 0 { /i exch def T i get} for ] } for ] def /F F1 def end} def }% \codejps{ /PerBU {% 1 0.55409 rhombicuboctahedron } def /PerBU2 { PerBU {0 0 4 translatepoint3d} solidtransform {SymPlan} solidtransform } def /PerBUSym { /F PerBU2 solidgetfaces def F reverseliste /S PerBU2 solidgetsommets def S F generesolid dup [0 1] solidputhuecolors } def /PerBUinitial { PerBU dup [0 1] solidputhuecolors {0 0 4 translatepoint3d} solidtransform } def args eq2plan dup {[-4 4 -6 6]} exec planputrange dup {[8. 12.]} exec planputngrid newplan dup videsolid dup (BleuMetal) solidputcolors dup (BleuMetal) inputcolors drawsolid** %solidfuz .5 setfillopacity PerBUSym %solidfuz drawsolid** 1 setfillopacity 8 newcube drawsolid PerBUinitial drawsolid** } \psLineIIID(-4,-4,4)(4,-4,4) \psLineIIID[linecolor=red,linewidth=0.1](-5,0,0)(5,0,0) \axesIIID(4,5,5)(5,5.2,7) \end{pspicture} \end{center} \newpage} \end{document}