autocrop
%quadrillage marks
20 setxunit
-18 10 setxrange
-7.5 14.5 setyrange

/a {-6 4 0} def    
/b {6 4 0} def    
/c {6 -4 0} def    
/d {-6 -4 0} def    
/s {0 0 12} def

/vect_I {-10 cos -10 sin} def
/vect_J {40 cos 40 sin .8 mulv} def
/vect_K {0 1} def

/xyz2xy {
3 dict begin
   /z exch def
   /y exch def
   /x exch def
   vect_I x mulv
   vect_J y mulv
   vect_K z mulv
   addv addv
end
} def

[/A /B /C /D /S] 
[a b c d s] {xyz2xy} capply
mapnp

1.5 S C xdpoint /I defpoint

.8 setlinewidth
B C I paral 
B S interdroite
/J defpoint

S D I paral 
D C interdroite
/K defpoint

B C K paral 
B A interdroite
/L defpoint

mixte
/fillstyle {.8 setgray fill} def
[I J L K] polygone*
continu

gsave
   .8 setlinewidth
   pointilles
   [S A B] ligne
   [A D] ligne
grestore

/dotscale {2 dup} def
I times

1.2 setlinewidth
[D C B S] ligne
[S C] ligne
[D S] ligne

%% le plan de base
/P1 {5 -5} def
-9 C D P1 paral xdpoint /P2 defpoint
9 C B P1 paral xdpoint /P3 defpoint
2 setlinewidth
[P2 P1 P3] ligne

12 setfontsize
setTimesItalic
   (A) A ultext   
   (B) B urtext	  
   (C) C drtext	  
   (D) D dltext	  
   (I) I bltext   
   (S) S urtext   


%% <tex>
%% \vbox {\hsize 72mm \parindent 0pt
%% Une pyramide $SABCD$ est posée sur un plan $H$. On note $P$ le plan
%% passant par $U$ (qui se trouve sur l'arête $SM$) et contenant la
%% droite $d$ (qui se trouve dans le plan $H$).
%% 
%% $\bullet $ Tracer l'intersection de $P$ et de la face $SCD$.
%% 
%% $\bullet $ Tracer l'intersection de $P$ et de la face $SAD$.
%% 
%% $\bullet $ Tracer l'intersection de $P$ et de la pyramide.
%% }
%% </tex>
%% 
%% -26.5 4.5 [1.5 dup] urtexlabel