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 1 setlinewidth O R cercle 0.5 setlinewidth O point [O A] ligne