%autocrop
20 setxunit
-14 12 setxrange
-6 11 setyrange
%quadrillage marks

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

/vect_I {-5 cos -5 sin} def
/vect_J {30 cos 30 sin .8 mulv} def
/vect_K {0 1} def

%% [O vect_I] (->) ligne
%% [O vect_J] (->) ligne
%% [O vect_K] (->) ligne

/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

-6 S A xdpoint /I defpoint
1 S D xdpoint /J defpoint
6 S C xdpoint /K defpoint

%% corrige
I J A D interdroite
/U defpoint

J K D C interdroite
/V defpoint
U V A B interdroite
/M defpoint
U V C B interdroite
/N defpoint

gsave
   .8 setlinewidth
   pointilles
   orange
   [A U] ligne
   [I U] ligne
   [K V] ligne
   [C V] ligne
grestore
[U V M N] {times2} plot

gsave
   .5 setlinewidth
   mixte
   [M U 4 copy vecteur .3 mulv addv] ligne
   [N V 4 copy vecteur .3 mulv addv] ligne
   /fillstyle {.8 setgray fill} def
   [I J K N M] polygone*
grestore
%%
gsave
   .8 setlinewidth
   pointilles
   [A B C] ligne
   [B S] ligne
grestore

/dotscale {2 dup} def
[I J K] {times} plot

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

%% le plan de base
/P1 {1 -5} def
/P2 {-13 -2} def
/P3 {11 -3} def
2 setlinewidth
[P2 P1 P3] ligne

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

%% <tex>
%% \vbox {\hsize 60mm \parindent 0pt
%% Le point $I$ est sur l'arête $SC$ de la pyramide $SABCD$.
%% Le plan $Z$ passe par $I$ et est parallèle aux droites $(PQ)$ et
%% $(SM)$.
%% 
%% Tracer l'intersection de la pyramide et du plan $Z$.
%% }
%% </tex>
%% 
%% /fillstyle {.9 setgray fill} def
%% /linearc .5 store
%% .8 setlinewidth
%% /dx_boxit 2 def
%% /dy_boxit 2 def
%% boxit
%% -20.5 4.5 [1.5 dup] urtexlabel