%% taille de la fenetre
-3 3 setxrange
-1.5 2.5 setyrange

%% epaisseur du trait 
1.2 setlinewidth

%% on definit les points
/A {-2 2} def
/D {2 2} def
/C {2 -0.7} def
/B {-2 -0.7} def
/E {-4 2}def
/F {4 2} def
/E' {-4 2.5}def
/F' {4 2.5} def
%% on trace la figure
[A B C D] polygone
[E E' F' F] polygone
%% des angles droits
A B C angledroit
B C D angledroit
C D A angledroit
D A B angledroit

%% on marque les segments
A B 1 marked
%B C 1 marked
C D 1 marked
%D A 1 marked

%% la legende
setTimesItalic
   (A) A dltext
   (B) B drtext
   (C) C drtext
   (D) D drtext
 (Mur) -0.25 2.4 drtext
  (x)  2 0.6 drtext
  (x)  -2.2 0.6 drtext
(200-2x)  -0.25 -0.72 drtext
%% adresse IP : 90.16.134.232