Ein altes Script: Bilder nachbelichten

[klaus_harrer]

Hallo

Ich hab noch ein altes Script das ich aus ein Tutorial zusammengebastelt habe.

Man kann mit den Script Bilder nachbelichten(leider nur das ganze Bild, vieleicht schreibe ich es noch um, das man selectiv nachbelichten kann). Wenn Interesse besteht ,schreibe ich es in Script-Fu um.

#!/usr/bin/perl -w

use Gimp ":auto";
use Gimp::Fu;

sub image_after_expose{
 my ($img, $layer) = @_;

$img->gimp_image_undo_group_start; 
# copy the background
my $cp_layer = gimp_layer_copy($layer,1);
$img->add_layer($cp_layer, -1);

#desaturate the cp_layer and Soft-draw
Gimp->gimp_desaturate($cp_layer);
Gimp->plug_in_gauss_rle2($img, $cp_layer, 4, 4);

#create a mask
$layermask = Gimp->gimp_layer_create_mask($cp_layer, ADD_WHITE_MASK);
Gimp->gimp_layer_add_mask($cp_layer, $layermask);

#copy the cp_layer and paste in mask
$cp_layer->edit_copy();
$floatingSelection = $layermask->edit_paste(0);
$floatingSelection->anchor();

#cp_layer invert and set mode
Gimp->gimp_invert($layermask);
Gimp->gimp_layer_set_mode($cp_layer,4);
#load mask into cp_layer
$cp_layer->remove_mask(0);
#reduce layer to one
$img->merge_visible_layers(2);

$img->gimp_image_undo_group_end;
return();
}
register
    "afterexpose",                              #fill in name
    "this script after-expose your Photo",       #a small description
    "Help",                                      #a help text
    "Klaus Harrer",                              #my name
    "Klaus Harrer (c)",                          #copyright
    "2004-04-06",                                #date
    "<Image>/Filters/Enhance/after-expose...",   #menu path
    "*",                                         #Images types
    [],
    \&image_after_expose;
    Gimp::set_trace(TRACE_ALL);
    exit main();

MfG
Klaus