#! /usr/bin/perl
# Einfaches Skript, das die Grundlagen von Gimp-Perl demonstriert

use Gimp;
use Gimp::Fu;

register "colored_canvas",
         "Erstellen einer farbigen Leinwand",
         "Dieses Skript erstellt einen Leinwand-Hintergrund ueber "
            "einem Farbgradienten",
         "Wolfgang Mauerer",
         "wolfgang\@mynetix.de", # @ muss in einem String \@ geschrieben werden
         "0.0",
         "/Xtns/Script-Fu/Patterns/Color Canvas",
         "",
         [],
         sub {
	     Gimp::set_trace(TRACE_ALL);
	     my $image = new Image(640, 480, RGB);
	     # Neue Einstellungen fuer Vorder- und Hintergrundfarbe
	     Palette->set_foreground('red');
	     Palette->set_background('blue');
	     my $layer = $image->layer_new(640, 480, 
                                           RGB_IMAGE, "Color Canvas", 
                                           100, NORMAL_MODE);
	     
	     # Erzeugen eines Farbgradienten mit den eingestellten Farbe
	     Gimp->gimp_blend($layer, 0, 0, 0, 100, 0, 0, 0, 0, 0, 0, 0, 
                              639, 379);

	     # ... und Anwenden des Canvas-Filters zur Erzeugung des Leinwand
             # -Effekts
	     Gimp->plug_in_apply_canvas($image, $layer, 0, 10);
	     $image->add_layer($layer, 0);

	     return $image;
	 };

exit main;