#!/usr/bin/perl
use strict;
use warnings;
my $cwd = `cat \$HOME/.enblend-svg-gui` || $ENV{'HOME'};
chomp $cwd;
unless (`which enblend-svg`)
{
`zenity --error --text='enblend-svg not found in your \$PATH'`;
exit 1;
}
my $svg;
if (@ARGV)
{
$svg = shift;
}
else
{
$svg = `zenity --file-selection \\
--filename=$cwd/ \\
--title='Select SVG image to blend layers'` || exit 0;
chomp $svg;
$cwd = $svg;
$cwd =~ s/\/[^\/]*$//;
$cwd =~ s/\\\//\//g;
`echo '$cwd' > \$HOME/.enblend-svg-gui` if ($cwd =~ /^\//);
}
exit unless $svg =~ /\.svg$/i;
my $wrap = system ("zenity --question \\
--title='Wrap around?' \\
--text='Click OK to blend across -180/+180 boundary. Click Cancel for normal scenes.'");
my $args = '';
$args = '-w' unless $wrap;
my $tif = $svg;
$tif =~ s/\.svg$/.tif/i;
`enblend-svg $args -o '$tif' '$svg' | \\
zenity --progress \\
--title='Blending SVG...' \\
--auto-close \\
--pulsate \\
--text='blending: $svg'`;
`zenity --info \\
--title='TIF created' \\
--text='$svg'`;
exit 0;