300 setwidth 300 setheight 7.5 setborder -1.2 1.2 setxrange -1.2 1.2 setyrange jpegmode /quadrillagegray 1 def 1 setquadrillagexstep .2 setquadrillageystep quadrillage 1 1 settkstep .5 .5 setsubtkstep 2 2 setmkstep ticks subticks marks traceaxes axesarrow /R {settvar t sin t sin mul t cos t cos mul add .5 5400 pi mul t mul sin mul add } def 0 2 pi mul settrange gsave 1 setcurvelinewidth continu rouge (R) courbepolar grestore