%! % 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 a cos a sin moveto N { /a a 360 N div add def a cos a sin lineto } repeat % you could draw the circle twice to fill it % but you can avoid that by saving and restoring the graphics state gsave % set colours as RGB components in a range 0 - 1 1 0.5 0 setrgbcolor fill grestore % or shades of gray with a single number 0.5 setgray stroke