inter_droite_cercle_01.tex

\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle{empty}
 
 
 
\begin{pspicture}(-6,-5)(6,8)%
\psframe*[linecolor=blue!50](-6,-5)(6,7)
\psset{lightsrc=viewpoint,viewpoint=50 30 15,Decran=60}
\psset{solidmemory}
%% definition du plan de projection
\psSolid[object=plan,
   definition=equation,
   args={[1 0 0 0] 90},
   base=-4.2 4.2 -3.2 3.2,
   fillcolor=white,
   linecolor=gray!50,
   plangrid,
   planmarks,
   showBase,
   name=monplan,
]
\psset{plan=monplan}
%% definition du point A
\psProjection[object=point,
   args=-3 2,
   name=A,
   text=A,
   pos=uc,
]
%% definition du point B
\psProjection[object=point,
   args=3 0,
   name=B,
   text=B,
   pos=uc,
]
%% droite (AB)
\psProjection[object=droite,
   args=A B,
   name=d,
]
%% definition du cercle C
\psProjection[object=cercle,
   args=0 0 2,
   range=0 360,
   name=C,
]
%% les points d'intersection
\psProjection[object=point,
   definition=interdroitecercle,
   args=d C,
   name=E,
   text=E,
   pos=uc,
]
\psProjection[object=point,
   args=E0,
   text=F,
   pos=uc,
]
\composeSolid
\axesIIID(4,4,2)(5,5,6)
\end{pspicture}
 
\end{document}