Mkui
From Organic Design wiki
#!/usr/bin/perl -w
# process a directory of svg files into png files
# using image magick
use strict;
use Image::Magick;
my $ROOT = `pwd`;
chomp $ROOT;
opendir(DIR, "$ROOT/src/ui/svg") or die "Can't open UI folder: $!";
while ( my $file = readdir(DIR) ) {
# process only svg files
next unless $file =~ /\.svg$/;
my $image = Image::Magick->new(
#matte => 'True',
#colorspace => 'RGB',
#type => 'TrueColor',
#size => '1024x768',
background => 'none',
);
$file =~ m/(.*)\.svg$/;
my $svg = "$ROOT/src/ui/svg/$1.svg";
my $png = "$ROOT/src/ui/png/$1.png";
my $x = $image->Read( filename => $svg );
warn "$x $svg" if $x;
$x = $image->Write( filename => $png, matte => 'true' );
warn $x if $x;
}