Code: Select all
my $string ="$x \, $y $x \, $dy";
$image->Draw(fill=>'black', stroke=>'black', primitive=>'circle', points=>$string ,strokewidth=>2);
Code: Select all
my $string ="$x \, $y $x \, $dy";
$image->Draw(fill=>'black', stroke=>'black', primitive=>'circle', points=>$string ,strokewidth=>2);
Code: Select all
$image->Composite(image=>$image2,
geometry=>"+$x+$y",
compose=>"over");
Code: Select all
composite -gravity center smile.gif rose: rose-over.png
Code: Select all
convert -size 100x100 gradient: gradient.jpg