20 setxunit
1 13 setxrange
1 9 setyrange
usecolor
/fillstyle {grey85 fill} def

0 setlinewidth

[2 5 2 3 3 2 5 2 7 2 8 4 9 4 10 4 10 3.5 11 3.5 12 3.5 12 4 12 5 12 6 10 8 7 8 4 8 2 7 2 5] bezier_curve*

/fillstyle {blanc fill} def
4 4 1 cercle*
4 4 point1
[4 4 3.15 4.5] ligne