| … | |
… | |
| 8 | |
8 | |
| 9 | my @fontchars = ('A' .. 'Z', 0 .. 9); |
9 | my @fontchars = ('A' .. 'Z', 0 .. 9); |
| 10 | |
10 | |
| 11 | @::black_img = load_img "b-01.png"; |
11 | @::black_img = load_img "b-01.png"; |
| 12 | @::white_img = map +(load_img "w-0$_.png"), 1,2,3,4,5; |
12 | @::white_img = map +(load_img "w-0$_.png"), 1,2,3,4,5; |
|
|
13 | $::shadow_img = load_img "shadow.png"; |
| 13 | @::triangle_img = map +(load_img "triangle-$_.png"), qw(b w); |
14 | @::triangle_img = map +(load_img "triangle-$_.png"), qw(b w); |
| 14 | @::square_img = map +(load_img "square-$_.png"), qw(b w); |
15 | @::square_img = map +(load_img "square-$_.png"), qw(b w); |
| 15 | @::circle_img = map +(load_img "circle-$_.png"), qw(b w); |
16 | @::circle_img = map +(load_img "circle-$_.png"), qw(b w); |
| 16 | $::board_img = load_img "woodgrain-01.jpg"; |
17 | $::board_img = load_img "woodgrain-01.jpg"; |
| 17 | |
18 | |
