plans_paralleles_03.tex

\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle{empty}
 
 
\begin{pspicture}(-4,-3)(7,5)%
\psframe*[linecolor=blue!50](-4,-3)(7,5)
\psset{viewpoint=40 25 7,Decran=60}
\psset{solidmemory}
%% definition du plan Q
\psSolid[object=plan,
   definition=equation,
   args={[0 1 1 0] 90},
   base=-4 4 -2 3,
   action=none,
   name=Q,
]
%% definition du plan P
\psSolid[object=plan,
   definition=equation,
   args={[0 0 1 0] 90},
   base=-4 4 -2 3,
   action=none,
   name=P,
]
%% definition du plan P1
\psSolid[object=plan,
   definition=equation,
   args={[0 0 1 -1] 90},
   action=none,
   base=-4 4 -2 3,
   name=P1,
]
%% definition du plan P2
\psSolid[object=plan,
   definition=equation,
   args={[0 0 1 -2] 90},
   base=-4 4 -2 3,
   action=none,
   name=P2,
]
\psset{plan=P}
%% separation du plan Q
\psSolid[object=plan,
   args=Q,
   fillcolor=white,
   plansepare={P2},
   name=Q,
   action=none,
]
\psSolid[object=load,load=Q_s1,
   plansepare={P1},
   name=Q1,
   action=none,
]
\psSolid[object=load,load=Q11,
   plansepare={P},
   name=Q11,
   action=none,
]
\psSolid[object=load,load=Q111]
%% dessin du plan P
\psSolid[object=plan,
   args=P,
   fillcolor=white,
]
%% legende du plan
\psProjection[object=texte,
   fontsize=20,
   text=P,
   pos=cc,
](-3.65,-1.65)
\psProjection[object=cercle,
   args=-4 -2 1,
   range=0 90,
]
\psSolid[object=load,load=Q110]
%%
\psset{plan=P1}
%% dessin du planP1
\psSolid[object=plan,
   args=P1,
   fillcolor=white,
]
%% legende du plan
\psProjection[object=texte,
   fontsize=20,
   text=P',
   pos=cc,
](-3.65,-1.65)
\psProjection[object=cercle,
   args=-4 -2 1,
   range=0 90,
]
\psSolid[object=load,load=Q10]
\psset{plan=P2}
%% dessin du planP2
\psSolid[object=plan,
   args=P2,
   fillcolor=white,
]
%% legende du plan
\psProjection[object=texte,
   fontsize=20,
   text=P'',
   pos=cc,
](-3.55,-1.6)
\psProjection[object=cercle,
   args=-4 -2 1.2,
   range=0 90,
]
\psSolid[object=load,load=Q_s0]
%% dessin du plan P1 en pointilles
\psSolid[object=plan,
   args=P2,
   linestyle=dashed,
   action=draw,
]
\psSolid[object=plan,
   args=P1,
   linestyle=dashed,
   action=draw,
]
\psSolid[object=plan,
   args=P,
   linestyle=dashed,
   action=draw,
]
\codejps{/aretescachees false def}
\psSolid[object=plan,
   args=Q,
   linestyle=dashed,
   action=draw,
]
%\codejps{Q planmarks}
\psset{plan=Q,fontsize=10}
%% legende du plan
\psProjection[object=texte,
   fontsize=20,
   text=Q,
   pos=cc,
](3.5,-1.6)
\psProjection[object=cercle,
   args=4 -2 1,
   range=90 180,
]
\composeSolid
%\axesIIID(4,4,2)(5,5,6)
\end{pspicture}
 
 
\end{document}