ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/bin/kgsueme
(Generate patch)

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.5 by pcg, Thu May 29 01:13:32 2003 UTC vs.
Revision 1.24 by pcg, Fri May 30 11:59:28 2003 UTC

1#!/opt/bin/perl 1#!/usr/bin/perl -I../lib/
2
3use PApp::Util qw(dumpval); # debug only
4 2
5use Gtk; 3use Gtk;
6use Gtk::Gdk; 4use Gtk::Gdk;
5use Gtk::Gdk::Pixbuf;
6#use Gtk::Gdk::ImlibImage;
7 7
8use KGS::Protocol; 8use KGS::Protocol;
9use KGS::Listener::Debug; 9use KGS::Listener::Debug;
10 10
11use Audio::Data;
12use Audio::Play;
13
11use IO::Socket::INET; 14use IO::Socket::INET;
12 15
13use Errno; 16use Errno;
14 17
15init Gtk; 18init Gtk;
16 19
17$HACK = 1; # do NEVER enable. ;) 20$HACK = 1; # do NEVER enable. ;)
18 21
19our $config; 22our $config;
23our $LIBDIR = ".";
24our $IMGDIR = "$LIBDIR/images";
25our $SNDDIR = "$LIBDIR/sounds";
26
27sub load_img {
28 new_from_file Gtk::Gdk::Pixbuf "$IMGDIR/$_[0]"
29# load_image Gtk::Gdk::ImlibImage "$IMGDIR/$_[0]"
30 or die "$IMGDIR/$_[0]: $!";
31}
32
33my @fontchars = ('A' .. 'Z', 0 .. 9);
34
35our @black_img = load_img "b-01.png";
36our @white_img = map +(load_img "w-0$_.png"), 1,2,3,4,5;
37our @triangle_img = map +(load_img "triangle-$_.png"), qw(b w);
38our @square_img = map +(load_img "square-$_.png"), qw(b w);
39our @circle_img = map +(load_img "circle-$_.png"), qw(b w);
40our $board_img = load_img "woodgrain-01.jpg";
41
42our @font = (
43 [map +(load_img "font/$_-black.png"), @fontchars],
44 [map +(load_img "font/$_-white.png"), @fontchars],
45 );
46our %fontmap;
47@fontmap{@fontchars} = (0..25 + 10);
48@fontmap{'a' .. 'z'} = (0..25);
49
50{
51 #my $audioserver = new Audio::Play(0);
52 my %sound;
53 $SIG{CHLD} = 'IGNORE';
54
55 for (qw(alarm warning move)) {
56 local $/;
57 open my $snd, "<", "$SNDDIR/$_"
58 or die "$SNDDIR: $!";
59 binmode $snd;
60
61 $sound{$_} = new Audio::Data;
62 $sound{$_}->Load($snd);
63 }
64
65 sub play_sound {
66 if (fork == 0) {
67 if (my $audioserver = new Audio::Play(1)) {
68 $audioserver->play ($sound{$_[0]});
69 }
70 Gtk->_exit(0);
71 }
72 }
73}
20 74
21{ 75{
22 use Storable (); 76 use Storable ();
23 use Scalar::Util (); 77 use Scalar::Util ();
24 78
… …
26 80
27 my $state = -r $staterc ? Storable::retrieve($staterc) : {}; 81 my $state = -r $staterc ? Storable::retrieve($staterc) : {};
28 my @widgets; 82 my @widgets;
29 83
30 $config = $state->{config} ||= {}; 84 $config = $state->{config} ||= {};
85
86 $config{speed} = 1;#d# optimize for speed or memory?
87 $config{conserve_memory} = 0;
31 88
32 # grr... more gtk+ brokenness 89 # grr... more gtk+ brokenness
33 my %get = ( 90 my %get = (
34 hpane_position => sub { ($_[0]->children)[0]->allocation->[2] }, 91 hpane_position => sub { ($_[0]->children)[0]->allocation->[2] },
35 vpane_position => sub { ($_[0]->children)[0]->allocation->[3] }, 92 vpane_position => sub { ($_[0]->children)[0]->allocation->[3] },
36 window_size => sub { [ @{$_[0]->allocation}[2,3] ] }, 93 window_size => sub { [ @{$_[0]->allocation}[2,3] ] },
37 #window_pos => sub { die PApp::Util::dumpval [ $_[0]->get_root_origin ] }, 94 #window_pos => sub { die KGS::Listener::Debug::dumpval [ $_[0]->get_root_origin ] },
38 clist_column_widths => sub { 95 clist_column_widths => sub {
39 $_[0]{column_widths}; 96 $_[0]{column_widths};
40 }, 97 },
41 ); 98 );
42 99
… …
71 128
72 sub save_state { 129 sub save_state {
73 for (@widgets) { 130 for (@widgets) {
74 if ($_->[0]) { 131 if ($_->[0]) {
75 my ($widget, $class, $instance, $attr) = @$_; 132 my ($widget, $class, $instance, $attr) = @$_;
133
134 $widget->realize;
135
76 while (my ($k, $v) = each %$attr) { 136 while (my ($k, $v) = each %$attr) {
77 my ($set, $get) = $k =~ /=/ ? split /=/, $k : ($k, $k); 137 my ($set, $get) = $k =~ /=/ ? split /=/, $k : ($k, $k);
78 $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get); 138 $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get);
79 139
80 $state->{$class}{"*"}{$get} = $v; 140 $state->{$class}{"*"}{$get} = $v;
… …
119 $main->{status}->pop($context_id{$type}) if $context_id{$type}; 179 $main->{status}->pop($context_id{$type}) if $context_id{$type};
120 $main->{status}->push($context_id{$type} ||= $main->{status}->get_context_id($type), $text) if $text; 180 $main->{status}->push($context_id{$type} ||= $main->{status}->get_context_id($type), $text) if $text;
121 } 181 }
122} 182}
123 183
184if (0) {
185 use KGS::Constants;
186
187 my $board = new game size => 5;
188 $board->{board} = new KGS::Game::Board;
189 $board->{board}{board}[0][0] = MARK_B;
190 $board->{board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
191 $board->{board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
192 $board->{window}->show_all;
193}
194
124main Gtk; 195main Gtk;
125 196
126############################################################################# 197#############################################################################
127 198
128package kgsueme; 199package kgsueme;
… …
142 $self->{roomlist} = new roomlist conn => $self->{conn}; 213 $self->{roomlist} = new roomlist conn => $self->{conn};
143 214
144 $self->{window} = new Gtk::Window 'toplevel'; 215 $self->{window} = new Gtk::Window 'toplevel';
145 $self->{window}->set_title('kgsueme'); 216 $self->{window}->set_title('kgsueme');
146 ::state $self->{window}, "main::window", undef, window_size => [400, 100]; 217 ::state $self->{window}, "main::window", undef, window_size => [400, 100];
147 $self->{window}->signal_connect(delete_event => sub { main_quit Gtk }); 218 $self->{window}->signal_connect(delete_event => sub { main_quit Gtk; 1 });
148 219
149 $self->{window}->add(my $vbox = new Gtk::VBox); 220 $self->{window}->add(my $vbox = new Gtk::VBox);
150 221
151 $vbox->pack_start(($buttonbox = new Gtk::HButtonBox), 0, 1, 0); 222 $vbox->pack_start(($buttonbox = new Gtk::HButtonBox), 0, 1, 0);
152 $buttonbox->set_spacing(0); 223 $buttonbox->set_spacing(0);
… …
218 289
219 ::status("login", "logged in as '$self->{conn}{name}' with status '$msg->{result}'"); 290 ::status("login", "logged in as '$self->{conn}{name}' with status '$msg->{result}'");
220 $::config->{login} = $self->{conn}{name}; 291 $::config->{login} = $self->{conn}{name};
221 292
222 if ($msg->{success}) { 293 if ($msg->{success}) {
223 warn "hiya\n";
224 for (keys %{$::config->{rooms}}) { 294 for (keys %{$::config->{rooms}}) {
225 warn "hiya $_\n";
226 $self->{roomlist}->join_room($_); 295 $self->{roomlist}->join_room($_);
227 } 296 }
228 } 297 }
229
230 warn PApp::Util::dumpval($::config);
231} 298}
232 299
233sub event_disconnect { } 300sub event_disconnect { }
234 301
235############################################################################# 302#############################################################################
… …
246 313
247 $self->{window} = new Gtk::Window 'toplevel'; 314 $self->{window} = new Gtk::Window 'toplevel';
248 $self->{window}->set_title('KGS Rooms'); 315 $self->{window}->set_title('KGS Rooms');
249 ::state $self->{window}, "roomlist::window", undef, window_size => [400, 200]; 316 ::state $self->{window}, "roomlist::window", undef, window_size => [400, 200];
250 317
251 $self->{window}->signal_connect(delete_event => sub { $self->{window}->hide }); 318 $self->{window}->signal_connect(delete_event => sub { $self->{window}->hide; 1 });
252 319
253 $self->{window}->add(my $vbox = new Gtk::VBox); 320 $self->{window}->add(my $vbox = new Gtk::VBox);
254 321
255 $vbox->pack_start((my $sw = new Gtk::ScrolledWindow), 1, 1, 0); 322 $vbox->pack_start((my $sw = new Gtk::ScrolledWindow), 1, 1, 0);
256 $sw->set_policy("automatic", "always"); 323 $sw->set_policy("automatic", "always");
… …
282 349
283 $self->msg(list_rooms => group => $_) for 0..5; # fetch all room names (should not!) 350 $self->msg(list_rooms => group => $_) for 0..5; # fetch all room names (should not!)
284 $self->{window}->show_all; 351 $self->{window}->show_all;
285} 352}
286 353
287sub event_update { 354sub event_update_rooms {
288 my ($self) = @_; 355 my ($self) = @_;
289 356
290 $self->{event_update} ||= Gtk->timeout_add(200, sub { 357 $self->{event_update} ||= Gtk->timeout_add(200, sub {
291 my $l = $self->{roomlist}; 358 my $l = $self->{roomlist};
292 359
… …
322 389
323 $self->{window} = new Gtk::Window 'toplevel'; 390 $self->{window} = new Gtk::Window 'toplevel';
324 $self->{window}->set_title("KGS Room $self->{name}"); 391 $self->{window}->set_title("KGS Room $self->{name}");
325 ::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400]; 392 ::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400];
326 393
327 $self->{window}->signal_connect(delete_event => sub { $self->part }); 394 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
328 395
329 $self->{window}->add(my $hpane = new Gtk::HPaned); 396 $self->{window}->add(my $hpane = new Gtk::HPaned);
330 ::state $hpane, "room::hpane", $self->{name}, hpane_position => 200; 397 ::state $hpane, "room::hpane", $self->{name}, hpane_position => 200;
331 398
332 $hpane->add(my $vpane = new Gtk::VPaned); 399 $hpane->add(my $vpane = new Gtk::VPaned);
… …
369 ::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30]; 436 ::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30];
370 437
371 $self; 438 $self;
372} 439}
373 440
374sub event_update { 441sub event_update_users {
375 my ($self) = @_; 442 my ($self) = @_;
376 443
377 $self->{event_update} ||= Gtk->timeout_add(200, sub { 444 $self->{event_update} ||= Gtk->timeout_add(200, sub {
378 my $l = $self->{userlist}; 445 my $l = $self->{userlist};
379 446
… …
430 my ($self) = @_; 497 my ($self) = @_;
431 $self->SUPER::part; 498 $self->SUPER::part;
432 499
433 delete $::config->{rooms}{$self->{channel}}; 500 delete $::config->{rooms}{$self->{channel}};
434 $self->{window}->hide_all; 501 $self->{window}->hide_all;
435 $self->event_update; 502 $self->event_update_users;
436 $self->event_update_games; 503 $self->event_update_games;
437} 504}
438 505
439sub event_join { 506sub event_join {
440 my ($self) = @_; 507 my ($self) = @_;
… …
444} 511}
445 512
446sub event_update_roominfo { 513sub event_update_roominfo {
447 my ($self) = @_; 514 my ($self) = @_;
448 515
449 $self->{text}->insert(undef, undef, undef, "$self->{owner}: $self->{description}\n\n"); 516 $self->{text}->insert(undef, undef, undef, "\n$self->{owner}: $self->{description}\n");
450} 517}
451 518
452sub inject_msg_room { 519sub inject_msg_room {
453 my ($self, $msg) = @_; 520 my ($self, $msg) = @_;
454 return unless $self->{channel} == $msg->{channel}; 521 return unless $self->{channel} == $msg->{channel};
455 522
456 $self->{text}->insert(undef, undef, undef, "$msg->{name}: $msg->{message}\n"); 523 $self->{text}->insert(undef, undef, undef, "\n$msg->{name}: $msg->{message}");
457} 524}
458 525
459############################################################################# 526#############################################################################
460 527
461package game; 528package game;
529
530use KGS::Constants;
531use KGS::Game::Board;
462 532
463use base KGS::Listener::Game; 533use base KGS::Listener::Game;
464use base KGS::Game; 534use base KGS::Game;
465 535
466sub new { 536sub new {
… …
468 $self = $self->SUPER::new(@_); 538 $self = $self->SUPER::new(@_);
469 539
470 $self->listen($self->{conn}); 540 $self->listen($self->{conn});
471 541
472 $self->{window} = new Gtk::Window 'toplevel'; 542 $self->{window} = new Gtk::Window 'toplevel';
473 $self->{window}->set_title("KGS Game ".$self->user0." ".$self->user1); 543 $self->{window}->set_title("KGS Game ".$self->user0." ".$self->user1) if $self->{channel};#d#
474 ::state $self->{window}, "game::window", undef, window_size => [600, 500]; 544 ::state $self->{window}, "game::window", undef, window_size => [600, 500];
475 545
476 $self->{window}->signal_connect(delete_event => sub { $self->part }); 546 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
477 547
478 $self->{window}->add(my $hpane = new Gtk::HPaned); 548 $self->{window}->add(my $hpane = new Gtk::HPaned);
479 ::state $hpane, "game::hpane", undef, hpane_position => 500; 549 ::state $hpane, "game::hpane", undef, hpane_position => 500;
480 550
481 $hpane->add(my $board = new Gtk::Table $self->{size}, $self->{size}, 1); 551 Gtk::Widget->push_visual (Gtk::Gdk::Rgb->get_visual);
552 Gtk::Widget->push_colormap (Gtk::Gdk::Rgb->get_cmap);
553 $hpane->pack1(($self->{canvas} = new Gtk::DrawingArea), 1, 1);
554 Gtk::Widget->pop_colormap;
555 Gtk::Widget->pop_visual;
482 556
483 for my $x (0 .. $self->{size} - 1) { 557 $self->{canvas}->signal_connect(configure_event => \&configure_event, $self);
484 for my $y (0 .. $self->{size} - 1) { 558 $self->{canvas}->signal_connect(expose_event => \&expose_event, $self);
485 my $cell = new Gtk::Label;
486 $board->attach_defaults($cell, $x, $x + 1, $y, $y + 1);
487 $self->{board}[$x][$y] = $cell;
488 }
489 }
490 559
491 $hpane->add(my $vpane = new Gtk::VPaned); 560 $hpane->pack2((my $vpane = new Gtk::VPaned), 0, 0);
492 ::state $vpane, "game", $self->{name}, vpane_position => 80; 561 ::state $vpane, "game", $self->{name}, vpane_position => 80;
493 562
494 $vpane->add(my $sw = new Gtk::ScrolledWindow); 563 $vpane->add(my $sw = new Gtk::ScrolledWindow);
495 $sw->set_policy("automatic", "always"); 564 $sw->set_policy("automatic", "always");
496 565
… …
513 }); 582 });
514 583
515 $self; 584 $self;
516} 585}
517 586
518sub event_update { 587sub event_update_users {
519 my ($self) = @_; 588 my ($self) = @_;
520 589
521 $self->{event_update} ||= Gtk->timeout_add(200, sub { 590 room::event_update_users $self;
522 my $l = $self->{userlist};
523
524 $l->freeze;
525 my $pos = $l->get_vadjustment->get_value;
526 $l->clear;
527
528 my $row = 0;
529 for (values %{$self->{users}}) {
530 $l->append($_->{name});
531 $l->set_row_data($row++, $_);
532 }
533 $l->sort;
534 $l->get_vadjustment->set_value($pos);
535 $l->thaw;
536
537 delete $self->{event_update};
538 0;
539 });
540} 591}
541 592
542sub join { 593sub join {
543 my ($self) = @_; 594 my ($self) = @_;
544 $self->SUPER::join; 595 $self->SUPER::join;
… …
548 599
549sub part { 600sub part {
550 my ($self) = @_; 601 my ($self) = @_;
551 $self->SUPER::part; 602 $self->SUPER::part;
552 603
553 $self->{window}->hide_all; 604 $self->{window}->hide;
554 $self->event_update;
555} 605}
556 606
557sub event_update_tree { 607sub configure_event {
558 my ($self) = @_; 608 my ($widget, $self, $event) = @_;
609 delete $self->{stack};
610 delete $self->{background};
611 $self->repaint_board;
612 1;
613}
559 614
560 for my $x (0 .. $self->{size} - 1) { 615sub INTERP_NEAREST (){ 1 }
561 for my $y (0 .. $self->{size} - 1) { 616sub INTERP_TILES (){ 1 }
562 $self->{board}[$x][$y]->set_text(""); 617sub INTERP_BILINEAR (){ 2 }
618sub INTERP_HYPER (){ 3 }
619
620sub new_pixbuf {
621 my ($w, $h, $alpha, $clear) = @_;
622
623 my $pixbuf = new Gtk::Gdk::Pixbuf 'rgb', $alpha, 8, $w, $h;
624
625 if ($clear) { # damn, need to clear it ourselves
626 my $row = "\x00\x00\x00\x00" x $w;
627 $pixbuf->put_pixels ($row, $_, 0) for 0 .. $h - 1;
628 }
629
630 $pixbuf;
631}
632
633sub scale_pixbuf {
634 my ($src, $w, $h, $mode) = @_;
635
636 my $dst = new_pixbuf $w, $h, 1;
637
638 $src->scale(
639 $dst, 0, 0, $w, $h, 0, 0,
640 $w / $src->get_width, $h / $src->get_height,
641 $mode,
642 );
643
644 $dst;
645}
646
647# create a stack of stones
648sub create_stack {
649 my ($self, $mark, $size, $rand) = @_;
650
651 my $shadow = $size * 0.06;
652
653 my $c = \$self->{stack}{$mark};
654 unless ($$c) {
655 for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) {
656 my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 1;
657
658 # zeroeth the shadow
659 if ($mark & (MARK_B | MARK_W)) {
660 $::black_img[0]->composite (
661 $base, $shadow, $shadow, $size, $size, $shadow-0.5, $shadow-0.5,
662 $size / $stone->get_width, $size / $stone->get_height,
663 $::config{speed} ? INTERP_NEAREST : INTERP_TILES, 128
664 );
563 } 665 }
564 }
565 666
566 for (0..$self->{node}) { 667 # first the big stones
567 while (my ($k, $v) = each %{$self->{tree}[$_]}) { 668 for ([MARK_B, 255],
568 if ($k eq "move7") { 669 [MARK_W, 255],
569 if ($v->[1] < 255) { 670 [MARK_GRAY_B, 128],
570 $self->{board}[$v->[1]][$v->[2]]->set_text(("X", "O", "-")[$v->[0]]); 671 [MARK_GRAY_W, 128]) {
672 my ($mask, $alpha) = @$_;
673 if ($mark & $mask) {
674 $stone->composite (
675 $base, 0, 0, $size, $size, -0.5, -0.5,
676 $size / $stone->get_width, $size / $stone->get_height,
677 $::config{speed} ? INTERP_NEAREST : INTERP_HYPER, $alpha
678 );
571 } 679 }
572 } 680 }
681
682 # then the samll stones
683 for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]],
684 [MARK_SMALL_W, $::white_img[$rand % @::white_img]]) {
685 my ($mask, $img) = @$_;
686 if ($mark & $mask) {
687 $img->composite (
688 $base, ($size / 4) x2, (int ($size / 2 + 0.5)) x2, ($size / 4 - 0.5) x 2,
689 $size / $img->get_width / 2, $size / $img->get_height / 2,
690 $::config{speed} ? INTERP_NEAREST : INTERP_HYPER, 192
691 );
692 }
693 }
694
695 # and lastly any markers (labels NYI)
696 my $dark_bg = ! ! ($mark & (MARK_B | MARK_GRAY_B));
697
698 for ([MARK_CIRCLE, $::circle_img[$dark_bg]],
699 [MARK_TRIANGLE, $::triangle_img[$dark_bg]],
700 [MARK_SQUARE, $::square_img[$dark_bg]]) {
701 my ($mask, $img) = @$_;
702 if ($mark & $mask) {
703 $img->composite (
704 $base, 0, 0, $size, $size, -0.5, -0.5,
705 $size / $img->get_width, $size / $img->get_height,
706 $::config{speed} ? INTERP_NEAREST : INTERP_HYPER, 255
707 );
708 }
709 }
710
711 push @$$c, $base;
712 }
713 }
714
715 $$c->[$rand % @$$c];
716}
717
718sub pixbuf_text {
719 my ($pixbuf, $colour, $x, $y, $height, $text) = @_;
720
721 my $c = $::font[$colour][$::fontmap{substr $text, 0, 1}];
722
723 if ($c) {
724 my ($w, $h) = ($c->get_width, $c->get_height);
725 my $s = ($height-1) / ($h-1);
726
727 $x -= $w * $s * 0.5;
728 $y -= $height * 0.5;
729
730 $c->composite ($pixbuf,
731 $x, $y, $w*$s+0.5, $height+0.5, $x-0.5, $y-0.5, $s, $s,
732 $::config{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192);
733
734 } else {
735 warn "unable to render character '$text'";
736 }
737}
738
739my $black_pb;
740
741sub pixbuf_rect {
742 my ($pb, $x1, $y1, $x2, $y2) = @_;
743 # we fake lines by... an unspeakable method :/
744 unless ($black_pb) {
745 $black_pb = new_pixbuf 1, 1, 0, 0;
746 $black_pb->put_pixels ("\x44\x11\x11", 0, 0);
747 }
748
749 $black_pb->composite ($pb, $x1, $y1, $x2 - $x1 + 1, $y2 - $y1 + 1, $x1, $y1, 1, 1, INTERP_NEAREST, 192);
750}
751
752sub repaint_board {
753 my ($self) = @_;
754 my $canvas = $self->{canvas};
755
756 return unless $self->{board};
757
758 my ($w, $h) = @{$canvas->allocation}[2,3];
759
760 my $s = $w > $h ? $h : $w;
761
762 $self->{offsets} = [int (($w - $s) / 2), int (($h - $s) / 2), $s];
763
764 my $size = $self->{size};
765
766 my $border = int ($s / $size);
767 my $s2 = $s - $border * 2;
768 my $edge = int ($s2 / $size * 0.97);
769 my $ofs = int ($edge / 2);
770
771 my @k = map int ($s2 * $_ / $size - $ofs + $border + 0.5), 0 .. $size;
772
773 my $pixbuf;
774
775 if ($self->{background}) {
776 $pixbuf = $self->{background}->copy;
777 } else {
778 my ($bw, $bh) = ($::board_img->get_width, $::board_img->get_height);
779
780 if ($s < $bw && $s < $bh) {
781 $pixbuf = new_pixbuf $s, $s, $::config{conserve_memory} ? 0 : 1, 0;
782 $::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0);
783 } else {
784 $pixbuf = scale_pixbuf $::board_img, $s, $s, $::config{speed} ? INTERP_NEAREST : INTERP_TILES;
785 }
786
787 my $linew = int ($s / 500);
788
789 my $a = "A";
790 for my $i (1 .. $size) {
791 pixbuf_rect $pixbuf, $k[$i] - $linew, $k[1] - $linew, $k[$i] + $linew, $k[$size] + $linew;
792 pixbuf_rect $pixbuf, $k[1] - $linew, $k[$i] - $linew, $k[$size] + $linew, $k[$i] + $linew;
793
794 pixbuf_text $pixbuf, 0, $k[$i], ($ofs +$border) / 2, $ofs, $a;
795 pixbuf_text $pixbuf, 0, $k[$i], $s2 + $border + $ofs / 2, $ofs, $a;
796 pixbuf_text $pixbuf, 0, ($ofs + $border) / 2, $k[$i], $ofs, $size - $i + 1;
797 pixbuf_text $pixbuf, 0, $s2 + $border + $ofs / 2, $k[$i], $ofs, $size - $i + 1;
798
799 $a++;
800 $a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK...
801 }
802
803 unless ($::config->{conserve_memory}) {
804 $self->{background} = $pixbuf;
805 $pixbuf = $pixbuf->copy;
806 }
807 }
808
809 $self->{pixbuf} = $pixbuf;
810
811 # hoshi-points(!)#d#
812 # caching of empty board gfx(!)#d#
813
814 for my $x (1 .. $size) {
815 for my $y (1 .. $size) {
816 my $mark = $self->{board}{board}[$x-1][$y-1];
817
818 if ($mark) {
819 my ($dx, $dy) = ($k[$x] - $ofs, $k[$y] - $ofs);
820 my $pb = $self->create_stack($mark, $edge, $x * 17 + $y * 11 );
821
822 $pb->composite ($pixbuf, $dx, $dy, $pb->get_width, $pb->get_height,
823 $dx, $dy, 1, 1, $::config{speed} ? INTERP_NEAREST : INTERP_NEAREST, 255);
824
825 #my ($pm, $bm) = $self->create_stack($gc, $mark, $edge, $x * 17 + $y * 11 );
826
827 #$gc->set_clip_mask ($bm);
828 #$gc->set_clip_origin ($dx, $dy);
829 #$pixmap->draw_pixmap ($gc, $pm, 0, 0, $dx, $dy, $edge, $edge);
830 }
831 }
832 }
833}
834
835sub expose_event {
836 my ($widget, $self, $event) = @_;
837
838 $self->{pixbuf} or return;
839
840 my ($ox, $oy, $s) = @{$self->{offsets}};
841
842 my ($x, $y, $w, $h) =
843 @{Gtk::Gdk::Rectangle->intersect(
844 $event->{area},
845 [$ox, $oy, $s, $s]
573 } 846 )};
574 }
575}
576 847
577package KGS::Game::Board; 848 if (defined $x) {
578package KGS::Game::Node; 849 $self->{pixbuf}->render_to_drawable ($self->{canvas}->window, $self->{canvas}->style->white_gc,
579package KGS::Game::Tree; 850 $x - $ox, $y - $oy, $x, $y, $w, $h);
851 #$self->{canvas}->window->draw_pixmap (
852 # $self->{canvas}->style->white_gc,
853 # $self->{pixmap},
854 # $x - $ox, $y - $oy, $x, $y, $w, $h,
855 #);
856 }
857 1;
858}
859
860sub event_update_tree {
861 my ($self) = @_;
862
863 $self->{board} = new KGS::Game::Board $self->{size};
864 $self->{board}->interpret_path ($self->get_path);
865
866 $self->repaint_board;
867
868 # force a redraw (not perfect(?))
869 expose_event $self->{canvas}, $self, { area => $self->{canvas}->allocation };
870
871 $self->{text}->backward_delete($self->{text}->get_length);
872 $self->{text}->insert(undef, undef, undef, KGS::Listener::Debug::dumpval([$self->{board}{time},$self->{board}{captures}]). $self->{board}{comment});
873}
874
875sub event_move {
876 ::play_sound "move";
877}
580 878
5811; 8791;
582 880
583 881
584 882

Diff Legend

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