%% auteur : Mora

-3 16 setxrange
-5 8 setyrange
25 setxunit
25 setyunit


/A {-3 0} def
/B{2 4} def
/C{13 4} def
/D{8 0} def
/M{5 3} def
/M'{3 1} def
/R{0 1} def
/S{7 1} def
[R S] (->) ligne
[R M] (->) ligne
pointilles
[M M'] ligne
continu
[A B C D] polygone*



/T{2.5 1} def

1.3 M' M ydpoint /Y defpoint
/Z{2.75 1.3} def
[Z T] ligne
[Z Y] ligne


<tex>
$C$
</tex>
M [1.5 dup] urtexlabel

<tex>
$H$
</tex>
M' [1.5 dup] dctexlabel

<tex>
$A$
</tex>
R [1.5 dup] dltexlabel


<tex>
$B$
</tex>
S [1.5 dup] drtexlabel