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