%% taille de la fenetre
-4 4 setxrange
-4 4 setyrange

%% epaisseur du trait 
1.5 setlinewidth

%% on definit les points
/A {-2 -2} def
/B {2 -2} def
/C {2 2} def
/D {-2 2} def

%% on trace la figure
[A B C D] 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 urtext
   (D) D ultext