/ClientPath { % x y w h => - (define a client canvas path)
             4 2 roll translate
             BOARD_SIZE div exch BOARD_SIZE div exch scale
             .5 .5 translate
             -.5 -.5 BOARD_SIZE BOARD_SIZE rectpath
} def
/IconPath {ClientPath} def	% define an icon canvas path