f009.tex

\documentclass[a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage[garamond]{mathdesign}
\renewcommand{\ttdefault}{lmtt}
\usepackage{pst-solides3d}
\pstheader{macle-bresil.pro}
\pagestyle{empty}
\begin{document}
\addtosolideslistobject{macle-bresil}
\psset{unit=0.75}
 
\begin{pspicture}(-4,-6)(4,6)
\psframe*[opacity=0.5,linecolor=green!50](-4,-6)(4,6)
\psset{unit=0.5}
\psset{SphericalCoor,viewpoint=100 5 20,Decran=150,args={[0 1 0 0]}}%,num=all,show=all}
\pstVerb{
%% ======== fichier symplan3d ======== %%
%% ======== /opt/syracuse/app/jps2ps/pps/symplan3d.pps ======== %%
%% syntaxe : M eqplan/plantype symplan3d --> M'
%% ou M' symetrique de M par rapport au plan P defini par eqplan/plantype
/symplan3d {
13 dict begin
   dup isplan {
      plan2eq /args exch def
   } {
      /args exch def
   } ifelse
   /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
%
%% syntaxe : solid solidfacesreverse -> -
/solidfacesreverse {
5 dict begin
   /solid exch def
   /n solid solidnombrefaces def
   0 1 n 1 sub {
      /i exch def
      /f009.pst solid i solidgetface reverse def
      /m f009.pst length def
      solid i [f009.pst aload pop m 0 roll ] solidputface
   } for
end
} def
%
/JaunePale {1 1 0.7 setrgbcolor} def
/VertPale {0.7 1 0.7 setrgbcolor} def
}%
\codejps{
/fcol [6 (orange) 7 (orange) 8 (orange) 15 (orange) 16 (orange) 17 (orange)] def
% 9 (Magenta) 11 (Magenta) 13 (Magenta)] def
/Macle {2 3 macle-bresil
{0 0 25 rotateOpoint3d} solidtransform
{0 3 0 translatepoint3d} solidtransform
} def
/Macle2 {Macle {[0 1 0 0] symplan3d}  solidtransform } def
/SymMacle Macle2 dup solidfacesreverse  def
args eq2plan
dup {[-6 6 -6 6]} exec planputrange
dup {[12. 12.]} exec  planputngrid
newplan
dup videsolid
dup (0.7 0.7 1 setrgbcolor) solidputcolors
dup (0.7 0.7 1 setrgbcolor) inputcolors
drawsolid**
.8 setfillopacity
SymMacle
dup videsolid
dup (JaunePale) solidputcolors
dup
   0 1 fcol length 2 idiv 1 sub {
      /i exch def
      dup fcol 2 i mul get fcol 2 i mul 1 add get solidputfcolor
   } for
 drawsolid**
0.8 setfillopacity
Macle
dup videsolid
dup (JaunePale) solidputcolors
dup
   0 1 fcol length 2 idiv 1 sub {
      /i exch def
      dup fcol 2 i mul get fcol 2 i mul 1 add get solidputfcolor
   } for
 drawsolid**
}
%\axesIIID(2,2,4)(4,4,5)
\end{pspicture}
 
\end{document}