%autocrop
20 setxunit
%quadrillage marks

-22 8 setxrange
-5.5 14 setyrange

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

/a {-6 4.5 0} def    
/b {6 4.5 0} def    
/c {6 -4.5 0} def    
/d {-6 -4.5 0} def    
/s {-4.5 3 11.4} def
/s' {s pop 0} def

/alpha 35 def
/beta 170 def
/vect_I {alpha cos alpha sin .5 mulv} def
/vect_J {beta cos beta sin .9 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 /S'] 
[a b c d s s'] {xyz2xy} capply
mapnp

6 S D ydpoint /D' defpoint
7 S C ydpoint /C' defpoint

/dotscale {2 dup} def
[S' C' D'] {times} plot

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

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

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


12 setfontsize
setTimesItalic
   (A) A dltext   
   (B) B dctext	  
   (C) C urtext	  
   (D) D drtext	  
   (D') D' (5 2) uctext	  
   (C') C' urtext	  
   (S) S ultext   
   (s) S' brtext   
   (H) P2 (0 7) ultext

<tex>
\vbox {\hsize 70mm \parindent 0pt
Une pyramide $SABD$ est posée sur un plan horizontal $H$. La
verticale du point $S$ coupe $H$ en $s$.

Soit $V$ le plan vertical passant par les points $C'$ et $D'$ (situés
respectivement sur $[SC]$ et $[SD]$).

$\bullet $ Tracer les intersections $c$ et $d$ de $H$ et des droites
verticales passant par $C'$ et $D'$.

$\bullet $ Tracer l'intersection de $H$ et de $V$.

$\bullet $ Tracer l'intersection de $V$ et de la pyramide.
}
</tex>

/fillstyle {.9 setgray fill} def
/linearc .5 store
.8 setlinewidth
/dx_boxit 2 def
/dy_boxit 2 def
boxit
xmin 4 [1.5 dup] urtexlabel