checkpoint; still ugly (MAPS/bc-draw-map.pl)