%% auteur : Mora

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


/A {-3 0} def
/B{1 3} def
/C{14 3} def
/D{10 0} def
/M{6 6} def
/M'{6 1.5} def
/N{6 10} def
/P{6 0} def
/Q{6 -4} def
/T{6 2} def
/Z{5.6 1.75} def
/Y{5.6 1.3} def
[Z T] ligne
[Z Y] ligne
[A B C D] polygone*
[N M'] ligne
[P Q] ligne
pointilles
[M' P] ligne
/dotscale {2 dup} def
[M M'] {times} plot
<tex>
$P$
</tex>
-1 0 [1.5 dup] ultexlabel

<tex>
$M$
</tex>
M [1.5 dup] urtexlabel
<tex>
$M'$
</tex>
M' [1.5 dup] urtexlabel
<tex>
$\Delta_M$
</tex>
Q [1.5 dup] urtexlabel