karchnu
/
some-usable-scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

We can create an antipixel button. But this is basic and quite ugly.

master
Karchnu 2012-07-27 02:56:33 +02:00
parent 082386d581
commit 0a308931ce
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
perl/antipixel/MyWrapper.pm
View File

@ -160,7 +160,7 @@ sub do_antipixel_button {
my $current_position = 10; my $current_position = 10;
for my $i (@mots) { for my $i (@mots) {
$im->filledRectangle($current_position - 3, 2, $current_position + length($i) * 6 + 7, $y - 3, $couleurs_allouees{$self->couleur_interne}); $im->filledRectangle($current_position - 3, 2, $current_position + length($i) * 6 + 7, $y - 3, $couleurs_allouees{$self->couleur_interne});
$im->string(gdMediumBoldFont, $current_position , $y - 0.75 * $y, $i, $couleurs_allouees{'blanc'}); $im->string(gdTinyFont, $current_position , $y - 0.75 * $y, $i, $couleurs_allouees{'blanc'});
$current_position += length($i) * 6 + 15; $current_position += length($i) * 6 + 15;
} }
} }