%! /S 48 def S dup scale 2 S div setlinewidth 4.25 72 mul 48 div 5.5 72 mul 48 div translate % now centred on the page newpath 0 6 1 0 90 arc stroke newpath 0 3 1 0 90 arcn stroke newpath 0 0 moveto 0 0 1 0 90 arc stroke newpath 0 -3 moveto 0 -3 1 0 90 arc fill newpath 0 -6 1 0 90 arc fill