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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.6 by elmex, Thu May 29 03:11:56 2003 UTC vs.
Revision 1.17 by pcg, Fri May 30 09:15:37 2003 UTC

1#!/usr/bin/perl -I../lib/ 1#!/usr/bin/perl -I../lib/
2
3#use PApp::Util qw(dumpval); # debug only
4 2
5use Gtk; 3use Gtk;
6use Gtk::Gdk; 4use Gtk::Gdk;
7use Gtk; 5use Gtk::Gdk::Pixbuf;
8#use Gtk::Gdk::ImlibImage; 6#use Gtk::Gdk::ImlibImage;
9use Gnome;
10init Gnome "kgsueme";
11
12 7
13use KGS::Protocol; 8use KGS::Protocol;
14use KGS::Listener::Debug; 9use KGS::Listener::Debug;
15 10
11use Audio::Data;
12use Audio::Play;
13
16use IO::Socket::INET; 14use IO::Socket::INET;
17 15
18use Errno; 16use Errno;
19 17
20init Gtk; 18init Gtk;
21 19
22$HACK = 1; # do NEVER enable. ;) 20$HACK = 1; # do NEVER enable. ;)
23 21
24our $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 my $audioserver = new Audio::Play(1);
68 $audioserver->play ($sound{$_[0]});
69 Gtk->_exit(0);
70 }
71 }
72}
25 73
26{ 74{
27 use Storable (); 75 use Storable ();
28 use Scalar::Util (); 76 use Scalar::Util ();
29 77
… …
37 # grr... more gtk+ brokenness 85 # grr... more gtk+ brokenness
38 my %get = ( 86 my %get = (
39 hpane_position => sub { ($_[0]->children)[0]->allocation->[2] }, 87 hpane_position => sub { ($_[0]->children)[0]->allocation->[2] },
40 vpane_position => sub { ($_[0]->children)[0]->allocation->[3] }, 88 vpane_position => sub { ($_[0]->children)[0]->allocation->[3] },
41 window_size => sub { [ @{$_[0]->allocation}[2,3] ] }, 89 window_size => sub { [ @{$_[0]->allocation}[2,3] ] },
42 #window_pos => sub { die PApp::Util::dumpval [ $_[0]->get_root_origin ] }, 90 #window_pos => sub { die KGS::Listener::Debug::dumpval [ $_[0]->get_root_origin ] },
43 clist_column_widths => sub { 91 clist_column_widths => sub {
44 $_[0]{column_widths}; 92 $_[0]{column_widths};
45 }, 93 },
46 ); 94 );
47 95
… …
76 124
77 sub save_state { 125 sub save_state {
78 for (@widgets) { 126 for (@widgets) {
79 if ($_->[0]) { 127 if ($_->[0]) {
80 my ($widget, $class, $instance, $attr) = @$_; 128 my ($widget, $class, $instance, $attr) = @$_;
129
130 $widget->realize;
131
81 while (my ($k, $v) = each %$attr) { 132 while (my ($k, $v) = each %$attr) {
82 my ($set, $get) = $k =~ /=/ ? split /=/, $k : ($k, $k); 133 my ($set, $get) = $k =~ /=/ ? split /=/, $k : ($k, $k);
83 $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get); 134 $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get);
84 135
85 $state->{$class}{"*"}{$get} = $v; 136 $state->{$class}{"*"}{$get} = $v;
… …
124 $main->{status}->pop($context_id{$type}) if $context_id{$type}; 175 $main->{status}->pop($context_id{$type}) if $context_id{$type};
125 $main->{status}->push($context_id{$type} ||= $main->{status}->get_context_id($type), $text) if $text; 176 $main->{status}->push($context_id{$type} ||= $main->{status}->get_context_id($type), $text) if $text;
126 } 177 }
127} 178}
128 179
180if (0) {
181 use KGS::Constants;
182
183 my $board = new game size => 5;
184 $board->{board} = new KGS::Game::Board;
185 $board->{board}{board}[0][0] = MARK_B;
186 $board->{board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
187 $board->{board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
188 $board->{window}->show_all;
189}
190
129main Gtk; 191main Gtk;
130 192
131############################################################################# 193#############################################################################
132 194
133package kgsueme; 195package kgsueme;
… …
147 $self->{roomlist} = new roomlist conn => $self->{conn}; 209 $self->{roomlist} = new roomlist conn => $self->{conn};
148 210
149 $self->{window} = new Gtk::Window 'toplevel'; 211 $self->{window} = new Gtk::Window 'toplevel';
150 $self->{window}->set_title('kgsueme'); 212 $self->{window}->set_title('kgsueme');
151 ::state $self->{window}, "main::window", undef, window_size => [400, 100]; 213 ::state $self->{window}, "main::window", undef, window_size => [400, 100];
152 $self->{window}->signal_connect(delete_event => sub { main_quit Gtk }); 214 $self->{window}->signal_connect(delete_event => sub { main_quit Gtk; 1 });
153 215
154 $self->{window}->add(my $vbox = new Gtk::VBox); 216 $self->{window}->add(my $vbox = new Gtk::VBox);
155 217
156 $vbox->pack_start(($buttonbox = new Gtk::HButtonBox), 0, 1, 0); 218 $vbox->pack_start(($buttonbox = new Gtk::HButtonBox), 0, 1, 0);
157 $buttonbox->set_spacing(0); 219 $buttonbox->set_spacing(0);
… …
223 285
224 ::status("login", "logged in as '$self->{conn}{name}' with status '$msg->{result}'"); 286 ::status("login", "logged in as '$self->{conn}{name}' with status '$msg->{result}'");
225 $::config->{login} = $self->{conn}{name}; 287 $::config->{login} = $self->{conn}{name};
226 288
227 if ($msg->{success}) { 289 if ($msg->{success}) {
228 warn "hiya\n";
229 for (keys %{$::config->{rooms}}) { 290 for (keys %{$::config->{rooms}}) {
230 warn "hiya $_\n";
231 $self->{roomlist}->join_room($_); 291 $self->{roomlist}->join_room($_);
232 } 292 }
233 } 293 }
234
235 warn PApp::Util::dumpval($::config);
236} 294}
237 295
238sub event_disconnect { } 296sub event_disconnect { }
239 297
240############################################################################# 298#############################################################################
… …
251 309
252 $self->{window} = new Gtk::Window 'toplevel'; 310 $self->{window} = new Gtk::Window 'toplevel';
253 $self->{window}->set_title('KGS Rooms'); 311 $self->{window}->set_title('KGS Rooms');
254 ::state $self->{window}, "roomlist::window", undef, window_size => [400, 200]; 312 ::state $self->{window}, "roomlist::window", undef, window_size => [400, 200];
255 313
256 $self->{window}->signal_connect(delete_event => sub { $self->{window}->hide }); 314 $self->{window}->signal_connect(delete_event => sub { $self->{window}->hide; 1 });
257 315
258 $self->{window}->add(my $vbox = new Gtk::VBox); 316 $self->{window}->add(my $vbox = new Gtk::VBox);
259 317
260 $vbox->pack_start((my $sw = new Gtk::ScrolledWindow), 1, 1, 0); 318 $vbox->pack_start((my $sw = new Gtk::ScrolledWindow), 1, 1, 0);
261 $sw->set_policy("automatic", "always"); 319 $sw->set_policy("automatic", "always");
… …
287 345
288 $self->msg(list_rooms => group => $_) for 0..5; # fetch all room names (should not!) 346 $self->msg(list_rooms => group => $_) for 0..5; # fetch all room names (should not!)
289 $self->{window}->show_all; 347 $self->{window}->show_all;
290} 348}
291 349
292sub event_update { 350sub event_update_rooms {
293 my ($self) = @_; 351 my ($self) = @_;
294 352
295 $self->{event_update} ||= Gtk->timeout_add(200, sub { 353 $self->{event_update} ||= Gtk->timeout_add(200, sub {
296 my $l = $self->{roomlist}; 354 my $l = $self->{roomlist};
297 355
… …
327 385
328 $self->{window} = new Gtk::Window 'toplevel'; 386 $self->{window} = new Gtk::Window 'toplevel';
329 $self->{window}->set_title("KGS Room $self->{name}"); 387 $self->{window}->set_title("KGS Room $self->{name}");
330 ::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400]; 388 ::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400];
331 389
332 $self->{window}->signal_connect(delete_event => sub { $self->part }); 390 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
333 391
334 $self->{window}->add(my $hpane = new Gtk::HPaned); 392 $self->{window}->add(my $hpane = new Gtk::HPaned);
335 ::state $hpane, "room::hpane", $self->{name}, hpane_position => 200; 393 ::state $hpane, "room::hpane", $self->{name}, hpane_position => 200;
336 394
337 $hpane->add(my $vpane = new Gtk::VPaned); 395 $hpane->add(my $vpane = new Gtk::VPaned);
… …
374 ::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30]; 432 ::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30];
375 433
376 $self; 434 $self;
377} 435}
378 436
379sub event_update { 437sub event_update_users {
380 my ($self) = @_; 438 my ($self) = @_;
381 439
382 $self->{event_update} ||= Gtk->timeout_add(200, sub { 440 $self->{event_update} ||= Gtk->timeout_add(200, sub {
383 my $l = $self->{userlist}; 441 my $l = $self->{userlist};
384 442
… …
435 my ($self) = @_; 493 my ($self) = @_;
436 $self->SUPER::part; 494 $self->SUPER::part;
437 495
438 delete $::config->{rooms}{$self->{channel}}; 496 delete $::config->{rooms}{$self->{channel}};
439 $self->{window}->hide_all; 497 $self->{window}->hide_all;
440 $self->event_update; 498 $self->event_update_users;
441 $self->event_update_games; 499 $self->event_update_games;
442} 500}
443 501
444sub event_join { 502sub event_join {
445 my ($self) = @_; 503 my ($self) = @_;
… …
449} 507}
450 508
451sub event_update_roominfo { 509sub event_update_roominfo {
452 my ($self) = @_; 510 my ($self) = @_;
453 511
454 $self->{text}->insert(undef, undef, undef, "$self->{owner}: $self->{description}\n\n"); 512 $self->{text}->insert(undef, undef, undef, "\n$self->{owner}: $self->{description}\n");
455} 513}
456 514
457sub inject_msg_room { 515sub inject_msg_room {
458 my ($self, $msg) = @_; 516 my ($self, $msg) = @_;
459 return unless $self->{channel} == $msg->{channel}; 517 return unless $self->{channel} == $msg->{channel};
460 518
461 $self->{text}->insert(undef, undef, undef, "$msg->{name}: $msg->{message}\n"); 519 $self->{text}->insert(undef, undef, undef, "\n$msg->{name}: $msg->{message}");
462} 520}
463 521
464############################################################################# 522#############################################################################
465 523
466package game; 524package game;
525
526use KGS::Constants;
527use KGS::Game::Board;
467 528
468use base KGS::Listener::Game; 529use base KGS::Listener::Game;
469use base KGS::Game; 530use base KGS::Game;
470 531
471sub new { 532sub new {
… …
473 $self = $self->SUPER::new(@_); 534 $self = $self->SUPER::new(@_);
474 535
475 $self->listen($self->{conn}); 536 $self->listen($self->{conn});
476 537
477 $self->{window} = new Gtk::Window 'toplevel'; 538 $self->{window} = new Gtk::Window 'toplevel';
478 $self->{window}->set_title("KGS Game ".$self->user0." ".$self->user1); 539 $self->{window}->set_title("KGS Game ".$self->user0." ".$self->user1) if $self->{channel};#d#
479 ::state $self->{window}, "game::window", undef, window_size => [600, 500]; 540 ::state $self->{window}, "game::window", undef, window_size => [600, 500];
480 541
481 $self->{window}->signal_connect(delete_event => sub { $self->part }); 542 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
482 543
483 $self->{window}->add(my $hpane = new Gtk::HPaned); 544 $self->{window}->add(my $hpane = new Gtk::HPaned);
484 ::state $hpane, "game::hpane", undef, hpane_position => 500; 545 ::state $hpane, "game::hpane", undef, hpane_position => 500;
485 546
486 $hpane->add(my $canvas = new Gnome::Canvas); 547 Gtk::Widget->push_visual (Gtk::Gdk::Rgb->get_visual);
487 $self->{canvas} = $canvas; 548 Gtk::Widget->push_colormap (Gtk::Gdk::Rgb->get_cmap);
488# $canvas->set_pixels_per_unit(300); 549 $hpane->pack1(($self->{canvas} = new Gtk::DrawingArea), 1, 1);
489 $canvas->set_scroll_region(0,0,400,400); 550 Gtk::Widget->pop_colormap;
490 $self->{board} = [[]]; 551 Gtk::Widget->pop_visual;
491# $canvas->style->bg('normal', $canvas->style->white);
492 {
493 my $croot = $canvas->root;
494 my $cgroup = $croot->new($croot, "Gnome::CanvasGroup");
495 my $w = 400;
496 my $pad = 26;
497 my $box = $cgroup->new($cgroup,"Gnome::CanvasRect",
498 x1 => 0, x2 => $w,
499 y1 => 0, y2 => $w,
500 outline_color => "green",
501 fill_color => "green",
502 width_pixels => 2,
503 );
504 my $box2 = $cgroup->new($cgroup,"Gnome::CanvasRect",
505 x1 => $pad, x2 => $w - $pad,
506 y1 => $pad, y2 => $w - $pad,
507 outline_color => "brown",
508 fill_color => "brown",
509 width_pixels => 2,
510 );
511 my @lines;
512 my $x1 = $pad * 2; # == my $y1 = 30;
513 my $x2 = $w - ($pad * 2); # == my $y2 = 270;
514 my $w = $x2 - $x1;
515 my $s = $self->{size} - 1;
516 552
517 for (my $i = 0; $i <= $s; $i++) { # one more iteration for the finishing lines 553 $self->{canvas}->signal_connect(configure_event => \&configure_event, $self);
518 push @lines, 554 $self->{canvas}->signal_connect(expose_event => \&expose_event, $self);
519 $cgroup->new($cgroup,"Gnome::CanvasLine",
520 points => [ $x1, $x1 + ($w/$s)*$i, $x1 + $w, $x1 + ($w/$s)*$i ],
521 fill_color => "darkbrown",
522 width_pixels => 1);
523 push @lines,
524 $cgroup->new($cgroup,"Gnome::CanvasLine",
525 points => [ $x1 + ($w/$s)*$i, $x1, $x1 + ($w/$s)*$i, $x1 + $w ],
526 fill_color => "darkbrown",
527 width_pixels => 1);
528 }
529 $self->{board_gfx}->{lines} = \@lines;
530 my $stones = [[]];
531 my $wf = ($w/$s);
532 for (my $x = 0; $x < $self->{size}; $x++) {
533 for (my $y = 0; $y < $self->{size}; $y++) {
534 $stones->[$x]->[$y]->[0] = # black stone
535 $cgroup->new($cgroup,"Gnome::CanvasEllipse",
536 x1 => $x1 + $wf*$x - ($wf/2.2), x2 => $x1 + $wf*$x + ($wf/2),
537 y1 => $x1 + $wf*$y - ($wf/2.2), y2 => $x1 + $wf*$y + ($wf/2),
538 fill_color => "black");
539 $stones->[$x]->[$y]->[0]->hide;
540 $stones->[$x]->[$y]->[1] = # black stone
541 $cgroup->new($cgroup,"Gnome::CanvasEllipse",
542 x1 => $x1 + $wf*$x - ($wf/2.2), x2 => $x1 + $wf*$x + ($wf/2),
543 y1 => $x1 + $wf*$y - ($wf/2.2), y2 => $x1 + $wf*$y + ($wf/2),
544 fill_color => "white");
545 $stones->[$x]->[$y]->[1]->hide;
546 }
547 }
548 $self->{board_gfx}->{stones} = $stones;
549 555
550 # smooth => 1,
551 # spline_steps => 50
552# $line->hide;
553 }
554$canvas->show();
555
556
557 $hpane->add(my $vpane = new Gtk::VPaned); 556 $hpane->pack2((my $vpane = new Gtk::VPaned), 0, 0);
558 ::state $vpane, "game", $self->{name}, vpane_position => 80; 557 ::state $vpane, "game", $self->{name}, vpane_position => 80;
559 558
560 $vpane->add(my $sw = new Gtk::ScrolledWindow); 559 $vpane->add(my $sw = new Gtk::ScrolledWindow);
561 $sw->set_policy("automatic", "always"); 560 $sw->set_policy("automatic", "always");
562 561
… …
579 }); 578 });
580 579
581 $self; 580 $self;
582} 581}
583 582
584sub event_update { 583sub event_update_users {
585 my ($self) = @_; 584 my ($self) = @_;
586 585
587 $self->{event_update} ||= Gtk->timeout_add(200, sub { 586 room::event_update_users $self;
588 my $l = $self->{userlist};
589
590 $l->freeze;
591 my $pos = $l->get_vadjustment->get_value;
592 $l->clear;
593
594 my $row = 0;
595 for (values %{$self->{users}}) {
596 $l->append($_->{name});
597 $l->set_row_data($row++, $_);
598 }
599 $l->sort;
600 $l->get_vadjustment->set_value($pos);
601 $l->thaw;
602
603 delete $self->{event_update};
604 0;
605 });
606} 587}
607 588
608sub join { 589sub join {
609 my ($self) = @_; 590 my ($self) = @_;
610 $self->SUPER::join; 591 $self->SUPER::join;
… …
614 595
615sub part { 596sub part {
616 my ($self) = @_; 597 my ($self) = @_;
617 $self->SUPER::part; 598 $self->SUPER::part;
618 599
619 $self->{window}->hide_all; 600 $self->{window}->hide;
620 $self->event_update;
621} 601}
622 602
623sub event_update_tree { 603sub configure_event {
624 my ($self) = @_; 604 my ($widget, $self, $event) = @_;
605 delete $self->{stack};
606 $self->repaint_board;
607 1;
608}
625 609
626# if (not defined $self->{board_pm}) { 610sub INTERP_NEAREST (){ 1 }
627# $self->{board_pm} = new Gtk::Gdk::Pixmap ($self->{board}->window, 100, 100, -1); 611sub INTERP_TILES (){ 1 }
628# $self->{board_pm}->draw_rectangle($self->{board}->style->white_gc, 1, 0, 0, 100, 100); 612sub INTERP_BILINEAR (){ 2 }
613sub INTERP_HYPER (){ 3 }
614
615sub new_pixbuf {
616 my ($w, $h, $alpha, $clear) = @_;
617
618 my $pixbuf = new Gtk::Gdk::Pixbuf 'rgb', $alpha, 8, $w, $h;
619
620 if ($clear) { # damn, need to clear it ourselves
621 my $row = "\x00\x00\x00\x00" x $w;
622 $pixbuf->put_pixels ($row, $_, 0) for 0 .. $h - 1;
629# } 623 }
630# my $red = $self->{board}->window->get_colormap->color_alloc( { red => 65000, green => 0, blue => 0 } );
631# my $red_gc = new Gtk::Gdk::GC ( $self->{board}->window );
632# $red_gc->set_foreground( $red );
633#
634# my $px = $self->{board_pm};
635 624
636 for my $x (0 .. $self->{size} - 1) { 625 $pixbuf;
637 for my $y (0 .. $self->{size} - 1) { 626}
638# $self->{board}[$x][$y] = 0; 627
639 $self->{board_gfx}->{stones}->[$x]->[$y]->[0]->hide; 628sub scale_pixbuf {
640 $self->{board_gfx}->{stones}->[$x]->[$y]->[1]->hide; 629 my ($src, $w, $h, $mode) = @_;
630
631 my $dst = new_pixbuf $w, $h, 1;
632
633 $src->scale(
634 $dst, 0, 0, $w, $h, 0, 0,
635 $w / $src->get_width, $h / $src->get_height,
636 $mode,
637 );
638
639 $dst;
640}
641
642# create a stack of stones
643sub create_stack {
644 my ($self, $mark, $size, $rand) = @_;
645
646 my $c = \$self->{stack}{$mark};
647 unless ($$c) {
648 for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) {
649 my $base =
650 $mark & (MARK_B | MARK_GRAY_B | MARK_W | MARK_GRAY_W)
651 ? scale_pixbuf $stone, $size, $size, INTERP_HYPER
652 : new_pixbuf $size, $size, 1, 1;
653
654 if ($mark & (MARK_GRAY_B | MARK_GRAY_W)) {
655 # make transparent by stippling :(
656 # fix this to use compositing if/when we have full compositing support
657 # in kgsueme
658 my @row = (
659 "\xff\xff\xff\xff\x00\x00\x00\x00" x ($size / 2 + 1),
660 "\x00\x00\x00\x00\xff\xff\xff\xff" x ($size / 2 + 1),
661 );
662 $base->put_pixels ($base->get_pixels ($_) & $row[$_ & 1], $_, 0)
663 for 0 .. $size - 1;
641 } 664 }
642 }
643 665
644 for (0..$self->{node}) { 666 for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]],
645 while (my ($k, $v) = each %{$self->{tree}[$_]}) { 667 [MARK_SMALL_W, $::white_img[$rand % @::white_img]]) {
646 if ($k eq "move7") { 668 my ($mask, $img) = @$_;
647 if ($v->[1] < 255) { 669 if ($mark & $mask) {
648# $self->{board_gfx}->{stones}[$x][$y]->[0]->show; 670 $img->composite (
649 ($v->[0] == 0) && 671 $base, ($size / 4) x2, (int ($size / 2 + 0.5)) x2, ($size / 4) x 2,
650 $self->{board_gfx}->{stones}->[$v->[1]]->[$v->[2]]->[0]->show; 672 $size / $img->get_width / 2, $size / $img->get_height / 2,
651 ($v->[0] == 1) && 673 INTERP_HYPER, 192
652 $self->{board_gfx}->{stones}->[$v->[1]]->[$v->[2]]->[1]->show; 674 );
653 # $self->{board}[$v->[1]][$v->[2]] = ($v->[0] + 1); # ("X", "O", "-")
654 # 0 1 2 (+1)
655 } 675 }
656 } 676 }
677
678 my $dark_bg = ! ! ($mark & (MARK_B | MARK_GRAY_B));
679
680 for ([MARK_CIRCLE, $::circle_img[$dark_bg]],
681 [MARK_TRIANGLE, $::triangle_img[$dark_bg]],
682 [MARK_SQUARE, $::square_img[$dark_bg]]) {
683 my ($mask, $img) = @$_;
684 if ($mark & $mask) {
685 $img->composite (
686 $base, 0, 0, $size, $size, 0, 0,
687 ($size - 1) / ($img->get_width - 1), ($size - 1) / ($img->get_height - 1),
688 INTERP_HYPER, 255
689 );
690 }
691 }
692
693 #push @$$c, [$base->render_pixmap_and_mask (128)];
694 push @$$c, $base;
695 }
696 }
697
698 $$c->[$rand % @$$c];
699}
700
701sub pixbuf_text {
702 my ($pixbuf, $colour, $x, $y, $height, $text) = @_;
703
704 my $c = $::font[$colour][$::fontmap{substr $text, 0, 1}];
705
706 if ($c) {
707 my ($w, $h) = ($c->get_width, $c->get_height);
708 my $s = $height / $h;
709
710 $x -= $w * $s *0.5;
711 $y -= $height * 0.5;
712
713 $c->composite ($pixbuf,
714 $x, $y, $w*$s+1, $height+1, $x, $y, $s, $s,
715 INTERP_HYPER, 128);
716
717 } else {
718 warn "unable to render character '$text'";
719 }
720}
721
722my $black_pb;
723
724sub pixbuf_rect {
725 my ($pb, $x1, $y1, $x2, $y2) = @_;
726 # we fake lines by... an unspeakable method :/
727 unless ($black_pb) {
728 $black_pb = new_pixbuf 1, 1, 0, 0;
729 $black_pb->put_pixels ("\x44\x11\x11", 0, 0);
730 }
731
732 $black_pb->scale ($pb, $x1, $y1, $x2 - $x1 + 1, $y2 - $y1 + 1, $x1, $y1, 10000, 10000, INTERP_NEAREST);
733}
734
735sub repaint_board {
736 my ($self) = @_;
737 my $canvas = $self->{canvas};
738
739 return unless $self->{board};
740
741 %cache = ();
742
743 my ($w, $h) = @{$canvas->allocation}[2,3];
744
745 my $s = $w > $h ? $h : $w;
746
747 $self->{offsets} = [int (($w - $s) / 2), int (($h - $s) / 2), $s];
748
749 my $pixbuf;
750
751 {
752 my ($bw, $bh) = ($::board_img->get_width, $::board_img->get_height);
753
754 if ($s < $bw && $s < $bh) {
755 $pixbuf = new_pixbuf $s, $s, 0, 0;
756 $::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0);
757 } else {
758 $pixbuf = scale_pixbuf $::board_img, $s, $s, INTERP_TILES;
759 }
760 }
761
762 $self->{pixbuf} = $pixbuf;
763
764 my $size = $self->{size};
765 my $border = int ($s / $size);
766 my $s2 = $s - $border * 2;
767 my $edge = int ($s2 / $size) | 1;
768 my $ofs = int ($edge / 2);
769
770 my @k = map int ($s2 * $_ / $size - $ofs + $border + 0.5), 0 .. $size;
771
772 my $linew = int ($s / 300);
773
774 my $a = "A";
775 for my $i (1 .. $size) {
776 pixbuf_rect $pixbuf, $k[$i] - $linew, $k[1] - $linew, $k[$i] + $linew, $k[$size] + $linew;
777 pixbuf_rect $pixbuf, $k[1] - $linew, $k[$i] - $linew, $k[$size] + $linew, $k[$i] + $linew;
778
779 pixbuf_text $pixbuf, 0, $k[$i], ($ofs +$border) / 2, $ofs, $a;
780 pixbuf_text $pixbuf, 0, $k[$i], $s2 + $border + $ofs / 2, $ofs, $a;
781 pixbuf_text $pixbuf, 0, ($ofs + $border) / 2, $k[$i], $ofs, $size - $i + 1;
782 pixbuf_text $pixbuf, 0, $s2 + $border + $ofs / 2, $k[$i], $ofs, $size - $i + 1;
783
784 $a++;
785 $a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK...
786 }
787
788 # hoshi-points(!)#d#
789 # caching of empty board gfx(!)#d#
790
791 for my $x (1 .. $size) {
792 for my $y (1 .. $size) {
793 my $mark = $self->{board}{board}[$x-1][$y-1];
794
795 if ($mark) {
796 my ($dx, $dy) = ($k[$x] - $ofs, $k[$y] - $ofs);
797 my $pb = $self->create_stack($mark, $edge, $x * 17 + $y * 11 );
798
799 $pb->composite ($pixbuf, $dx, $dy, $edge, $edge, $dx, $dy, 1, 1, INTERP_TILES, 192);
800
801 #my ($pm, $bm) = $self->create_stack($gc, $mark, $edge, $x * 17 + $y * 11 );
802
803 #$gc->set_clip_mask ($bm);
804 #$gc->set_clip_origin ($dx, $dy);
805 #$pixmap->draw_pixmap ($gc, $pm, 0, 0, $dx, $dy, $edge, $edge);
806 }
807 }
808 }
809}
810
811sub expose_event {
812 my ($widget, $self, $event) = @_;
813
814 $self->{pixbuf} or return;
815
816 my ($ox, $oy, $s) = @{$self->{offsets}};
817
818 my ($x, $y, $w, $h) =
819 @{Gtk::Gdk::Rectangle->intersect(
820 $event->{area},
821 [$ox, $oy, $s, $s]
657 } 822 )};
658 }
659}
660 823
661package KGS::Game::Board; 824 if (defined $x) {
662package KGS::Game::Node; 825 $self->{pixbuf}->render_to_drawable ($self->{canvas}->window, $self->{canvas}->style->white_gc,
663package KGS::Game::Tree; 826 $x - $ox, $y - $oy, $x, $y, $w, $h);
827 #$self->{canvas}->window->draw_pixmap (
828 # $self->{canvas}->style->white_gc,
829 # $self->{pixmap},
830 # $x - $ox, $y - $oy, $x, $y, $w, $h,
831 #);
832 }
833 1;
834}
835
836sub event_update_tree {
837 my ($self) = @_;
838
839 $self->{board} = new KGS::Game::Board $self->{size};
840 $self->{board}->interpret_path ($self->get_path);
841
842 $self->repaint_board;
843
844 # force a redraw (not perfect(?))
845 expose_event $self->{canvas}, $self, { area => $self->{canvas}->allocation };
846
847 $self->{text}->backward_delete($self->{text}->get_length);
848 $self->{text}->insert(undef, undef, undef, KGS::Listener::Debug::dumpval([$self->{board}{time},$self->{board}{captures}]). $self->{board}{comment});
849}
850
851sub event_move {
852 ::play_sound "move";
853}
664 854
6651; 8551;
666 856
667 857
668 858

Diff Legend

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