kgsueme/kgsueme/image.pl

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;

Revision:	1.5
Committed:	Sat Aug 2 01:49:36 2003 UTC (20 years, 10 months ago) by pcg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.4:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	* empty log message *
#	User	Rev	Content
1	pcg	1.1	package image;
2
3	pcg	1.4	use KGS::Constants;
4
5	pcg	1.1	sub load_img {
6	pcg	1.4	my $path = KGS::Constants::findfile $_[0];
7			new_from_file Gtk2::Gdk::Pixbuf $path
8			or die "$path: $!";
9	pcg	1.1	}
10
11	pcg	1.4	@::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	pcg	1.1
19			1;
20