#!/usr/app/bin/perl
eval 'exec /usr/app/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
# Use gaussian blur and levels to round selection corners
use Gimp qw(:auto __ N_);
use Gimp::Fu;
use Gimp::Util;
# Gimp::set_trace(TRACE_ALL);
register "round_sel",
"Rounds a selection.",
"Rounds a selection.",
"Uri Zarfaty",
"Uri Zarfaty <udz20\@cam.ac.uk>",
"1999-03-25",
N_"<Image>/Select/Round...",
"*",
[
[PF_SPINNER, "roundness", "How much to round, in pixels", 16, [1,1000,1]],
], sub {
my($img,$drawable,$round) = @_;
eval { $img->undo_push_group_start };
my $channel = gimp_selection_save($img);
gimp_selection_none($img);
plug_in_gauss_iir($img, $channel, $round, 1, 1);
gimp_levels($channel, 0, 123, 133, 1.0, 0, 255);
gimp_selection_load($channel);
gimp_image_remove_channel($img, $channel);
# gimp_channel_delete($channel);
eval { $img->undo_push_group_end };
();
};
exit main;