%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: 44 139 452 250
%%HiResBoundingBox: 44.567999 139.625996 451.853986 249.633906

systemdict /.setlanguagelevel known { 2 .setlanguagelevel} if

0 setlinewidth

/maxplayers 21 def

/showtext { 0.5 0.25 translate
    dup stringwidth pop -2 div 0 moveto 0 setgray show } bind def

/groups { gsave
     lowerleft -3 G 0.35 add moveto
     1 1 G { gsave 0.7 dup scale (Group ) show 5 string cvs show grestore
         0 -1 rmoveto
     } for grestore } bind def

/init { % G P W
    /W exch def /P exch def /G exch def
    100 10 translate
    500 maxplayers P idiv dup P mul add 1 sub div dup scale

    /Palatino-Roman findfont 0.8 scalefont setfont
    1 maxplayers P idiv W { groups } for

    1 1 W { gsave dup lowerleft P 2 div
        /Palatino-Bold findfont 0.75 scalefont setfont
        1 index maxplayers P idiv le { G 1.4 add } { 0 } ifelse translate
        5 string cvs (Week ) dup stringwidth pop
        2 index stringwidth pop
        add -2 div 0 moveto show show grestore } for
    
    1 1 G { 1 1 P { 1 1 W { 3 copy c pop } for  pop } for pop  } for
} bind def

/lowerleft { % week
    dup P mul maxplayers le { G 1 add } { maxplayers P idiv sub 0 } ifelse
    exch 1 sub dup P mul add exch translate } bind def

/gcoords { % g p w
   lowerleft
   1 sub
   exch
   G sub neg 1 add
   translate
} bind def
/r { 1 setgray 0 0 1 1 4 copy rectfill 0 setgray rectstroke } bind def
/g { gsave gcoords r showtext grestore } bind def
/c { gsave gcoords r grestore } bind def
/p { gsave gcoords 1 0.5 0.5 setrgbcolor 0 0 1 1 4 copy rectfill
     0 setgray rectstroke showtext grestore } bind def


5 3 5 init
(9) 1 1 1 g
(7) 1 2 1 g
(14) 1 3 1 g
(3) 2 1 1 g
(5) 2 2 1 g
(10) 2 3 1 g
(6) 3 1 1 g
(12) 3 2 1 g
(2) 3 3 1 g
(4) 4 1 1 g
(1) 4 2 1 g
(13) 4 3 1 g
(11) 5 1 1 g
(8) 5 2 1 g
(15) 5 3 1 g
(6) 1 1 2 g
(9) 1 2 2 g
(13) 1 3 2 g
(8) 2 1 2 g
(10) 2 2 2 g
(7) 2 3 2 g
(5) 3 1 2 g
(2) 3 2 2 g
(4) 3 3 2 g
(11) 4 1 2 p
(12) 4 2 2 g
(14) 4 3 2 p
(15) 5 1 2 g
(1) 5 2 2 g
(3) 5 3 2 g
(15) 1 1 3 p
(13) 1 2 3 p
(5) 1 3 3 g
(9) 2 1 3 p
(12) 2 2 3 p
(8) 2 3 3 g
(1) 3 1 3 g
(2) 3 2 3 g
(7) 3 3 3 g
(4) 4 1 3 g
(3) 4 2 3 g
(6) 4 3 3 g
(14) 5 1 3 p
(11) 5 2 3 p
(10) 5 3 3 g
(1) 1 1 4 g
(10) 1 2 4 g
(6) 1 3 4 g
(4) 2 1 4 g
(7) 2 2 4 g
(15) 2 3 4 g
(2) 3 1 4 g
(11) 3 2 4 g
(13) 3 3 4 g
(5) 4 1 4 g
(12) 4 2 4 p
(9) 4 3 4 p
(14) 5 1 4 g
(3) 5 2 4 g
(8) 5 3 4 g
(7) 1 1 5 g
(6) 1 2 5 g
(11) 1 3 5 g
(1) 2 1 5 g
(5) 2 2 5 g
(8) 2 3 5 g
(9) 3 1 5 g
(2) 3 2 5 g
(3) 3 3 5 g
(13) 4 1 5 p
(14) 4 2 5 g
(15) 4 3 5 p
(10) 5 1 5 g
(4) 5 2 5 g
(12) 5 3 5 g