| … | |
… | |
| 200 | # TODO: smaller == buggy, want visual perfectness |
200 | # TODO: smaller == buggy, want visual perfectness |
| 201 | my $borderw = int ($w / ($size + 3) * 0.5); |
201 | my $borderw = int ($w / ($size + 3) * 0.5); |
| 202 | my $borderh = $borderw; |
202 | my $borderh = $borderw; |
| 203 | my $w2 = $w - $borderw * 2; |
203 | my $w2 = $w - $borderw * 2; |
| 204 | my $h2 = $h - $borderh * 2; |
204 | my $h2 = $h - $borderh * 2; |
| 205 | my $edge = $self->{edge} = ceil ($w2 / ($size + 1)); |
205 | my $edge = ceil ($w2 / ($size + 1)); |
| 206 | my $ofs = $edge * 0.5; |
206 | my $ofs = $edge * 0.5; |
| 207 | |
207 | |
| 208 | my @kx = map int ($w2 * $_ / ($size+1) + $borderw + 0.5), 0 .. $size; $self->{kx} = \@kx; |
208 | my @kx = map int ($w2 * $_ / ($size+1) + $borderw + 0.5), 0 .. $size; $self->{kx} = \@kx; |
| 209 | my @ky = map int ($h2 * $_ / ($size+1) + $borderh + 0.5), 0 .. $size; $self->{ky} = \@ky; |
209 | my @ky = map int ($h2 * $_ / ($size+1) + $borderh + 0.5), 0 .. $size; $self->{ky} = \@ky; |
| 210 | |
210 | |
| … | |
… | |
| 287 | $self->{window}->set_back_pixmap ($pixmap, 0); |
287 | $self->{window}->set_back_pixmap ($pixmap, 0); |
| 288 | |
288 | |
| 289 | $self->{backgroundpm} = $pixmap; |
289 | $self->{backgroundpm} = $pixmap; |
| 290 | $self->{backgroundpb} = $pixbuf; |
290 | $self->{backgroundpb} = $pixbuf; |
| 291 | |
291 | |
| 292 | $edge = ceil ($edge) | 1; |
292 | $edge = 1 | ceil $edge; |
| 293 | $ofs = $edge * 0.5; |
293 | $ofs = $edge * 0.5; |
| 294 | |
294 | |
| 295 | my $shadow = $edge * SHADOW; |
295 | my $shadow = $edge * SHADOW; |
| 296 | |
296 | |
| 297 | $self->{draw_stone} = sub { |
297 | $self->{draw_stone} = sub { |
