This page gives a simple demonstration of the Imager fountain filter. See the bottom of the page for sample code that could draw the given fountain fill. Code: use Imager; use Imager::Fountain; my $img = Imager->new(xsize=>200, ysize=>200); my $bg = Imager::Color->new("#FF00FF); $img->box(color=>$bg, filled=>1); my $segs = Imager::Fountain->new; $segs->add( c0 => Imager::Color->new(web=>"#000000", alpha=>255), c1 => Imager::Color->new(web=>"#FFFFFF", alpha=>255), color=>"direct"); $img->filter(type => "fountain", ftype => "linear", repeat => "none", super_sample => "circle", ssample_param => 4, combine => "none", segments => $segs, xa => 10, ya => 130, xb => 10, yb => 10); |