… | |
… | |
268 | for my $i (1 .. $size) { |
268 | for my $i (1 .. $size) { |
269 | # 38 max, but we allow a bit more |
269 | # 38 max, but we allow a bit more |
270 | my $label = (qw(- A B C D E F G H J K L M N O P Q R S T U V W X Y Z |
270 | my $label = (qw(- A B C D E F G H J K L M N O P Q R S T U V W X Y Z |
271 | AA BB CC DD EE FF GG HH JJ KK LL MM NN OO PP QQ RR SS TT UU VV WW XX YY ZZ))[$i]; |
271 | AA BB CC DD EE FF GG HH JJ KK LL MM NN OO PP QQ RR SS TT UU VV WW XX YY ZZ))[$i]; |
272 | |
272 | |
273 | $self->center_text ($pixmap, 0, $k[$i], $border, $ofs * 0.8, $label); |
273 | $self->center_text ($pixmap, 0, $k[$i], $border, $ofs * 0.7, $label); |
274 | $self->center_text ($pixmap, 0, $k[$i], $s2 + $border, $ofs * 0.8, $label); |
274 | $self->center_text ($pixmap, 0, $k[$i], $s2 + $border, $ofs * 0.7, $label); |
275 | $self->center_text ($pixmap, 0, $border, $k[$i], $ofs * 0.8, $size - $i + 1); |
275 | $self->center_text ($pixmap, 0, $border, $k[$i], $ofs * 0.7, $size - $i + 1); |
276 | $self->center_text ($pixmap, 0, $s2 + $border, $k[$i], $ofs * 0.8, $size - $i + 1); |
276 | $self->center_text ($pixmap, 0, $s2 + $border, $k[$i], $ofs * 0.7, $size - $i + 1); |
277 | |
277 | |
278 | $a++; |
278 | $a++; |
279 | $a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK... |
279 | $a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK... |
280 | } |
280 | } |
281 | |
281 | |