| … | |
… | |
| 38 | { |
38 | { |
| 39 | # grrr... |
39 | # grrr... |
| 40 | $frame->add(my $vbox = new Gtk2::VBox); |
40 | $frame->add(my $vbox = new Gtk2::VBox); |
| 41 | $vbox->add($self->{title} = new Gtk2::Label $title); |
41 | $vbox->add($self->{title} = new Gtk2::Label $title); |
| 42 | |
42 | |
| 43 | $self->{moveadj} = new Gtk2::Adjustment 1, 0, 1, 0.01, 0.1, 0; |
43 | $self->{moveadj} = new Gtk2::Adjustment 1, 0, 1, 0.001, 0.05, 0; |
| 44 | |
44 | |
| 45 | $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); |
45 | $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); |
| 46 | $scale->set_draw_value (0); |
46 | $scale->set_draw_value (0); |
| 47 | |
47 | |
| 48 | $self->{moveadj}->signal_connect (value_changed => sub { |
48 | $self->{moveadj}->signal_connect (value_changed => sub { |
| … | |
… | |
| 167 | |
167 | |
| 168 | # create a stack of stones |
168 | # create a stack of stones |
| 169 | sub create_stack { |
169 | sub create_stack { |
| 170 | my ($self, $mark, $size, $rand) = @_; |
170 | my ($self, $mark, $size, $rand) = @_; |
| 171 | |
171 | |
| 172 | my $shadow = $size * 0.05; |
172 | my $shadow = $size * 0.06; |
| 173 | |
173 | |
| 174 | my $c = \$self->{stack}{$mark}; |
174 | my $c = \$self->{stack}{$mark}; |
| 175 | unless ($$c) { |
175 | unless ($$c) { |
| 176 | for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) { |
176 | for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) { |
| 177 | my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000; |
177 | my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000; |
| … | |
… | |
| 287 | |
287 | |
| 288 | my $size = $self->{size}; |
288 | my $size = $self->{size}; |
| 289 | |
289 | |
| 290 | my $border = int ($s / ($size + 3) * 0.5); |
290 | my $border = int ($s / ($size + 3) * 0.5); |
| 291 | my $s2 = $s - $border * 2; |
291 | my $s2 = $s - $border * 2; |
| 292 | my $edge = int ($s2 / ($size + 1) * 0.95) - ($::config->{randomize} ? 3 : 0); |
292 | my $edge = int ($s2 / ($size + 1) * 0.97) - ($::config->{randomize} ? 3 : 0); |
| 293 | my $ofs = int ($edge / 2); |
293 | my $ofs = int ($edge / 2); |
| 294 | |
294 | |
| 295 | my @k = map int ($s2 * $_ / ($size+1) + $border + 0.5), 0 .. $size; |
295 | my @k = map int ($s2 * $_ / ($size+1) + $border + 0.5), 0 .. $size; |
| 296 | |
296 | |
| 297 | my $pixbuf; |
297 | my $pixbuf; |
| … | |
… | |
| 362 | if ($::config->{randomize}) { |
362 | if ($::config->{randomize}) { |
| 363 | $dx += ($rand % 7) - 3; |
363 | $dx += ($rand % 7) - 3; |
| 364 | $dy += ($rand / 3 % 7) - 3; |
364 | $dy += ($rand / 3 % 7) - 3; |
| 365 | } |
365 | } |
| 366 | |
366 | |
| 367 | my $shadow = $edge * 0.05; |
367 | my $shadow = $edge * 0.06; |
| 368 | my $area = [$dx, $dy, $edge + $shadow, $edge + $shadow]; |
368 | my $area = [$dx, $dy, $edge + $shadow, $edge + $shadow]; |
| 369 | |
369 | |
| 370 | my $mark = $self->{board}{board}[$x-1][$y-1]; |
370 | my $mark = $self->{board}{board}[$x-1][$y-1]; |
| 371 | my $old = $oldboard ? $oldboard->{board}[$x-1][$y-1] : 0; |
371 | my $old = $oldboard ? $oldboard->{board}[$x-1][$y-1] : 0; |
| 372 | |
372 | |
