package image;

sub load_img {
   new_from_file Gtk2::Gdk::Pixbuf "$::IMGDIR/$_[0]"
#   load_image Gtk2::Gdk::ImlibImage "$::IMGDIR/$_[0]"
      or die "$::IMGDIR/$_[0]: $!";
}

my @fontchars = ('A' .. 'Z', 0 .. 9);

@::black_img    =       load_img "b-01.png";
@::white_img    = map +(load_img "w-0$_.png"), 1,2,3,4,5;
$::shadow_img   =       load_img "shadow.png";
@::triangle_img = map +(load_img "triangle-$_.png"), qw(b w);
@::square_img   = map +(load_img "square-$_.png"), qw(b w);
@::circle_img   = map +(load_img "circle-$_.png"), qw(b w);
$::board_img    =       load_img "woodgrain-01.jpg";

@::font = (
              [map +(load_img "font/$_-black.png"), @fontchars],
              [map +(load_img "font/$_-white.png"), @fontchars],
            );
%::fontmap;
@::fontmap{@fontchars} = (0..25 + 10);
@::fontmap{'a' .. 'z'} = (0..25);

1;