25 setxunit
7.5 setborder
90 setangle_repere
-7 7 setxrange
-7 7 setyrange
pi pi settkstep
pi pi setmkstep
20 setfontsize
pointilles
/quadrillagewidth [.5 .5] def
[pi pi] {noir} Quadrillage
ticks
[(1)] trig_xmarks
[(1)] trig_ymarks
continu
traceaxes
axesarrow
gsave
   noir
   continu
   /hstep 6 store
   /hangle 45 store
 0 pi  0 pi Hachcourbes
 0 pi -1 pi mul -2 pi mul Hachcourbes
 -2 pi mul -1 pi mul 0 pi Hachcourbes
 -2 pi mul -1 pi mul -1 pi mul -2 pi mul Hachcourbes
 pi 2 pi mul pi 2 pi mul Hachcourbes
 pi 2 pi mul 0 -1 pi mul Hachcourbes
 -1 pi mul 0 pi 2 pi mul Hachcourbes
 -1 pi mul 0 0 -1 pi mul Hachcourbes
grestore