20 setxunit
-3 3 setxrange
-3 3 setyrange
usecolor
/fillstyle {grey85 fill} def
/O {0 0} def
/R {2} def
/vec {1.71 1} def
O vec addv /A defpoint
0 setlinewidth 
O R cercle*
0.5 setlinewidth
O point
[O A] ligne