%% 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{-4 1} def
/S{15 1} def
[R S] ligne
[M M'] ligne
[A B C D] polygone*
/dotscale {2 dup} def
[M M'] {times} plot
<tex>
$P$
</tex>
-1.6 -0.2 [1.5 dup] ultexlabel

/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>
$M$
</tex>
M [1.5 dup] urtexlabel

<tex>
$M'$
</tex>
M' [1.5 dup] drtexlabel

<tex>
$D$
</tex>
13 1 [1.5 dup] ultexlabel