%! % scale to inches 72 dup scale % move the origin to page centre 4.25 5.5 translate % reset the line width to one Adobe point % by default it is 1 current unit 1 72 div setlinewidth /N 64 def newpath /a 0 def /da 360 N div def a cos a sin moveto N { /a a da add def a cos a sin lineto } repeat stroke