autocrop
-20 40 setxrange
-25 40 setyrange
7 setxunit
%quadrillage
%marks

1 setlinewidth

/r 12 def
/A {0 0} def
/A' {0 -5} def
/B {r 0} def
/C {r r} def
/D {0 r} def
/B' {r 8 add -5} def
/C' {r 8 add r} def

/fillstyle {.9 setgray fill} def
[A' B' C' D] polygone*

/fillstyle {1 setgray fill} def
[A B C D] polygone*

setTimesItalic
   (A) A ultext
   (B) B ultext
   (C) C ultext
   (D) D ultext

.7 setlinewidth

gsave
   -1 0 stranslate
   [A A'] (<->) ligne
   (5 m) A A' milieu cltext
grestore

gsave
   0 1 stranslate
   [C C'] (<->) ligne
   (8 m) C C' milieu uctext
grestore