perpendiculaire_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}
\defFunction[algebraic]{F1}(x){3*sin(x)}{}{}
%% 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,fontsize=20}
%% construction et nommage d'une droite D
%% passant par (0,0) et (2,1)
\psProjection[object=droite,
   args=0 0 2 1,
   name=D,
   linecolor=red,
]
%% label de la droite, au point d'abscisse 3
\psProjection[object=point,
   definition=xdpoint,
   args=3 D,
   text=d,
   pos=dr,
   action=none,
]
%% definition du point A
\psProjection[object=point,
   args=-3 1,
   name=A,
   text=A,
   pos=uc,
]
%% droite perpendicaulaire a d passant par A
\psProjection[object=droite,
   definition=perp,
   args=D A,
]
\composeSolid
\axesIIID(4,4,2)(5,5,6)
\end{pspicture}
 
 
\end{document}