package image;

use KGS::Constants;

sub load_img {
   my $path = KGS::Constants::findfile $_[0];
   new_from_file Gtk2::Gdk::Pixbuf $path
      or die "$path: $!";
}

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

1;