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