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

The progress bar is cool but the antipixel button sucks. I'm pretty proud of my code however.

Browse Source
This commit is contained in:
Karchnu 2012-07-27 02:56:58 +02:00
parent 0a308931ce
commit 7d1b54a440
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;
for my $i (@mots) {
$im->filledRectangle($current_position - 3, 2, $current_position + length($i) * 6 + 7, $y - 3, $couleurs_allouees{$self->couleur_interne});
$im->string(gdTinyFont, $current_position , $y - 0.75 * $y, $i, $couleurs_allouees{'blanc'});
$im->string(gdMediumBoldFont, $current_position , $y - 0.75 * $y, $i, $couleurs_allouees{'blanc'});
$current_position += length($i) * 6 + 15;
}
}