20 setxunit
-2 5 setxrange
-1 4 setyrange
usecolor
/fillstyle {grey85 fill} def
/a {2 2} def
/R {1} def
0 setlinewidth
0 -1 5 5 rframe*
/fillstyle {blanc fill} def
a 1 cercle*
0.5 setlinewidth
[-2 0 4.5 0] (->) ligne
[0 0.5 2 0.5] (<->) ligne
[1 2 2 2] (-) ligne
a point1