test.tex

\documentclass[10pt,a4paper,titlepage]{article} 
\usepackage[latin1]{inputenc} 
\usepackage[T1]{fontenc} 
%\usepackage[francais]{babel} 
\usepackage{amsmath}
\usepackage{pst-all} 
\usepackage{pstricks} 
%\usepackage{pst-eucl} 
%\usepackage{pst-func}
%\usepackage{pst-plot}
%\usepackage{pst-3dplot}
\usepackage{pst-solides3d}
%\usepackage{layout}
%\usepackage{fancyhdr}
%\usepackage{clefval}
 
%% %Format de la page (marges)
%% \addtolength{\textwidth}{5cm} 
%% \addtolength{\oddsidemargin}{-2.5cm}
%% \addtolength{\marginparwidth}{-50pt}
%% \addtolength{\textheight}{5cm} 
%% \addtolength{\topmargin}{-2.5cm} 
%% 
%% %En-tête et pied de page
%% \pagestyle{fancy}
%% \newcommand{\chaptermark}[1]{\markboth{#1}{}}
%% \renewcommand{\sectionmark}[1]{\markright{\thesection\ #1}}
%% \fancyhf{} \fancyhead[RO]{\bfseries\thepage}
%% %\fancyhead[LO]{\bfseries\rightmark}
%% %\fancyhead[RE]{\bfseries\leftmark}
%% \renewcommand{\headrulewidth}{0.5pt}
%% \addtolength{\headheight}{0.5pt}
%% \renewcommand{\footrulewidth}{0pt}
%% \fancypagestyle{plain}{ \fancyhead{}
%% \renewcommand{\headrulewidth}{0pt}} 
%% 
%% %titre du document
%% \title{CAPES interne de Mathématiques\\session 1999\\deuxième composition\\premier exercice}
%% \author{}
%% \date{}
%% 
%% %Indentation des paragraphes nulle
%% \setlength{\parindent}{0pt}
 
 
 
%Début du document
\begin{document}
%
\begin{pspicture}(-8,14)
\psset{viewpoint=50 50 30,Decran=100, solidmemory}
%
%Tracé des axes
%
\psframe(-8,-4)(8,14)
\axesIIID[showOrigin=true](0,0,0)(7.5,7.5,10.5)%
%
%					**************************************************************************
%					* Fig 1 : polygones projetés orthogonaux des faces d'un cube sur un plan *
%					**************************************************************************
%
			%
			% Tracé du cube de centre O
			%
%
		\psSolid[object=cube,a=3,RotX=30,RotY=30,RotZ=0,action=draw,name=C1](0,0,8)%
%
                        % Définition des sommets du cube C1
%
                \psSolid[object=point,definition=solidgetsommet,args=C1 0,name=g,pos=dr,text=g]%
                \psSolid[object=point,definition=solidgetsommet,args=C1 1,name=h,pos=ur,text=h]%
                \psSolid[object=point,definition=solidgetsommet,args=C1 2,name=i,pos=ul,text=i]%
                \psSolid[object=point,definition=solidgetsommet,args=C1 3,name=j,pos=ul,text=j]%
                \psSolid[object=point,definition=solidgetsommet,args=C1 4,name=m,pos=dr,text=m]%
                \psSolid[object=point,definition=solidgetsommet,args=C1 5,name=n,pos=ur,text=n]%
                \psSolid[object=point,definition=solidgetsommet,args=C1 6,name=o,pos=ul,text=o]%
                \psSolid[object=point,definition=solidgetsommet,args=C1 7,name=p,pos=dl,text=p]%
%
                        % Définition de (P), plan de projection orthogonale (point O, vecteur normal w, 
                        % base (u,v))
%
                \psSolid[object=point,args=0 0 0,name=O]
                \psSolid[object=vecteur,args=1 0 0, name=u,linecolor=blue,action=draw,text=u,pos=ur]%
                \psSolid[object=vecteur,args=0 1 0, name=v,linecolor=blue,action=draw,text=v,pos=ur]%
                \psSolid[object=vecteur,args=0 0 1, name=w,linecolor=red,action=draw,text=w,pos=ur]%
                \psSolid[object=plan,definition=normalpoint,
                   args={0 0 0 [0 0 1]},name=P,base=-5 5 -5 5,
                   planmarks,
%                   action=none,
]
%
                        %Projection des sommets du cube sur (P)
%
                \psSolid[object=point,definition=orthoprojplane3d, args=g O w,name=O_3,text=O_3,pos=dr]%
                \psSolid[object=point,definition=orthoprojplane3d, args=g P,name=T,linecolor=blue,text=Ttes,pos=ur]%
                \psSolid[object=point,definition=orthoprojplane3d, args=h P,name=A_2,text=A_2,pos=dr]%
                \psSolid[object=point,definition=orthoprojplane3d, args=i P,name=I,text=I,pos=dr]%
                \psSolid[object=point,definition=orthoprojplane3d, args=j P,name=A_1,text=A_1,pos=dr]%
                \psSolid[object=point,definition=orthoprojplane3d, args=m P,name=M,text=M,pos=dr]%
                \psSolid[object=point,definition=orthoprojplane3d, args=n P,name=O_1,text=O_1,pos=dr]%
                \psSolid[object=point,definition=orthoprojplane3d, args=o P,name=A_3,text=A_3,pos=dr]%
                \psSolid[object=point,definition=orthoprojplane3d, args=p P,name=O_2,text=O_2,pos=dr]%
%% %
%% %
%% %
\defFunction{F}(t)
   {u t Cos mulv3d v t Sin mulv3d addv3d O O_3 distance3d mulv3d M addv3d}
   {}
   {}%
\psSolid[object=courbe,function=F,r=0,fillcolor=green!50,incolor=yellow!50,
  range=0 6.29]
\psset{plan=P}
\psProjection[object=point,
   linecolor=orange]
\psProjection[object=point,
   definition=p3dtoplane,
   args=A_1 P,
   name=pA1,
   linecolor=orange]
\psProjection[object=cercle,
   args=pA1 1,
   range=0 360]
\psProjection[object=cercle,
   args=0 0 1,
   range=0 360]
\psProjection[object=droite,
   args=0 0 pA1,
   range=0 360]
\end{pspicture}
%
%
%
\end{document}