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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.3 by pcg, Wed May 28 22:26:25 2003 UTC vs.
Revision 1.21 by pcg, Fri May 30 11:26:55 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
… …
32 # grr... more gtk+ brokenness 86 # grr... more gtk+ brokenness
33 my %get = ( 87 my %get = (
34 hpane_position => sub { ($_[0]->children)[0]->allocation->[2] }, 88 hpane_position => sub { ($_[0]->children)[0]->allocation->[2] },
35 vpane_position => sub { ($_[0]->children)[0]->allocation->[3] }, 89 vpane_position => sub { ($_[0]->children)[0]->allocation->[3] },
36 window_size => sub { [ @{$_[0]->allocation}[2,3] ] }, 90 window_size => sub { [ @{$_[0]->allocation}[2,3] ] },
37 #window_pos => sub { die PApp::Util::dumpval [ $_[0]->get_root_origin ] }, 91 #window_pos => sub { die KGS::Listener::Debug::dumpval [ $_[0]->get_root_origin ] },
38 clist_column_widths => sub { 92 clist_column_widths => sub {
39 $_[0]{column_widths}; 93 $_[0]{column_widths};
40 }, 94 },
41 ); 95 );
42 96
… …
71 125
72 sub save_state { 126 sub save_state {
73 for (@widgets) { 127 for (@widgets) {
74 if ($_->[0]) { 128 if ($_->[0]) {
75 my ($widget, $class, $instance, $attr) = @$_; 129 my ($widget, $class, $instance, $attr) = @$_;
130
131 $widget->realize;
132
76 while (my ($k, $v) = each %$attr) { 133 while (my ($k, $v) = each %$attr) {
77 my ($set, $get) = $k =~ /=/ ? split /=/, $k : ($k, $k); 134 my ($set, $get) = $k =~ /=/ ? split /=/, $k : ($k, $k);
78 $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get); 135 $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get);
79 136
80 $state->{$class}{"*"}{$get} = $v; 137 $state->{$class}{"*"}{$get} = $v;
… …
119 $main->{status}->pop($context_id{$type}) if $context_id{$type}; 176 $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; 177 $main->{status}->push($context_id{$type} ||= $main->{status}->get_context_id($type), $text) if $text;
121 } 178 }
122} 179}
123 180
181if (0) {
182 use KGS::Constants;
183
184 my $board = new game size => 5;
185 $board->{board} = new KGS::Game::Board;
186 $board->{board}{board}[0][0] = MARK_B;
187 $board->{board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
188 $board->{board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
189 $board->{window}->show_all;
190}
191
124main Gtk; 192main Gtk;
125 193
126############################################################################# 194#############################################################################
127 195
128package kgsueme; 196package kgsueme;
… …
137 205
138 KGS::Listener::Debug->new->listen($self->{conn}); #d# debug only :) 206 KGS::Listener::Debug->new->listen($self->{conn}); #d# debug only :)
139 207
140 $self->listen($self->{conn}); 208 $self->listen($self->{conn});
141 209
210 $self->{roomlist} = new roomlist conn => $self->{conn};
211
142 $self->{window} = new Gtk::Window 'toplevel'; 212 $self->{window} = new Gtk::Window 'toplevel';
143 $self->{window}->set_title('kgsueme'); 213 $self->{window}->set_title('kgsueme');
144 ::state $self->{window}, "main::window", undef, window_size => [400, 100]; 214 ::state $self->{window}, "main::window", undef, window_size => [400, 100];
145 $self->{window}->signal_connect(delete_event => sub { main_quit Gtk }); 215 $self->{window}->signal_connect(delete_event => sub { main_quit Gtk; 1 });
146 216
147 $self->{window}->add(my $vbox = new Gtk::VBox); 217 $self->{window}->add(my $vbox = new Gtk::VBox);
148 218
149 $vbox->pack_start(($self->{buttonbox} = new Gtk::HButtonBox), 0, 1, 0); 219 $vbox->pack_start(($buttonbox = new Gtk::HButtonBox), 0, 1, 0);
220 $buttonbox->set_spacing(0);
150 221
151 my $button = sub { 222 my $button = sub {
152 $self->{buttonbox}->add(my $button = new Gtk::Button $_[0]); 223 $buttonbox->add(my $button = new Gtk::Button $_[0]);
153 signal_connect $button clicked => $_[1]; 224 signal_connect $button clicked => $_[1];
154 }; 225 };
155 226
156 $button->("Login", sub { 227 $button->("Login", sub { $self->login; });
157 $self->login; 228 $button->("Roomlist", sub { $self->{roomlist}->show; });
158 });
159 $button->("Roomlist", sub {
160 $self->{roomlist} ||= new roomlist conn => $self->{conn};
161 $self->{roomlist}->show;
162 });
163 $button->("Save Config & Layout", sub { ::save_state }); 229 $button->("Save Config & Layout", sub { ::save_state });
230 $button->("Quit", sub { main_quit Gtk });
164 231
165 $vbox->pack_start((my $hbox = new Gtk::HBox), 0, 1, 0); 232 $vbox->pack_start((my $hbox = new Gtk::HBox), 0, 1, 0);
166 233
167 $hbox->add(new Gtk::Label "Login"); 234 $hbox->add(new Gtk::Label "Login");
168 235
… …
218 my ($self, $msg) = @_; 285 my ($self, $msg) = @_;
219 286
220 ::status("login", "logged in as '$self->{conn}{name}' with status '$msg->{result}'"); 287 ::status("login", "logged in as '$self->{conn}{name}' with status '$msg->{result}'");
221 $::config->{login} = $self->{conn}{name}; 288 $::config->{login} = $self->{conn}{name};
222 289
223 $self->{window}->show_all; 290 if ($msg->{success}) {
291 for (keys %{$::config->{rooms}}) {
292 $self->{roomlist}->join_room($_);
293 }
294 }
224} 295}
225 296
226sub event_disconnect { } 297sub event_disconnect { }
227 298
228############################################################################# 299#############################################################################
… …
239 310
240 $self->{window} = new Gtk::Window 'toplevel'; 311 $self->{window} = new Gtk::Window 'toplevel';
241 $self->{window}->set_title('KGS Rooms'); 312 $self->{window}->set_title('KGS Rooms');
242 ::state $self->{window}, "roomlist::window", undef, window_size => [400, 200]; 313 ::state $self->{window}, "roomlist::window", undef, window_size => [400, 200];
243 314
244 $self->{window}->signal_connect(delete_event => sub { hide $self->{window} }); 315 $self->{window}->signal_connect(delete_event => sub { $self->{window}->hide; 1 });
245 316
246 $self->{window}->add(my $vbox = new Gtk::VBox); 317 $self->{window}->add(my $vbox = new Gtk::VBox);
247 318
248 $vbox->pack_start((my $sw = new Gtk::ScrolledWindow), 1, 1, 0); 319 $vbox->pack_start((my $sw = new Gtk::ScrolledWindow), 1, 1, 0);
249 $sw->set_policy("automatic", "always"); 320 $sw->set_policy("automatic", "always");
… …
254 ::state $self->{roomlist}, "roomlist::roomlist", undef, clist_column_widths => [20, 200]; 325 ::state $self->{roomlist}, "roomlist::roomlist", undef, clist_column_widths => [20, 200];
255 326
256 $self->{roomlist}->signal_connect(select_row => sub { 327 $self->{roomlist}->signal_connect(select_row => sub {
257 my $room = $self->{roomlist}->get_row_data($_[1]) 328 my $room = $self->{roomlist}->get_row_data($_[1])
258 or return; 329 or return;
259 $self->{room}{$room->{channel}} ||= new room %$room, conn => $self->{conn}, users => {};
260 $self->{room}{$room->{channel}}->join;
261 $self->{roomlist}->unselect_all; 330 $self->{roomlist}->unselect_all;
331 $self->join_room($room->{channel});
262 }); 332 });
263 333
264 $self; 334 $self;
335}
336
337sub join_room {
338 my ($self, $channel) = @_;
339
340 $self->{room}{$channel} ||= room->new(channel => $channel, conn => $self->{conn}, users => {});
341 $self->{room}{$channel}->join;
265} 342}
266 343
267sub show { 344sub show {
268 my ($self, $msg) = @_; 345 my ($self, $msg) = @_;
269 346
270 $self->msg(list_rooms => group => $_) for 0..5; # fetch all room names (should not!) 347 $self->msg(list_rooms => group => $_) for 0..5; # fetch all room names (should not!)
271 $self->{window}->show_all; 348 $self->{window}->show_all;
272} 349}
273 350
274sub event_update { 351sub event_update_rooms {
275 my ($self) = @_; 352 my ($self) = @_;
276 353
277 $self->{event_update} ||= Gtk->timeout_add(200, sub { 354 $self->{event_update} ||= Gtk->timeout_add(200, sub {
278 my $l = $self->{roomlist}; 355 my $l = $self->{roomlist};
279 356
… …
309 386
310 $self->{window} = new Gtk::Window 'toplevel'; 387 $self->{window} = new Gtk::Window 'toplevel';
311 $self->{window}->set_title("KGS Room $self->{name}"); 388 $self->{window}->set_title("KGS Room $self->{name}");
312 ::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400]; 389 ::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400];
313 390
314 $self->{window}->signal_connect(delete_event => sub { $self->part }); 391 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
315 392
316 $self->{window}->add(my $hpane = new Gtk::HPaned); 393 $self->{window}->add(my $hpane = new Gtk::HPaned);
317 ::state $hpane, "room::hpane", $self->{name}, hpane_position => 200; 394 ::state $hpane, "room::hpane", $self->{name}, hpane_position => 200;
318 395
319 $hpane->add(my $vpane = new Gtk::VPaned); 396 $hpane->add(my $vpane = new Gtk::VPaned);
… …
356 ::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30]; 433 ::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30];
357 434
358 $self; 435 $self;
359} 436}
360 437
361sub event_update { 438sub event_update_users {
362 my ($self) = @_; 439 my ($self) = @_;
363 440
364 $self->{event_update} ||= Gtk->timeout_add(200, sub { 441 $self->{event_update} ||= Gtk->timeout_add(200, sub {
365 my $l = $self->{userlist}; 442 my $l = $self->{userlist};
366 443
… …
415 492
416sub part { 493sub part {
417 my ($self) = @_; 494 my ($self) = @_;
418 $self->SUPER::part; 495 $self->SUPER::part;
419 496
497 delete $::config->{rooms}{$self->{channel}};
420 $self->{window}->hide_all; 498 $self->{window}->hide_all;
421 $self->event_update; 499 $self->event_update_users;
422 $self->event_update_games; 500 $self->event_update_games;
423} 501}
424 502
503sub event_join {
504 my ($self) = @_;
505 $self->SUPER::event_join;
506
507 $::config->{rooms}{$self->{channel}} = 1;
508}
509
425sub event_update_roominfo { 510sub event_update_roominfo {
426 my ($self) = @_; 511 my ($self) = @_;
427 512
428 $self->{text}->insert(undef, undef, undef, "$self->{owner}: $self->{description}\n\n"); 513 $self->{text}->insert(undef, undef, undef, "\n$self->{owner}: $self->{description}\n");
429} 514}
430 515
431sub inject_msg_room { 516sub inject_msg_room {
432 my ($self, $msg) = @_; 517 my ($self, $msg) = @_;
433 return unless $self->{channel} == $msg->{channel}; 518 return unless $self->{channel} == $msg->{channel};
434 519
435 $self->{text}->insert(undef, undef, undef, "$msg->{name}: $msg->{message}\n"); 520 $self->{text}->insert(undef, undef, undef, "\n$msg->{name}: $msg->{message}");
436} 521}
437 522
438############################################################################# 523#############################################################################
439 524
440package game; 525package game;
526
527use KGS::Constants;
528use KGS::Game::Board;
441 529
442use base KGS::Listener::Game; 530use base KGS::Listener::Game;
443use base KGS::Game; 531use base KGS::Game;
444 532
445sub new { 533sub new {
… …
447 $self = $self->SUPER::new(@_); 535 $self = $self->SUPER::new(@_);
448 536
449 $self->listen($self->{conn}); 537 $self->listen($self->{conn});
450 538
451 $self->{window} = new Gtk::Window 'toplevel'; 539 $self->{window} = new Gtk::Window 'toplevel';
452 $self->{window}->set_title("KGS Game ".$self->user0." ".$self->user1); 540 $self->{window}->set_title("KGS Game ".$self->user0." ".$self->user1) if $self->{channel};#d#
453 ::state $self->{window}, "game::window", undef, window_size => [600, 500]; 541 ::state $self->{window}, "game::window", undef, window_size => [600, 500];
454 542
455 $self->{window}->signal_connect(delete_event => sub { $self->part }); 543 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
456 544
457 $self->{window}->add(my $hpane = new Gtk::HPaned); 545 $self->{window}->add(my $hpane = new Gtk::HPaned);
458 ::state $hpane, "game::hpane", undef, hpane_position => 500; 546 ::state $hpane, "game::hpane", undef, hpane_position => 500;
459 547
460 $hpane->add(my $board = new Gtk::Table $self->{size}, $self->{size}, 1); 548 Gtk::Widget->push_visual (Gtk::Gdk::Rgb->get_visual);
549 Gtk::Widget->push_colormap (Gtk::Gdk::Rgb->get_cmap);
550 $hpane->pack1(($self->{canvas} = new Gtk::DrawingArea), 1, 1);
551 Gtk::Widget->pop_colormap;
552 Gtk::Widget->pop_visual;
461 553
462 for my $x (0 .. $self->{size} - 1) { 554 $self->{canvas}->signal_connect(configure_event => \&configure_event, $self);
463 for my $y (0 .. $self->{size} - 1) { 555 $self->{canvas}->signal_connect(expose_event => \&expose_event, $self);
464 my $cell = new Gtk::Label;
465 $board->attach_defaults($cell, $x, $x + 1, $y, $y + 1);
466 $self->{board}[$x][$y] = $cell;
467 }
468 }
469 556
470 $hpane->add(my $vpane = new Gtk::VPaned); 557 $hpane->pack2((my $vpane = new Gtk::VPaned), 0, 0);
471 ::state $vpane, "game", $self->{name}, vpane_position => 80; 558 ::state $vpane, "game", $self->{name}, vpane_position => 80;
472 559
473 $vpane->add(my $sw = new Gtk::ScrolledWindow); 560 $vpane->add(my $sw = new Gtk::ScrolledWindow);
474 $sw->set_policy("automatic", "always"); 561 $sw->set_policy("automatic", "always");
475 562
… …
492 }); 579 });
493 580
494 $self; 581 $self;
495} 582}
496 583
497sub event_update { 584sub event_update_users {
498 my ($self) = @_; 585 my ($self) = @_;
499 586
500 $self->{event_update} ||= Gtk->timeout_add(200, sub { 587 room::event_update_users $self;
501 my $l = $self->{userlist};
502
503 $l->freeze;
504 my $pos = $l->get_vadjustment->get_value;
505 $l->clear;
506
507 my $row = 0;
508 for (values %{$self->{users}}) {
509 $l->append($_->{name});
510 $l->set_row_data($row++, $_);
511 }
512 $l->sort;
513 $l->get_vadjustment->set_value($pos);
514 $l->thaw;
515
516 delete $self->{event_update};
517 0;
518 });
519} 588}
520 589
521sub join { 590sub join {
522 my ($self) = @_; 591 my ($self) = @_;
523 $self->SUPER::join; 592 $self->SUPER::join;
… …
527 596
528sub part { 597sub part {
529 my ($self) = @_; 598 my ($self) = @_;
530 $self->SUPER::part; 599 $self->SUPER::part;
531 600
532 $self->{window}->hide_all; 601 $self->{window}->hide;
533 $self->event_update;
534} 602}
535 603
536sub event_update_tree { 604sub configure_event {
537 my ($self) = @_; 605 my ($widget, $self, $event) = @_;
606 delete $self->{stack};
607 delete $self->{background};
608 $self->repaint_board;
609 1;
610}
538 611
539 for my $x (0 .. $self->{size} - 1) { 612sub INTERP_NEAREST (){ 1 }
540 for my $y (0 .. $self->{size} - 1) { 613sub INTERP_TILES (){ 1 }
541 $self->{board}[$x][$y]->set_text(""); 614sub INTERP_BILINEAR (){ 2 }
542 } 615sub INTERP_HYPER (){ 3 }
543 }
544 616
545 for (0..$self->{node}) { 617sub new_pixbuf {
546 while (my ($k, $v) = each %{$self->{tree}[$_]}) { 618 my ($w, $h, $alpha, $clear) = @_;
547 if ($k eq "move7") { 619
548 if ($v->[1] < 255) { 620 my $pixbuf = new Gtk::Gdk::Pixbuf 'rgb', $alpha, 8, $w, $h;
549 $self->{board}[$v->[1]][$v->[2]]->set_text(("X", "O", "-")[$v->[0]]); 621
622 if ($clear) { # damn, need to clear it ourselves
623 my $row = "\x00\x00\x00\x00" x $w;
624 $pixbuf->put_pixels ($row, $_, 0) for 0 .. $h - 1;
625 }
626
627 $pixbuf;
628}
629
630sub scale_pixbuf {
631 my ($src, $w, $h, $mode) = @_;
632
633 my $dst = new_pixbuf $w, $h, 1;
634
635 $src->scale(
636 $dst, 0, 0, $w, $h, 0, 0,
637 $w / $src->get_width, $h / $src->get_height,
638 $mode,
639 );
640
641 $dst;
642}
643
644# create a stack of stones
645sub create_stack {
646 my ($self, $mark, $size, $rand) = @_;
647
648 my $shadow = $size * 0.06;
649
650 my $c = \$self->{stack}{$mark};
651 unless ($$c) {
652 for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) {
653 my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 1;
654
655 # zeroeth the shadow
656 $::black_img[0]->composite (
657 $base, $shadow, $shadow, $size, $size, $shadow-0.5, $shadow-0.5,
658 $size / $stone->get_width, $size / $stone->get_height,
659 INTERP_TILES, 128
660 );
661
662 # first the big stones
663 for ([MARK_B, 255],
664 [MARK_W, 255],
665 [MARK_GRAY_B, 128],
666 [MARK_GRAY_W, 128]) {
667 my ($mask, $alpha) = @$_;
668 if ($mark & $mask) {
669 $stone->composite (
670 $base, 0, 0, $size, $size, -0.5, -0.5,
671 $size / $stone->get_width, $size / $stone->get_height,
672 INTERP_HYPER, $alpha
673 );
550 } 674 }
551 } 675 }
676
677 # then the samll stones
678 for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]],
679 [MARK_SMALL_W, $::white_img[$rand % @::white_img]]) {
680 my ($mask, $img) = @$_;
681 if ($mark & $mask) {
682 $img->composite (
683 $base, ($size / 4) x2, (int ($size / 2 + 0.5)) x2, ($size / 4 - 0.5) x 2,
684 $size / $img->get_width / 2, $size / $img->get_height / 2,
685 INTERP_HYPER, 192
686 );
687 }
688 }
689
690 # and lastly any markers (labels NYI)
691 my $dark_bg = ! ! ($mark & (MARK_B | MARK_GRAY_B));
692
693 for ([MARK_CIRCLE, $::circle_img[$dark_bg]],
694 [MARK_TRIANGLE, $::triangle_img[$dark_bg]],
695 [MARK_SQUARE, $::square_img[$dark_bg]]) {
696 my ($mask, $img) = @$_;
697 if ($mark & $mask) {
698 $img->composite (
699 $base, 0, 0, $size, $size, -0.5, -0.5,
700 $size / $img->get_width, $size / $img->get_height,
701 INTERP_HYPER, 255
702 );
703 }
704 }
705
706 push @$$c, $base;
707 }
708 }
709
710 $$c->[$rand % @$$c];
711}
712
713sub pixbuf_text {
714 my ($pixbuf, $colour, $x, $y, $height, $text) = @_;
715
716 my $c = $::font[$colour][$::fontmap{substr $text, 0, 1}];
717
718 if ($c) {
719 my ($w, $h) = ($c->get_width, $c->get_height);
720 my $s = ($height-1) / ($h-1);
721
722 $x -= $w * $s * 0.5;
723 $y -= $height * 0.5;
724
725 $c->composite ($pixbuf,
726 $x, $y, $w*$s+0.5, $height+0.5, $x-0.5, $y-0.5, $s, $s,
727 INTERP_BILINEAR, 192);
728
729 } else {
730 warn "unable to render character '$text'";
731 }
732}
733
734my $black_pb;
735
736sub pixbuf_rect {
737 my ($pb, $x1, $y1, $x2, $y2) = @_;
738 # we fake lines by... an unspeakable method :/
739 unless ($black_pb) {
740 $black_pb = new_pixbuf 1, 1, 0, 0;
741 $black_pb->put_pixels ("\x44\x11\x11", 0, 0);
742 }
743
744 $black_pb->composite ($pb, $x1, $y1, $x2 - $x1 + 1, $y2 - $y1 + 1, $x1, $y1, 1, 1, INTERP_NEAREST, 192);
745}
746
747sub repaint_board {
748 my ($self) = @_;
749 my $canvas = $self->{canvas};
750
751 return unless $self->{board};
752
753 my ($w, $h) = @{$canvas->allocation}[2,3];
754
755 my $s = $w > $h ? $h : $w;
756
757 $self->{offsets} = [int (($w - $s) / 2), int (($h - $s) / 2), $s];
758
759 my $size = $self->{size};
760
761 my $border = int ($s / $size);
762 my $s2 = $s - $border * 2;
763 my $edge = int ($s2 / $size * 0.97);
764 my $ofs = int ($edge / 2);
765
766 my @k = map int ($s2 * $_ / $size - $ofs + $border + 0.5), 0 .. $size;
767
768 unless ($self->{background}) {
769 my $pixbuf;
770
771 my ($bw, $bh) = ($::board_img->get_width, $::board_img->get_height);
772
773 if ($s < $bw && $s < $bh) {
774 $pixbuf = new_pixbuf $s, $s, 1, 0;
775 $::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0);
776 } else {
777 $pixbuf = scale_pixbuf $::board_img, $s, $s, INTERP_TILES;
778 }
779
780 my $linew = int ($s / 300);
781
782 my $a = "A";
783 for my $i (1 .. $size) {
784 pixbuf_rect $pixbuf, $k[$i] - $linew, $k[1] - $linew, $k[$i] + $linew, $k[$size] + $linew;
785 pixbuf_rect $pixbuf, $k[1] - $linew, $k[$i] - $linew, $k[$size] + $linew, $k[$i] + $linew;
786
787 pixbuf_text $pixbuf, 0, $k[$i], ($ofs +$border) / 2, $ofs, $a;
788 pixbuf_text $pixbuf, 0, $k[$i], $s2 + $border + $ofs / 2, $ofs, $a;
789 pixbuf_text $pixbuf, 0, ($ofs + $border) / 2, $k[$i], $ofs, $size - $i + 1;
790 pixbuf_text $pixbuf, 0, $s2 + $border + $ofs / 2, $k[$i], $ofs, $size - $i + 1;
791
792 $a++;
793 $a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK...
794 }
795
796 $self->{background} = $pixbuf;
797 }
798
799 my $pixbuf = $self->{pixbuf} = $self->{background}->copy;
800
801 # hoshi-points(!)#d#
802 # caching of empty board gfx(!)#d#
803
804 for my $x (1 .. $size) {
805 for my $y (1 .. $size) {
806 my $mark = $self->{board}{board}[$x-1][$y-1];
807
808 if ($mark) {
809 my ($dx, $dy) = ($k[$x] - $ofs, $k[$y] - $ofs);
810 my $pb = $self->create_stack($mark, $edge, $x * 17 + $y * 11 );
811
812 $pb->composite ($pixbuf, $dx, $dy, $pb->get_width, $pb->get_height,
813 $dx, $dy, 1, 1, INTERP_NEAREST, 255);
814
815 #my ($pm, $bm) = $self->create_stack($gc, $mark, $edge, $x * 17 + $y * 11 );
816
817 #$gc->set_clip_mask ($bm);
818 #$gc->set_clip_origin ($dx, $dy);
819 #$pixmap->draw_pixmap ($gc, $pm, 0, 0, $dx, $dy, $edge, $edge);
820 }
821 }
822 }
823}
824
825sub expose_event {
826 my ($widget, $self, $event) = @_;
827
828 $self->{pixbuf} or return;
829
830 my ($ox, $oy, $s) = @{$self->{offsets}};
831
832 my ($x, $y, $w, $h) =
833 @{Gtk::Gdk::Rectangle->intersect(
834 $event->{area},
835 [$ox, $oy, $s, $s]
552 } 836 )};
837
838 if (defined $x) {
839 $self->{pixbuf}->render_to_drawable ($self->{canvas}->window, $self->{canvas}->style->white_gc,
840 $x - $ox, $y - $oy, $x, $y, $w, $h);
841 #$self->{canvas}->window->draw_pixmap (
842 # $self->{canvas}->style->white_gc,
843 # $self->{pixmap},
844 # $x - $ox, $y - $oy, $x, $y, $w, $h,
845 #);
553 } 846 }
847 1;
848}
849
850sub event_update_tree {
851 my ($self) = @_;
852
853 $self->{board} = new KGS::Game::Board $self->{size};
854 $self->{board}->interpret_path ($self->get_path);
855
856 $self->repaint_board;
857
858 # force a redraw (not perfect(?))
859 expose_event $self->{canvas}, $self, { area => $self->{canvas}->allocation };
860
861 $self->{text}->backward_delete($self->{text}->get_length);
862 $self->{text}->insert(undef, undef, undef, KGS::Listener::Debug::dumpval([$self->{board}{time},$self->{board}{captures}]). $self->{board}{comment});
863}
864
865sub event_move {
866 ::play_sound "move";
554} 867}
555 868
5561; 8691;
557 870
558 871

Diff Legend

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