#!/usr/bin/perl

# example for the gimp-perl-server (also called Net-S                               0000755 0000000 0000000 00000004301 10560152070 021162  0                                                                                                    ustar   root                            root                                                                                                                                                                                                                   #!/usr/bin/perl

# <sjburges@gimp.org>
# This is adrian's idea - take random blends and difference them.  You're
# bound to come up w/ something cool eventually.

use Gimp qw(:auto __ N_);
use Gimp::Fu;
use Gimp::Util;

# Gimp::set_trace(TRACE_ALL);

sub randint {
    my ($int) = @_;
    return int(rand()*$int +0.5);
    }    

register "random_blends", 
         "Random Blends - Perform N random blends", 
         "A random approach to art, using the blend tool with DIFFERENCE_MODE.  Alpha is not affected; best used on opaque background.  Just try it. It might be good.",
         "Seth Burgess