%% 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
$P$
-1 0 [1.5 dup] ultexlabel
$M$
M [1.5 dup] urtexlabel
$\tex{G}'$
M' [1.5 dup] urtexlabel
$\mathcal{P}=\mathcal{Q}=\mathcal{R}$
1.4 0 [1.5 dup] ultexlabel