… | |
… | |
287 | |
287 | |
288 | $self->{offsets} = [int (($w - $s) / 2), int (($h - $s) / 2), $s]; |
288 | $self->{offsets} = [int (($w - $s) / 2), int (($h - $s) / 2), $s]; |
289 | |
289 | |
290 | my $size = $self->{size}; |
290 | my $size = $self->{size}; |
291 | |
291 | |
|
|
292 | # we leave enough space for the shadows.. I like smaller stones, and we |
|
|
293 | # do no need to do the nifty recursive screen updates that goban2 does |
292 | my $border = int ($s / ($size + 3) * 0.5); |
294 | my $border = int ($s / ($size + 3) * 0.5); |
293 | my $s2 = $s - $border * 2; |
295 | my $s2 = $s - $border * 2; |
294 | my $edge = int ($s2 / ($size + 1) * 0.96) - ($::config->{randomize} ? 3 : 0); |
296 | my $edge = int ($s2 / ($size + 1) * 0.96) - ($::config->{randomize} ? 3 : 0); |
295 | my $ofs = int ($edge / 2); |
297 | my $ofs = int ($edge / 2); |
296 | |
298 | |