(define (script-fu-copy-blur img drawable blur-radius)

  ; Erzeugen einer neuen Ebene
  (set! new-layer (car (gimp-layer-copy drawable 0)))

  ; Ebene mit einem Namen versehen
  (gimp-layer-set-name new-layer "Gauss-blurred")

  ; Die neue Ebene zum Bild hinzufügen
  (gimp-image-add-layer img new-layer 0)

  ; Das Blur-Plug-In (Gauss) aufrufen, um die Unsärfe zu erzeugen
  (plug-in-gauss-rle 1 img new-layer blur-radius 1 1)

  ; Invertieren der Bildebene
  (gimp-invert new-layer)

  ; Ergebnis anzeigen
  (gimp-displays-flush)   
)

(script-fu-register "script-fu-copy-blur"
     "<Image>/Script-Fu/Test/copy-blur..."
     "Copy and blur a layer"
     "Dov Grobgeld"
     "Dov Grobgeld"
     "1998"
     "RGB*, GRAY*"
     SF-IMAGE "Image" 0
     SF-DRAWABLE "Layer to blur" 0
     SF-VALUE "Blur strength" "5"
)