perl: create a close circle
Posted: 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:
could someone help me ?
regards Jan
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");
}
regards Jan