jpegmode
%quadrillage marks
400 setheight
667 setwidth
-22 8 setxrange
-5.5 14.5 setyrange

%% la plan de base
/P1 {-9 -3} def
/P2 {4 -5} def
/P3 {8.5 0} def

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

/I {1.5 5.5} def
/J {-2 4} def
/K {2 2} def

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

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

[A D C S] ligne
[A S D] ligne
[-9 I J xdpoint J] ligne
[xmax I J xdpoint I] ligne
[xmax I J K paral xdpoint K] ligne

gsave
   .8 setlinewidth
   pointilles
   [A B C] ligne
   [B S] ligne
   [I J] ligne
grestore

2 setlinewidth
[-12 P2 P1 xdpoint P2 P3] ligne

12 setfontsize
setTimesItalic
   (A) A dltext   
   (B) B urtext	  
   (C) C drtext	  
   (D) D dltext	  
   (I) I (0 2) uctext   
   (J) J urtext   
   (K) K drtext   
   (S) S urtext   
   (d) 7 8 bltext
   (d') 7 4.5 bctext

<tex>
\vbox {\hsize 62mm \parindent 0pt
Les deux droites $d$ et $d'$ sont parallèles. La droite $d$ rencontre
les faces de la pyramide $SABCD$ en $I$ et en $J$. La droite $d'$ rencontre les faces
de cette pyramide en $K$ et en un point $L$ à dessiner.
}
</tex>

-20.5 2.5 [1.5 dup] urtexlabel