perl: create a close circle

[jan99]

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