/docircle
{xpos ypos radius 0 360 arc stroke} def        % eljárás körrajzolásra

/increase-x {                                                      % x növelésére eljárás
xpos radius add
/xpos exch def} def

/lineofcircles{                                                    % körsor rajzolására eljárás
/ypos exch def
/radius exch def
/xpos 0 def
{xpos pagewidth le                                             % ha nagyobb az x pozició, mint a lapméret
{docircle increase-x} {exit} ifelse} loop       % akkor már kiugrik
}def

10 400 lineofcircles
30 400 lineofcircles
90 400 lineofcircles
showpage