%!PS-Adobe-2.0
%%Title: 2_focus_Paper
%%EndComments
/MM
{
2.83464567 mul
} bind def
/MyPageHeight
{
297 MM round
} bind def
/MyPageWidth
{
210 MM round
} bind def
% distance between circles and parallels
/MyIncrement
{
5 MM
} bind def
%
/MyLinewidth
{
0.15 MM setlinewidth
} bind def
% horizontal offset of circle center
/MyOffset
{
30 MM
} bind def
statusdict begin
MyPageHeight MyPageWidth 0 1 setpageparams
%% pageparams PP = PP = PP = PP =
end
/DrawConcentricCircles
{
gsave
MyLinewidth
% adapt limit ("200") individually so that the sheet is filled
% up to the corners with circles
0 MyIncrement 200 MM round
{
0 exch 0 exch
0 360 arc
stroke
} bind for
grestore
gsave
} bind def
%%EndProlog
gsave
% coordinate origin to center of sheet
MyPageWidth 2 div round MyPageHeight 2 div round translate
% move coordinate origin slightly leftwards
0 MyOffset -1 mul translate
DrawConcentricCircles
grestore
% move coordinate origin back to center
0 MyOffset 2 mul translate
DrawConcentricCircles
grestore
showpage
%%Trailer