Skript-Fu highpass

Aus GIMPForum

(define (hochpass-filter sfBild sfDrawable)
   (let*
       (;----------------------------Variablendeklaration
           (varBWLayer
               (car
                   (gimp-layer-new-from-drawable
                    sfDrawable
                    sfBild
                   )
               )
           )
           (varGaussscherLayer
               (car
                   (gimp-layer-new-from-drawable
                    sfDrawable
                    sfBild
                   )
               )
           )
           (varCoords (make-vector 8 'byte))
       );----------------------------Variablendeklaration fertig
       (vector-set! varCoords 0 0)
       (vector-set! varCoords 1 0)
       (vector-set! varCoords 2 113)
       (vector-set! varCoords 3 47)
       (vector-set! varCoords 4 146)
       (vector-set! varCoords 5 221)
       (vector-set! varCoords 6 255)
       (vector-set! varCoords 7 255)
       (gimp-image-undo-group-start sfBild)
       (gimp-image-add-layer
        sfBild
        varBWLayer
        -1
       )
       (gimp-image-add-layer
        sfBild
        varGaussscherLayer
        -1
       )
       (gimp-image-set-active-layer
        sfBild
        varGaussscherLayer
       )
       (plug-in-gauss
        RUN-NONINTERACTIVE
        sfBild
        varGaussscherLayer
        18
        18
        0  ;---0 steht f�r IIR
       )
       (gimp-layer-set-opacity
        varGaussscherLayer
        50
       )
       (gimp-invert varGaussscherLayer)
       (set! varBWLayer
           (car
               (gimp-image-merge-down
                sfBild
                varGaussscherLayer
                CLIP-TO-BOTTOM-LAYER
               )
           )
       )
       (gimp-desaturate varBWLayer)
       (gimp-curves-spline
        varBWLayer
        HISTOGRAM-VALUE
        8
        varCoords
       )
       (gimp-displays-flush)   
       (gimp-image-undo-group-end sfBild)     
   )
)


(script-fu-register
   "hochpass-filter"
   "Hochpassfilter"
   "Dupliziert die aktive Ebene und wendet auf das Duplikat einen Hochpassfilter an."
   "Mohi"
   "Du darfst dieses Skript verteilen und veraendern solange der Name des Autors nicht entfernt wird."
   "17. April 2011"
   "RGBA_IMAGE, GRAYA_IMAGE, INDEXEDA_IMAGE"
   SF-IMAGE    ""  0
   SF-DRAWABLE ""  0
)

(script-fu-menu-register
   "hochpass-filter"
   "<Image>/File"
)