Mkui

Legacy: This article describes a concept that has been superseded in the course of ongoing development on the Organic Design wiki. Please do not develop this any further or base work on this concept, now this page is for historic record only.

#!/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;
}