Suggest using the Postscript 'for' operator for this:

0 1 15{
    /x exch def
    0 1 23{
        /y exch def
        x 0.5 add raster mul 
        y 0.5 add raster mul
        2.5 mms 0 359 arc stroke
    }for % y loop
}for % x loop