perl: create a close circle

PerlMagick is an object-oriented Perl interface to ImageMagick. Use this forum to discuss, make suggestions about, or report bugs concerning PerlMagick.
Post Reply
jan99
Posts: 5
Joined: 2011-06-23T01:01:45-07:00
Authentication code: 8675308

perl: create a close circle

Post by jan99 » 2012-11-21T01:50:45-07:00

hi !

i want to make a icon with a circle - but at the button less is missing.

my source:

Code: Select all

#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;

foreach (100..130){
	my $img = Image::Magick->new();
	$img->Set(size=>'30x20');
	$img->ReadImage('xc:none');
	$img->Draw(primitive=>'circle', points=>'15,10 5,10', strokewidth=>1, stroke=>'Black', fill=>'Yellow');
	$img->Write("rec_green_30x20_".$_.".png");
}
could someone help me ?

regards Jan :-)

Post Reply