autocrop
20 setxunit
-17 13 setxrange
-6 11 setyrange
%quadrillage marks

/p {9 4 0} def    
/q {5 -4 0} def    
/n {-5 0 0} def    
/m {0 0 8} def

/vect_I {-10 cos -10 sin} def
/vect_J {40 cos 40 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

[/P /Q /N /M] 
[p q n m] {xyz2xy} capply
mapnp

%% corrige
M N milieu /I defpoint
M P milieu /J defpoint
Q P milieu /K defpoint
Q N milieu /L defpoint
M Q milieu /U defpoint
N P milieu /V defpoint

/fillstyle {.9 setgray fill} def
gsave
   .6 setlinewidth
   mixte
   [I J K L] polygone*
   pointilles
   [I K] ligne
   [J L] ligne
   [U V] ligne
grestore
[I J K L U V U V milieu] {times2} plot

%%%%%%%%%%
gsave
   .8 setlinewidth
   pointilles
   [P N] ligne
grestore

/dotscale {2 dup} def

1.2 setlinewidth
[M P Q] ligne
[M Q N] ligne
[M N] ligne

12 setfontsize
setTimesItalic
   (I) I ultext   
   (J) J urtext   
   (K) K drtext   
   (L) L dltext   
   (U) U urtext   
   (V) V dctext   
   (P) P crtext   
   (Q) Q drtext	  
   (N) N cltext	  
   (M) M urtext   

%% <tex>
%% \vbox {\hsize 60mm \parindent 0pt
%% Le point $I$ est dans la face $SQR$ du tétraèdre.
%% 
%% Tracer l'intersection $J$ de la face $PQR$ et de la droite $d$
%% parallèle à $(SP)$ qui passe par $I$.
%% }
%% </tex>
%% 
%% /fillstyle {.9 setgray fill} def
%% /linearc .5 store
%% .8 setlinewidth
%% /dx_boxit 2 def
%% /dy_boxit 2 def
%% boxit
%% xmin 5.5 [1.5 dup] urtexlabel