| 1 |
package image; |
| 2 |
|
| 3 |
use KGS::Constants; |
| 4 |
|
| 5 |
sub load_img { |
| 6 |
my $path = KGS::Constants::findfile $_[0]; |
| 7 |
new_from_file Gtk2::Gdk::Pixbuf $path |
| 8 |
or die "$path: $!"; |
| 9 |
} |
| 10 |
|
| 11 |
@::black_img = load_img "Gtk2/GoBoard/images/b-01.png"; |
| 12 |
@::white_img = map +(load_img "Gtk2/GoBoard/images/w-0$_.png"), 1,2,3,4,5; |
| 13 |
$::shadow_img = load_img "Gtk2/GoBoard/images/shadow.png"; |
| 14 |
@::triangle_img = map +(load_img "Gtk2/GoBoard/images/triangle-$_.png"), qw(b w); |
| 15 |
@::square_img = map +(load_img "Gtk2/GoBoard/images/square-$_.png"), qw(b w); |
| 16 |
@::circle_img = map +(load_img "Gtk2/GoBoard/images/circle-$_.png"), qw(b w); |
| 17 |
$::board_img = load_img "Gtk2/GoBoard/images/woodgrain-01.jpg"; |
| 18 |
|
| 19 |
1; |
| 20 |
|
