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

The progress bar works well

master
Karchnu 2012-07-25 20:06:44 +02:00
parent 7ef776a887
commit 30912190a2
1 changed files with 30 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
perl/antipixel/MyWrapper.pm
View File

@ -74,9 +74,11 @@ sub _build_colors {
bleu => [0, 0, 255], bleu => [0, 0, 255],
rouge => [255, 0, 0], rouge => [255, 0, 0],
vert => [0, 255, 0], vert => [0, 255, 0],
vertf => [0, 100, 0],
noir => [0, 0, 0], noir => [0, 0, 0],
blanc => [255, 255, 255], blanc => [255, 255, 255],
gris => [140, 140, 140] gris => [140, 140, 140],
grisf => [100, 100, 100]
}; };
} }
sub afficher_couleurs { sub afficher_couleurs {
@ -122,11 +124,27 @@ sub enregistrement_image {
print DISPLAY $im->png; print DISPLAY $im->png;
close DISPLAY; close DISPLAY;
} }
sub allocation_des_couleurs {
my ($self, $im) = @_;
my %couleurs = %{$self->couleurs};
my %couleurs_allouees;
# allocate some colors
while( my ($key , $value) = each %couleurs)
{
#say "La couleur $key est : " . join(', ' , @$value);
$couleurs_allouees{$key} = $im->colorAllocate($$value[0], $$value[1], $$value[2]);
}
return %couleurs_allouees ;
}
sub options_sortie_image {
my ($self, $im) = @_;
# make the background transparent and interlaced
#$im->transparent($couleurs_allouee{'blanc'});
$im->interlaced('true');
}
sub do_img { sub do_img {
my ($self) = @_; my ($self) = @_;
my %couleurs = %{$self->couleurs};
my %couleurs_allouee;
my @mots = split / /, $self->message; my @mots = split / /, $self->message;
my $x = $self->calcul_taille_x; my $x = $self->calcul_taille_x;
my $y = $self->calcul_taille_y; my $y = $self->calcul_taille_y;
@ -135,20 +153,14 @@ sub do_img {
# create a new image # create a new image
my $im = new GD::Image($x,$y); my $im = new GD::Image($x,$y);
# allocation des couleurs
# allocate some colors my %couleurs_allouees = $self->allocation_des_couleurs( $im );
while( my ($key , $value) = each %couleurs) # options de sortie de l'image (entrelacée etc.)
{ $self->options_sortie_image ( $im );
#say "La couleur $key est : " . join(', ' , @$value); # début de la construction de l'image à proprement dite
$couleurs_allouee{$key} = $im->colorAllocate($$value[0], $$value[1], $$value[2]); $im->rectangle(0, 0, $x -1, $y -1, $couleurs_allouees{$self->couleur_contour});
} $im->filledRectangle(1, 1, $x -2, $y -2, $couleurs_allouees{$self->couleur_background});
# make the background transparent and interlaced $im->filledRectangle(2, 2, $taille_progress_bar, $y -3, $couleurs_allouees{$self->couleur_interne});
#$im->transparent($couleurs_allouee{'blanc'});
$im->interlaced('true');
$im->rectangle(0, 0, $x -1, $y -1, $couleurs_allouee{$self->couleur_contour});
$im->filledRectangle(1, 1, $x -2, $y -2, $couleurs_allouee{$self->couleur_background});
$im->filledRectangle(2, 2, $taille_progress_bar, $y -3, $couleurs_allouee{$self->couleur_interne});
$self->enregistrement_image( $im ); $self->enregistrement_image( $im );
} }