hmm

test.ps

/radius 0 def
/currentgray 1 def
/pagewidth currentpagedevice /PageSize get 0 get def
/pageheight currentpagedevice /PageSize get 1 get def
 
/incRadius {
    /radius radius 8 add def
} def

/setGray {
    /currentgray radius pagewidth div def
} def


/doCircle {
  currentgray setgray

  radius pagewidth div pagewidth -1 mul mul radius 1.2 mul radius 0 360 arc
  stroke
  
  radius pagewidth div pagewidth mul radius -1.2 mul radius 0 360 arc
  stroke
  
  radius pagewidth div pagewidth -1 mul mul radius -0.7 mul radius 0 360 arc
  stroke
  
  radius pagewidth div pagewidth mul radius 0.7 mul radius 0 360 arc
  stroke
  
} def

pagewidth 2 div
pageheight 2 div
translate

{
    radius pagewidth le
    {
        doCircle
        incRadius
        setGray
    }
    {
        exit
    } ifelse
} loop


showpage