Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Creating transparent images using Imager

by tonyc (Pilgrim)
on Apr 28, 2009 at 00:20 UTC ( #760478=note: print w/replies, xml ) Need Help??

in reply to Creating transparent images using Imager

Imager's default combining mode is "none" - which replaces the target pixel, you can supply a fill object (or get Imager to make one) that uses the "normal" mode to get the transparency effect you're after:

use strict; use warnings; use Imager; my $img = Imager->new(xsize=>700, ysize => 500, channels => 4); # setting Imager::Color->new($red, $green, $blue, $alpha); my $blue = Imager::Color->new( 0, 0, 255, 255); my $red = Imager::Color->new( 255, 0, 0, 63); $img->box(color => $blue, xmin=>10, ymin=>30, xmax=>200, ymax=>300, filled=> 1); $img->box(fill => { solid => $red, combine => 'normal' }, xmin=>50, ymin=>80, xmax=>250, ymax=>350); $img->write(file => 'transbox.png') or die;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://760478]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2018-06-21 01:53 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.