SonyUserforum

SonyUserforum (https://www.sonyuserforum.de/forum/index.php)
-   Nach der Aufnahme (https://www.sonyuserforum.de/forum/forumdisplay.php?f=12)
-   -   EBV mit GIMP - 3 Scripte (https://www.sonyuserforum.de/forum/showthread.php?t=29211)

FlorianLausB 24.06.2006 23:48
EBV mit GIMP - 3 Scripte
 
Hallo Forum,

ich hab hier 3 Scripte für GIMP (laufen mit 2.2 und 2.3) welche euch vielleicht was nutzen könnten:

3DRI: dynamic range increase aus 3 Bildern einer Belichtungsreihe
5DRI: dynamic range increase aus 5 Bildern einer Belichtungsreihe
enlight: gezielte Aufhellung dunkler Bildbereiche

3DRI.scm:
Code:
(define (script-fu-3dri darkimg mediumimg lightimg adjust)
 
  ; load files
  (set! dri (car (gimp-file-load 1 darkimg darkimg)))
  (set! medium (car (gimp-file-load 1 mediumimg mediumimg)))
  (set! light (car (gimp-file-load 1 lightimg lightimg)))
 
  (gimp-image-undo-disable dri)
 
  (gimp-drawable-set-name (car (gimp-image-get-active-layer dri)) "dark")
 
  (gimp-image-add-layer dri (car (gimp-layer-new-from-drawable (car (gimp-image-get-active-layer medium)) dri)) 0)
 
  (gimp-drawable-set-name (car (gimp-image-get-active-layer dri)) "medium")
 
  (gimp-image-delete medium)
 
  (set! drawable (car (gimp-image-get-active-layer dri)))
  (gimp-layer-add-alpha drawable)
  (gimp-layer-add-mask drawable (car (gimp-layer-create-mask drawable 5)))
  (gimp-invert (car (gimp-layer-get-mask drawable)))
  (gimp-levels (car (gimp-layer-get-mask drawable)) 0 0 127 0.4 0 255)
  (if (> adjust 0)
  (begin
    (plug-in-gauss-iir2 1 dri (car (gimp-layer-get-mask drawable)) adjust adjust)
  )
  )

  (gimp-image-add-layer dri (car (gimp-layer-new-from-drawable (car (gimp-image-get-active-layer light)) dri)) 0)
 
  (gimp-drawable-set-name (car (gimp-image-get-active-layer dri)) "light")
 
  (gimp-image-delete light)
 
  (set! drawable (car (gimp-image-get-active-layer dri)))
  (gimp-layer-add-alpha drawable)
  (gimp-layer-add-mask drawable (car (gimp-layer-create-mask drawable 5)))
  (gimp-invert (car (gimp-layer-get-mask drawable)))
  (gimp-levels (car (gimp-layer-get-mask drawable)) 0 0 127 0.4 0 255)
  (if (> adjust 0)
  (begin
    (plug-in-gauss-iir2 1 dri (car (gimp-layer-get-mask drawable)) adjust adjust)
  )
  )
 
  (gimp-image-undo-enable dri)

  ; show image
  (gimp-display-new dri)
)

(script-fu-register "script-fu-3dri"

              "<Toolbox>/Xtns/Script-Fu/3DRI"

              "3DRI"

              "Florian Lindner"

              "Florian Lindner"

              "2006"

              "RGB*"

        SF-FILENAME                _"dark" ""
        SF-FILENAME                _"medium" ""
        SF-FILENAME                _"light" ""
        SF-ADJUSTMENT        _"adjust"  '(50 0 1000 5 10 0 1)
)
5DRI.scm:
Code:
(define (script-fu-5dri file1 file2 file3 file4 file5 adjust)
 
  ; load files
  (set! dri (car (gimp-file-load 1 file1 file1)))
  (set! img2 (car (gimp-file-load 1 file2 file2)))
  (set! img3 (car (gimp-file-load 1 file3 file3)))
  (set! img4 (car (gimp-file-load 1 file4 file4)))
  (set! img5 (car (gimp-file-load 1 file5 file5)))
 
  (gimp-image-undo-disable dri)
 
  (gimp-drawable-set-name (car (gimp-image-get-active-layer dri)) "dark")
 
  (gimp-image-add-layer dri (car (gimp-layer-new-from-drawable (car (gimp-image-get-active-layer img2)) dri)) 0)

  (gimp-drawable-set-name (car (gimp-image-get-active-layer dri)) "medium-dark")

  (gimp-image-delete img2)
 
  (set! drawable (car (gimp-image-get-active-layer dri)))
  (gimp-layer-add-alpha drawable)
  (gimp-layer-add-mask drawable (car (gimp-layer-create-mask drawable 5)))
  (gimp-invert (car (gimp-layer-get-mask drawable)))
  (gimp-levels (car (gimp-layer-get-mask drawable)) 0 0 127 0.4 0 255)
  (if (> adjust 0)
  (begin
    (plug-in-gauss-iir2 1 dri (car (gimp-layer-get-mask drawable)) adjust adjust)
  )
  )
 
  (gimp-image-add-layer dri (car (gimp-layer-new-from-drawable (car (gimp-image-get-active-layer img3)) dri)) 0)
 
  (gimp-drawable-set-name (car (gimp-image-get-active-layer dri)) "medium")

  (gimp-image-delete img3)
 
  (set! drawable (car (gimp-image-get-active-layer dri)))
  (gimp-layer-add-alpha drawable)
  (gimp-layer-add-mask drawable (car (gimp-layer-create-mask drawable 5)))
  (gimp-invert (car (gimp-layer-get-mask drawable)))
  (gimp-levels (car (gimp-layer-get-mask drawable)) 0 0 127 0.4 0 255)
  (if (> adjust 0)
  (begin
    (plug-in-gauss-iir2 1 dri (car (gimp-layer-get-mask drawable)) adjust adjust)
  )
  )
 
  (gimp-image-add-layer dri (car (gimp-layer-new-from-drawable (car (gimp-image-get-active-layer img4)) dri)) 0)
 
  (gimp-drawable-set-name (car (gimp-image-get-active-layer dri)) "medium-light")
 
  (gimp-image-delete img4)
 
  (set! drawable (car (gimp-image-get-active-layer dri)))
  (gimp-layer-add-alpha drawable)
  (gimp-layer-add-mask drawable (car (gimp-layer-create-mask drawable 5)))
  (gimp-invert (car (gimp-layer-get-mask drawable)))
  (gimp-levels (car (gimp-layer-get-mask drawable)) 0 0 127 0.4 0 255)
  (if (> adjust 0)
  (begin
    (plug-in-gauss-iir2 1 dri (car (gimp-layer-get-mask drawable)) adjust adjust)
  )
  )
 
  (gimp-image-add-layer dri (car (gimp-layer-new-from-drawable (car (gimp-image-get-active-layer img5)) dri)) 0)
 
  (gimp-drawable-set-name (car (gimp-image-get-active-layer dri)) "light")
 
  (gimp-image-delete img5)
 
  (set! drawable (car (gimp-image-get-active-layer dri)))
  (gimp-layer-add-alpha drawable)
  (gimp-layer-add-mask drawable (car (gimp-layer-create-mask drawable 5)))
  (gimp-invert (car (gimp-layer-get-mask drawable)))
  (gimp-levels (car (gimp-layer-get-mask drawable)) 0 0 127 0.4 0 255)
  (if (> adjust 0)
  (begin
    (plug-in-gauss-iir2 1 dri (car (gimp-layer-get-mask drawable)) adjust adjust)
  )
  )

  (gimp-image-undo-enable dri)
 
  ; show image
  (gimp-display-new dri)
)

(script-fu-register "script-fu-5dri"

              "<Toolbox>/Xtns/Script-Fu/5DRI"

              "5DRI"

              "Florian Lindner"

              "Florian Lindner"

              "2006"

              "RGB*"

        SF-FILENAME                _"dark" ""
        SF-FILENAME                _"dark-medium" ""
        SF-FILENAME                _"medium" ""
        SF-FILENAME                _"light-medium" ""
        SF-FILENAME                _"light" ""
        SF-ADJUSTMENT        _"adjust"  '(50 0 1000 5 10 0 1)
)
enlight.scm:
Code:
(define (script-fu-enlightenment img

                      drawable

                      gauss-radius)

  ; Create new layers

  (set! enlightenment-layer (car (gimp-layer-copy drawable 0)))

  (set! farbton-layer (car (gimp-layer-copy drawable 0)))

  (set! saettigung-layer (car (gimp-layer-copy drawable 0)))



  ; Give them names

  (gimp-drawable-set-name enlightenment-layer "Enlightenment")

  (gimp-drawable-set-name farbton-layer "Color")

  (gimp-drawable-set-name saettigung-layer "Hue")



  ; Add the new layers to the image

  (gimp-image-add-layer img enlightenment-layer 0)

  (gimp-image-add-layer img farbton-layer 0)

  (gimp-image-add-layer img saettigung-layer 0)

 

  ; set layer mode

  (gimp-layer-set-mode enlightenment-layer 5)

  (gimp-layer-set-mode farbton-layer 13)

  (gimp-layer-set-mode saettigung-layer 12)



  ; desaturate "entsaettigen" layer

  (gimp-desaturate enlightenment-layer)

 

  ; invert layer

  (gimp-invert enlightenment-layer)

 

  ; create layer mask

  (gimp-layer-create-mask enlightenment-layer 5)



  ; Call a plugin to blur the image

  (plug-in-gauss-rle 1 img enlightenment-layer gauss-radius 1 1)

 

  ; set opacity

  (gimp-layer-set-opacity enlightenment-layer 80)



  ; Flush the display

  (gimp-displays-flush)

)



(script-fu-register "script-fu-enlightenment"

              "<Image>/Script-Fu/Enlight"

              "enlightenment"

              "Florian Lindner"

              "Florian Lindner"

              "2006"

              "RGB*, GRAY*"

              SF-IMAGE "Image" 0

              SF-DRAWABLE "Layer to blur" 0

              SF-VALUE "Gauss strength" "15")
Sorry, wenig bis keine Kommentare ...

Immer her mit Kritik und Verbesserungen, ich bin blutiger LISP und Script-fu Anfänger.

springm 25.06.2006 12:29
:cool: Ich dachte schon ich bin der einzige Gimpel unter all den Photoshoppern hier.

Ich werd mir die Skripte mal zu Gemüte führen - meine letzten DRI-Versuche sind allerdings schon lange her. Was ich ab und zu noch mache sind DRI's aus einem RAW-File. Für RAW nehm' ich ufraw, das bietet meines Erachtens eine gute Oberfläche für dcraw. Bin ja gespannt, wie Sony das MRW-Format unterstützen wird.

Gruß - Markus

Hansevogel 25.06.2006 15:48
@Florian

Habe mir soeben enlight zu meinem Gimp gepackt und ein wenig getestet.

Da kann ich nur sagen: :top: :top: :top:

Sehr nützlich!

Gruß: Hansevogel

FlorianLausB 25.06.2006 15:55
Zitat:
Zitat von Hansevogel
Da kann ich nur sagen: :top: :top: :top:
Danke für die Blumen, das Know-How hinter dem Script kommt übrigens von dieser Seite. Da gibt's noch mehr brauchbare Gimp-Tipps :)


Alle Zeitangaben in WEZ +2. Es ist jetzt 21:15 Uhr.