- or download this
my $imagen0 = Image::Magick->new;
$imagen0->Set(size=>'128x70');
$imagen0->ReadImage('canvas:transparent');
...
$imagen2->Annotate(font=>"/fonts/trebucbd.ttf", pointsize=>24, fill=>
+$fontcolor1, gravity=>'Center', text=>$p12hrn2);
...10 total
- or download this
$image->Composite(geometry => '+188+675', image => $imagen0 );
$image->Composite(geometry => '+365+675', image => $imagen1 );
$image->Composite(geometry => '+542+675', image => $imagen2 );
...10 total
- or download this
for my $i (@$times) {
my $imagen($i) = Image::Magick->new;
...
$dayx = $dayx + $dayoff;
}