ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Gtk2-GoBoard/GoBoard.pm
(Generate patch)

Comparing Gtk2-GoBoard/GoBoard.pm (file contents):
Revision 1.4 by root, Mon Jun 23 00:28:13 2008 UTC vs.
Revision 1.5 by root, Wed Jun 25 04:41:10 2008 UTC

… …
66no warnings; 66no warnings;
67use strict; 67use strict;
68 68
69use Scalar::Util; 69use Scalar::Util;
70use POSIX qw(ceil); 70use POSIX qw(ceil);
71use Carp ();
71use Gtk2; 72use Gtk2;
73
72use Games::Go::SimpleBoard; 74use Games::Go::SimpleBoard;
73use Carp ();
74 75
75use Glib::Object::Subclass 76use Glib::Object::Subclass
76 Gtk2::AspectFrame::, 77 Gtk2::AspectFrame::,
77 properties => [ 78 properties => [
78 Glib::ParamSpec->IV ( 79 Glib::ParamSpec->IV (
… …
137 138
138 new_from_file Gtk2::Gdk::Pixbuf $path 139 new_from_file Gtk2::Gdk::Pixbuf $path
139 or die "$path: $!"; 140 or die "$path: $!";
140} 141}
141 142
143our ($board_img, @black_img, @white_img, $shadow_img,
144 @triangle_img, @square_img, @circle_img, @cross_img);
145
142sub load_images { 146sub load_images {
147 $board_img = load_image "woodgrain-01.jpg";
143 @::black_img = load_image "b-01.png"; 148 @black_img = load_image "b-01.png";
144 @::white_img = map +(load_image "w-0$_.png"), 1,2,3,4,5; 149 @white_img = map +(load_image "w-0$_.png"), 1,2,3,4,5;
145 $::shadow_img = load_image "shadow.png"; 150 $shadow_img = load_image "shadow.png";
146 @::triangle_img = map +(load_image "triangle-$_.png"), qw(b w); 151 @triangle_img = map +(load_image "triangle-$_.png"), qw(b w);
147 @::square_img = map +(load_image "square-$_.png"), qw(b w); 152 @square_img = map +(load_image "square-$_.png" ), qw(b w);
148 @::circle_img = map +(load_image "circle-$_.png"), qw(b w); 153 @circle_img = map +(load_image "circle-$_.png" ), qw(b w);
149 $::board_img = load_image "woodgrain-01.jpg"; 154 @cross_img = map +(load_image "cross-$_.png" ), qw(b w);
150} 155}
151 156
152sub INIT_INSTANCE { 157sub INIT_INSTANCE {
153 my $self = shift; 158 my $self = shift;
154 159
155 @::black_img 160 @black_img
156 or load_images; 161 or load_images;
157 162
158 $self->double_buffered (0); 163 $self->double_buffered (0);
159 $self->set (border_width => 0, shadow_type => 'none', 164 $self->set (border_width => 0, shadow_type => 'none',
160 obey_child => 0, ratio => TRAD_RATIO); 165 obey_child => 0, ratio => TRAD_RATIO);
… …
330 my @kx = map int ($w2 * $_ / ($size+1) + $borderw + 0.5), 0 .. $size; $self->{kx} = \@kx; 335 my @kx = map int ($w2 * $_ / ($size+1) + $borderw + 0.5), 0 .. $size; $self->{kx} = \@kx;
331 my @ky = map int ($h2 * $_ / ($size+1) + $borderh + 0.5), 0 .. $size; $self->{ky} = \@ky; 336 my @ky = map int ($h2 * $_ / ($size+1) + $borderh + 0.5), 0 .. $size; $self->{ky} = \@ky;
332 337
333 my $pixbuf; 338 my $pixbuf;
334 339
335 my ($bw, $bh) = ($::board_img->get_width, $::board_img->get_height); 340 my ($bw, $bh) = ($board_img->get_width, $board_img->get_height);
336 341
337 if ($w < $bw && $h < $bh) { 342 if ($w < $bw && $h < $bh) {
338 $pixbuf = new_pixbuf $w, $h, 0; 343 $pixbuf = new_pixbuf $w, $h, 0;
339 $::board_img->copy_area (0, 0, $w, $h, $pixbuf, 0, 0); 344 $board_img->copy_area (0, 0, $w, $h, $pixbuf, 0, 0);
340 } else { 345 } else {
341 $pixbuf = scale_pixbuf $::board_img, $w, $h, $::config->{speed} ? 'nearest' : 'bilinear', 0; 346 $pixbuf = scale_pixbuf $board_img, $w, $h, 'bilinear', 0; # nearest for extra speed
342 } 347 }
343 348
344 my $linew = int ($w / 40 / $size); 349 my $linew = int ($w / 40 / $size);
345 350
346 # ornamental border... we have time to waste :/ 351 # ornamental border... we have time to waste :/
… …
360 my $hs = 1 | int $edge / 4; 365 my $hs = 1 | int $edge / 4;
361 $hs = 5 if $hs < 5; 366 $hs = 5 if $hs < 5;
362 $x = $kx[$x] - $hs / 2; $y = $ky[$y] - $hs / 2; 367 $x = $kx[$x] - $hs / 2; $y = $ky[$y] - $hs / 2;
363 368
364 # we use the shadow mask... not perfect, but I want to finish this 369 # we use the shadow mask... not perfect, but I want to finish this
365 $::shadow_img->composite ($pixbuf, 370 $shadow_img->composite ($pixbuf,
366 $x, $y, ($hs + 1) x2, $x, $y, 371 $x, $y, ($hs + 1) x2, $x, $y,
367 $hs / $::shadow_img->get_width, $hs / $::shadow_img->get_height, 372 $hs / $shadow_img->get_width, $hs / $shadow_img->get_height,
368 'bilinear', 255); 373 'bilinear', 255);
369 }; 374 };
370 375
371 if ($size > 6) { 376 if ($size > 6) {
372 my $h1 = $size < 10 ? 3 : 4; # corner / edge offset 377 my $h1 = $size < 10 ? 3 : 4; # corner / edge offset
… …
490 495
491 my @stack; 496 my @stack;
492 my $csize = ceil $size; 497 my $csize = ceil $size;
493 my $shadow = $size * SHADOW; 498 my $shadow = $size * SHADOW;
494 499
495 for my $stone ($mark & MARK_W ? @::white_img : @::black_img) { 500 for my $stone ($mark & MARK_W ? @white_img : @black_img) {
496 my $base = new_pixbuf +(ceil $size + $shadow) x2, 1, 0x00000000; 501 my $base = new_pixbuf +(ceil $size + $shadow) x2, 1, 0x00000000;
497 502
498 # zeroeth the shadow 503 # zeroeth the shadow
499 if (~$mark & MARK_GRAYED and $mark & (MARK_B | MARK_W)) { 504 if (~$mark & MARK_GRAYED and $mark & (MARK_B | MARK_W)) {
500 $::shadow_img->composite ( 505 $shadow_img->composite (
501 $base, $shadow, $shadow, $csize, $csize, $shadow, $shadow, 506 $base, $shadow, $shadow, $csize, $csize, $shadow, $shadow,
502 $size / $::shadow_img->get_width, $size / $::shadow_img->get_height, 507 $size / $shadow_img->get_width, $size / $shadow_img->get_height,
503 'bilinear', 128 508 'bilinear', 128
504 ); 509 );
505 } 510 }
506 511
507 for ([MARK_B, $mark & MARK_GRAYED ? 96 : 255, 1], 512 for ([MARK_B, $mark & MARK_GRAYED ? 96 : 255, 1],
… …
515 ); 520 );
516 } 521 }
517 } 522 }
518 523
519 # then the small stones (always using the first image) 524 # then the small stones (always using the first image)
520 for ([MARK_SMALL_B, $::black_img[0]], 525 for ([MARK_SMALL_B, $black_img[0]],
521 [MARK_SMALL_W, $::white_img[0]]) { 526 [MARK_SMALL_W, $white_img[0]]) {
522 my ($mask, $img) = @$_; 527 my ($mask, $img) = @$_;
523 if ($mark & $mask) { 528 if ($mark & $mask) {
524 $img->composite ( 529 $img->composite (
525 $base, (int $size / 4) x2, (ceil $size / 2 + 1) x2, ($size / 4) x2, 530 $base, (int $size / 4) x2, (ceil $size / 2 + 1) x2, ($size / 4) x2,
526 $size / $img->get_width / 2, $size / $img->get_height / 2, 531 $size / $img->get_width / 2, $size / $img->get_height / 2,
… …
530 } 535 }
531 536
532 # and lastly any markers 537 # and lastly any markers
533 my $dark_bg = ! ! ($mark & MARK_B); 538 my $dark_bg = ! ! ($mark & MARK_B);
534 539
535 for ([MARK_CIRCLE, $::circle_img[$dark_bg]], 540 for ([MARK_CIRCLE, $circle_img[$dark_bg]],
536 [MARK_TRIANGLE, $::triangle_img[$dark_bg]], 541 [MARK_TRIANGLE, $triangle_img[$dark_bg]],
537 [MARK_SQUARE, $::square_img[$dark_bg]], 542 [MARK_SQUARE, $square_img[$dark_bg]],
543 [MARK_CROSS, $cross_img[$dark_bg]],
538 [MARK_KO, $::square_img[$dark_bg]]) { 544 [MARK_KO, $square_img[$dark_bg]]) {
539 my ($mask, $img) = @$_; 545 my ($mask, $img) = @$_;
540 if ($mark & $mask) { 546 if ($mark & $mask) {
541 $img->composite ( 547 $img->composite (
542 $base, 0, 0, $size, $size, 0, 0, 548 $base, 0, 0, $size, $size, 0, 0,
543 $size / $img->get_width, $size / $img->get_height, 549 $size / $img->get_width, $size / $img->get_height,

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines