SW-Labor

[flashnfantasy]

Weil der Script riesig ist und die Oberfläche eine Unmenge an Einstellmöglichkeiten hat, will ich zu diesem Script auch eine Anleitung schreiben. Deswegen der Thread hier.

Zur Motivation - dieser Script ist einer der Hauptgründe, warum Adobe Photoshop komplett aus meinem Interessenkreis verschwunden ist.

Mit ein Grund für die Größe des Scriptes ist das Bracketing - das automatische Durchprobieren von verschiedenen Einstellmöglichkeiten.

Hauptaufgabe des Scriptes ist es, die verschiedenen SW-Filter nachzubilden.
Hier ein Beispiel:
http://gimpforum.de/album_pic.php?pic_id=243
Das linke Bild ist ganz normal SW, das rechte Bild ist nur der Rotkanal.

---


(script-fu-register "script-fu-photo-sw"
_"<Image>/Script-Fu/SW-Photo/SW"
"BW"
"Mathias Weitz"
"Mathias Weitz"
"18/07/03"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"gradation" '(1 0.2 2.5 0.1 0.1 1 0)
SF-OPTION _"filter" '(_"None"
_"gb Filter"
_"rg Filter"
_"r Filter"
_"g Filter"
_"b Filter"
_"rb Filter"
_"r Equalize"
_"g Equalize"
_"b Equalize"
_"yellow-low-pass"
_"magenta-low-pass"
_"cyan-low-pass")
SF-ADJUSTMENT _"filter-value" '(100 0 100 10 10 1 0)
SF-ADJUSTMENT _"filter-contrast" '(0 0 255 32 32 1 0)
SF-OPTION _"soft-filter" '(_"Same as background"
_"gb Filter"
_"rg Filter"
_"r Filter"
_"g Filter"
_"b Filter"
_"rb Filter"
_"r Equalize"
_"g Equalize"
_"b Equalize"
_"yellow-low-pass"
_"magenta-low-pass"
_"cyan-low-pass")
SF-ADJUSTMENT _"soft-radius" '(0 0 100 1 1 1 0)
SF-ADJUSTMENT _"soft-filter-contrast" '(0 0 255 32 32 1 0)
SF-OPTION _"modus" ' (_"Normal"
_"Overlay"
_"Screen"
_"Addition"
_"Darken"
_"Divide"
_"Normal 25%"
_"Normal 75%"
_"Multiply"
_"Hard Light"
_"Soft Light"
_"Grain Extract"
_"Grain Merge")
SF-TOGGLE _"sharpen both Layers" TRUE
SF-ADJUSTMENT _"sharpen-radius" '(2 1 20 1 1 1 0)
SF-ADJUSTMENT _"sharpen-amount" '(0 0 5 0.1 0.1 1 0)
SF-OPTION _"color mode" '(_"None"
_"Overlay"
_"Color"
_"Screen"
_"Addition"
_"Hard Light"
_"Soft Light")
SF-OPTION _"color enhance" '(_"None"
_"Saturation"
_"Stretch-HSV"
_"Color-Enhance"
_"Normalize")
SF-ADJUSTMENT _"soft-color" '(0 0 100 1 1 1 0)
SF-ADJUSTMENT _"noise" '(0 0 0.2 0.01 0.01 2 0)
SF-OPTION _"description" '(_"None"
_"small upper left"
_"small lower right"
_"big upper left"
_"big lower right"
_"Descr at layer")
SF-OPTION _"Bracketing" '(_"None"
_"Grad"
_"Soft Filter 2"
_"unsharpen"
_"both Filters 1"
_"both Filters 2"
_"Filter 1, Filter 2 steady"
_"Filter 2, Filter 1 steady")
)

(define (script-fu-photo-bw-filter image layer filter-nr filter-val filter-target)
(plug-in-c-astretch 0 image layer)
(set! erg "none")
(set! bounds (* (/ (- 100 filter-val) 120) (min filter-target (- 255 filter-target))))
(set! upper (+ filter-target bounds))
(set! lower (- filter-target bounds))
(set! lowpass (+ 32 filter-val))
(set! lowpasst (- 250 (/ filter-target 2)))
(if (= filter-nr 1)
(begin
(set! erg "gb Filter")
(gimp-levels layer 2 0 255 1.0 lower upper)
(gimp-levels layer 3 0 255 1.0 lower upper)))
(if (= filter-nr 2)
(begin
(set! erg "rg Filter")
(gimp-levels layer 1 0 255 1.0 lower upper)
(gimp-levels layer 2 0 255 1.0 lower upper)))
(if (= filter-nr 3)
(begin
(set! erg "r Filter")
(gimp-levels layer 1 0 255 1.0 lower upper)))
(if (= filter-nr 4)
(begin
(set! erg "g Filter")
(gimp-levels layer 2 0 255 1.0 lower upper)))
(if (= filter-nr 5)
(begin
(set! erg "b Filter")
(gimp-levels layer 3 0 255 1.0 lower upper)))
(if (= filter-nr 6)
(begin
(set! erg "rb Filter")
(gimp-levels layer 1 0 255 1.0 lower upper)
(gimp-levels layer 3 0 255 1.0 lower upper)))
(if (= filter-nr 7)
(begin
(set! erg "r Equalize")
(gimp-levels layer 1 0 255 1.0 lower upper)
(gimp-equalize layer 0)))
(if (= filter-nr 8)
(begin
(set! erg "g Equalize")
(gimp-levels layer 2 0 255 1.0 lower upper)
(gimp-equalize layer 0)))
(if (= filter-nr 9)
(begin
(set! erg "b Equalize")
(gimp-levels layer 3 0 255 1.0 lower upper)
(gimp-equalize layer 0)))
(if (= filter-nr 10)
(begin
; gelb-low-pass
(set! erg "yellow-low-pass")
(gimp-levels layer 1 0 lowpass 1.0 lowpasst 255)
(gimp-levels layer 2 0 lowpass 1.0 lowpasst 255)))
(if (= filter-nr 11)
(begin
; magenta-low-pass
(set! erg "magenta-low-pass")
(gimp-levels layer 1 0 lowpass 1.0 lowpasst 255)
(gimp-levels layer 3 0 lowpass 1.0 lowpasst 255)))
(if (= filter-nr 12)
(begin
; cyan-low-pass
(set! erg "cyan-low-pass")
(gimp-levels layer 2 0 lowpass 1.0 lowpasst 255)
(gimp-levels layer 3 0 lowpass 1.0 lowpasst 255)))
(gimp-desaturate layer)
(plug-in-c-astretch 0 image layer)
(set! erg (string-append erg " "))
(set! erg (string-append erg (number->string filter-val)))

(set! erg (string-append erg " "))
(set! erg (string-append erg (number->string filter-target)))
(set! erg (string-append erg "\n"))
(cons erg ())
)


(define (script-fu-photo-vace image
drawable
Start-Gradation
Farb-Filter
Farb-Filter-Wert
Farb-Filter-target
Farb-Filter-Weich
Soft-Radius
Soft-Filter-target
Combination
Sharp-All
Sharpen-Radius
Sharpen-Menge
ACE
ACE-Iteration
ACE-Details
ACE-Smoothing
Farbmodus
Farbaufbesserung
Soft-Farbe-Radius
Noise
Name
Ext
Save
Descr)
(set! file-name (car (gimp-image-get-filename image)))

; Arbeitskopie herstellen
(set! work (car (gimp-layer-new image (car (gimp-image-width image)) (car (gimp-image-height image)) 1 "BW" 100 3)))
(gimp-image-add-layer image work 0)
(gimp-edit-copy drawable)
(set! fwork (car (gimp-edit-paste work 0)))
(gimp-floating-sel-anchor fwork)
(gimp-layer-set-mode work 0)

(set! descr "")
(set! descrcol "")

(gimp-levels work 0 0 255 Start-Gradation 0 255)

(if (not (= Start-Gradation 1.0))
(begin
(set! descr (string-append descr "Gradation: "))
(set! descr (string-append descr (number->string Start-Gradation)))
(set! descr (string-append descr "\n"))))

(set! layer-bw (car (gimp-image-get-active-layer image)))
(if (< 0 Farbmodus)
(begin
(set! layer-farbe (car (gimp-layer-copy layer-bw 0)))
(gimp-image-add-layer image layer-farbe 0)
;(gimp-layer-set-mode layer-farbe Farbmodus)
(gimp-layer-set-mode layer-farbe OVERLAY)
(if (= Farbmodus 1)
(begin
(set! descrcol "Overlay")
(gimp-layer-set-mode layer-farbe OVERLAY)))
(if (= Farbmodus 2)
(begin
(set! descrcol "Color")
(gimp-layer-set-mode layer-farbe COLOR)))
(if (= Farbmodus 3)
(begin
(set! descrcol "Screen")
(gimp-layer-set-mode layer-farbe SCREEN)))
(if (= Farbmodus 4)
(begin
(set! descrcol "Addition")
(gimp-layer-set-mode layer-farbe ADDITION)))
(if (= Farbmodus 5) ; hartes Licht
(begin
(set! descrcol "Hard Light")
(gimp-layer-set-mode layer-farbe 18)))
(if (= Farbmodus 6) ; weiches Licht
(begin
(set! descrcol "Soft Light")
(gimp-layer-set-mode layer-farbe 19)))
(if (< 0 Soft-Farbe-Radius)
(plug-in-gauss-iir2 1 image layer-farbe Soft-Farbe-Radius Soft-Farbe-Radius))
))
(if (= Farb-Filter-Weich 0)
; Beide Ebenen werden gleich behandelt
(begin
(set! fil (car (script-fu-photo-bw-filter image layer-bw Farb-Filter Farb-Filter-Wert Farb-Filter-target)))
(set! descr (string-append descr "Filter :"))
(set! descr (string-append descr fil))
(set! layer-bw-weich (car (gimp-layer-copy layer-bw 0)))
)
; Beide Ebenen werden unterschiedlich behandelt
(begin
(set! layer-bw-weich (car (gimp-layer-copy layer-bw 0)))
(set! fil1 (car (script-fu-photo-bw-filter image layer-bw Farb-Filter Farb-Filter-Wert Farb-Filter-target)))
(set! descr (string-append descr "Filter 1:"))
(set! descr (string-append descr fil1))

(set! fil2 (car (script-fu-photo-bw-filter image layer-bw-weich Farb-Filter-Weich 100 Soft-Filter-target)))
(set! descr (string-append descr "Filter 2:"))
(set! descr (string-append descr fil2))
))
(if (= Combination 0)
(begin
(set! descr (string-append descr "Normal 50%\n"))
(gimp-layer-set-mode layer-bw-weich NORMAL)
(gimp-layer-set-opacity layer-bw-weich 50)))
(if (= Combination 1)
(begin
(set! descr (string-append descr "Overlay\n"))
(gimp-layer-set-mode layer-bw-weich OVERLAY)))
(if (= Combination 2)
(begin
(set! descr (string-append descr "Screen\n"))
(gimp-layer-set-mode layer-bw-weich SCREEN)))
(if (= Combination 3)
(begin
(set! descr (string-append descr "Addition\n"))
(gimp-layer-set-mode layer-bw-weich ADDITION)))
(if (= Combination 4)
(begin
(set! descr (string-append descr "Darken\n"))
(gimp-layer-set-mode layer-bw-weich BLACK-MASK)))
(if (= Combination 5)
(begin
(set! descr (string-append descr "Divide\n"))
(gimp-layer-set-mode layer-bw-weich DIVIDE)))
(if (= Combination 6)
(begin
(set! descr (string-append descr "Normal 25%\n"))
(gimp-layer-set-mode layer-bw-weich NORMAL)
(gimp-layer-set-opacity layer-bw-weich 25)))
(if (= Combination 7)
(begin
(set! descr (string-append descr "Normal 75%\n"))
(gimp-layer-set-mode layer-bw-weich NORMAL)
(gimp-layer-set-opacity layer-bw-weich 75)))
(if (= Combination 8)
(begin
(set! descr (string-append descr "Multiply\n"))
(gimp-layer-set-mode layer-bw-weich MULTIPLY)))
(if (= Combination 9) ; Hartes Licht
(begin
(set! descr (string-append descr "Hard Light\n"))
(gimp-layer-set-mode layer-bw-weich 18)))
(if (= Combination 10) ; Weiches Licht
(begin
(set! descr (string-append descr "Soft Light\n"))
(gimp-layer-set-mode layer-bw-weich 19)))
(if (= Combination 11) ; Grain Extract
(begin
(set! descr (string-append descr "Grain Extract\n"))
(gimp-layer-set-mode layer-bw-weich 20)))
(if (= Combination 12) ; Grain Merge
(begin
(set! descr (string-append descr "Grain Merge\n"))
(gimp-layer-set-mode layer-bw-weich 21)))
(gimp-image-add-layer image layer-bw-weich 0)
(if (< 0 Farbmodus)
(begin
(gimp-layer-add-alpha layer-farbe)
(gimp-image-raise-layer image layer-farbe)))
(if (< 0 Soft-Radius)
(begin
(set! descr (string-append descr "Soft: "))
(set! descr (string-append descr (number->string Soft-Radius)))
(set! descr (string-append descr "\n"))
(plug-in-gauss-iir2 1 image layer-bw-weich Soft-Radius Soft-Radius)))
(if (= Sharp-All FALSE)
(begin
(if (< 0 Sharpen-Menge)
(plug-in-unsharp-mask 1 image layer-bw Sharpen-Radius Sharpen-Menge 0))
(if (= ACE TRUE)
(plug-in-ace 1 image layer-bw 1 0 ACE-Iteration 0 ACE-Details ACE-Smoothing 0))
))

(set! work (car (gimp-image-merge-down image layer-bw-weich 0)))

(if (= Sharp-All TRUE)
(begin
(if (< 0 Sharpen-Menge)
(begin
(set! descr (string-append descr "Sharpen (Radius, Amount): "))
(set! descr (string-append descr (number->string Sharpen-Radius)))
(set! descr (string-append descr " "))
(set! descr (string-append descr (number->string Sharpen-Menge)))
(set! descr (string-append descr "\n"))
(plug-in-unsharp-mask 1 image work Sharpen-Radius Sharpen-Menge 0)))
(if (= ACE TRUE)
(plug-in-ace 1 image work 1 0 ACE-Iteration 0 ACE-Details ACE-Smoothing 0))
))

(if (< 0 Noise)
(begin
(set! descr (string-append descr "Noise: "))
(set! descr (string-append descr (number->string Noise)))
(set! descr (string-append descr "\n"))
(plug-in-noisify 1 image work 0 Noise Noise Noise Noise)))

(if (< 0 Farbmodus)
(set! work (car (gimp-image-merge-down image layer-farbe 0))))
;(set! work (car (gimp-image-flatten image)))

(if (= Farbaufbesserung 1)
(begin
(set! descrcol (string-append descrcol " Saturation+100"))
(gimp-hue-saturation work 0 0 0 100)))
(if (= Farbaufbesserung 2)
(begin
(set! descrcol (string-append descrcol " Stretch-HSV"))
(plug-in-autostretch-hsv 1 image work)))
(if (= Farbaufbesserung 3)
(begin
(set! descrcol (string-append descrcol " Color-Enhance"))
(plug-in-color-enhance 1 image work)))
(if (= Farbaufbesserung 4)
(begin
(set! descrcol (string-append descrcol " Normalize"))
(plug-in-normalize 1 image work)))
(if (< 0 Farbmodus)
(begin
(set! descr (string-append descr "Color-Layer: "))
(set! descr (string-append descr descrcol))
(set! descr (string-append descr "\n"))
))
(if (< 0 Descr)
(begin
(set! dimendiv 30)
(if (or (= 1 Descr) (= 2 Descr)) (set! dimendiv 50))
(set! fontdim (gimp-text-get-extents-fontname descr (/ (car (gimp-image-height image)) dimendiv) 0 "Courier New Bold"))
(set! fontdimx (car fontdim))
(set! fontdimy (cadr fontdim))
(set! descrx 0)
(set! descry 0)
(if (or (= 2 Descr) (= 4 Descr))
(begin
(set! descrx (- (car (gimp-image-width image)) fontdimx))
(set! descry (- (car (gimp-image-height image)) fontdimy))
(set! descrx (- descrx dimendiv))
))

(if (< Descr 5)
(begin
(gimp-palette-set-foreground '(0 0 0))
(set! tlayer (car (gimp-layer-new image (car (gimp-image-width image)) (car (gimp-image-height image)) 1 "tlayer" 100 0)))
(gimp-image-add-layer image tlayer 0)
(gimp-edit-fill tlayer 0)
(gimp-palette-set-foreground '(255 255 255))
(set! ddimendiv (/ (car (gimp-image-height image)) dimendiv))
(set! textlayer (car (gimp-text-fontname image -1 descrx descry descr 0 TRUE ddimendiv 0 "Courier New Bold")))
(gimp-layer-set-mode textlayer 4)
(set! textlayer2 (car (gimp-layer-copy textlayer 1)))
(gimp-layer-set-mode textlayer2 6)
(gimp-image-add-layer image textlayer2 0)
(set! textlayer (car (gimp-image-merge-down image textlayer 0)))
(gimp-layer-set-mode textlayer 4)
(plug-in-gauss-iir2 1 image textlayer ddimendiv ddimendiv)
(plug-in-c-astretch 0 image textlayer)
(gimp-levels textlayer 0 0 64 1.0 0 255)
(set! work (car (gimp-image-merge-down image textlayer 0)))
(set! work (car (gimp-image-merge-down image textlayer2 0)))
))

(if (= 5 Descr) (gimp-layer-set-name work descr))
))

(gimp-image-set-active-layer image drawable)
(gimp-image-clean-all image)
(if (= Save TRUE)
(begin
(file-tiff-save 1 image work (string-append "c:/" file-name) "" 0)
)
(gimp-displays-flush))
)

(define (script-fu-photo-sw image
drawable
Start-Gradation
Farb-Filter
Farb-Filter-Wert
Farb-Filter-target
Farb-Filter-Weich
Soft-Radius
Soft-Filter-target
Combination
Sharp-All
Sharpen-Radius
Sharpen-Menge
Farbmodus
Farbaufbesserung
Soft-Farbe-Radius
Noise
Descr
Bracketing)
(gimp-image-undo-disable image)
(if (= 0 Bracketing)
(begin
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 0 Descr) (set! Descr 5))
(if (= 1 Bracketing)
(begin
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable (+ Start-Gradation 0.25) Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable (+ Start-Gradation 0.5) Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(if (< 0.25 Start-Gradation)
(script-fu-photo-vace image drawable (- Start-Gradation 0.25) Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr))
(if (< 0.5 Start-Gradation)
(script-fu-photo-vace image drawable (- Start-Gradation 0.5) Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr))
))
(if (= 2 Bracketing)
(begin
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 0 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 2 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 5 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 10 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 25 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 50 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 100 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 250 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 3 Bracketing)
(begin
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 1 1 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 2 1 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 2 2 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 2 5 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 2 3 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 3 2 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 3 3 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 3 5 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 5 2 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 5 5 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 4 Bracketing)
(begin
(script-fu-photo-vace image drawable Start-Gradation 0 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 1 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 2 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 3 Farb-Filter-Wert 0 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 3 Farb-Filter-Wert 127 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 3 Farb-Filter-Wert 255 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 4 Farb-Filter-Wert 0 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 4 Farb-Filter-Wert 127 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 4 Farb-Filter-Wert 255 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 5 Farb-Filter-Wert 0 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 5 Farb-Filter-Wert 127 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 5 Farb-Filter-Wert 255 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 6 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 5 Bracketing)
(begin
(script-fu-photo-vace image drawable Start-Gradation 7 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 8 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 9 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 10 100 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 11 100 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 12 100 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 10 0 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 11 0 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 12 0 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 6 Bracketing)
(begin
(script-fu-photo-vace image drawable Start-Gradation 0 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 1 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 2 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 3 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 4 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 5 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 6 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 7 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 8 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 9 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 10 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 11 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 7 Bracketing)
(begin
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 1 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 2 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
Farb-Filter-Wert(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-target 3 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 4 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 5 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 6 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 7 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 8 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 9 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 10 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 11 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 12 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(gimp-image-undo-enable image)
)


So nach dem Schock, in einem neuen Beitrag die Grundlagen...

[flashnfantasy]

Allererste Aufgabe des Scriptes ist das Ausblenden verschiedener Farbkanäle für das anschliessende SW.
Man kann R,G,B, RG, RB, GB - Kanäle unterschiedlich wegblenden.

http://gimpforum.de/album_pic.php?pic_id=244

Dafür sind zwei Parameter notwendig. Der Erste ist Filter, der Zweite ist Filter-Value.

Filter: Voreinstellung ist kein Filter. Hier können Filter für die einzelnen Kanäle gewählt werden. Es gibt da noch einige Filter, die ich später an Demos erklären werde.
Die Bezeichnung der Filter kommt vom Farbkanal, der weggeblendet wird. So wird beim GB-Filter nur der Rotkanal als Grundlage für das SW genommen.
Filter-Value: Gibt die Stärke des Filters an. Voreinstellung 100 besagt, daß der Filter in voller Stärke zur Geltung kommt.
0 bedeutet hingegen nicht, daß er überhaupt keinen Effekt hat !!! - der Effekt ist dann nur sehr schwach.

[flashnfantasy]

Über zwei weitere Parameter kann ein weiteres SW weich überlagert werden.

Zuerst zur Motivation. In meinen Anfängen habe ich des öfteren mit Halogenlicht gearbeitet. Halogenlicht gibt tolle SW-Aufnahmen, wenn man nur den Rotkanal des Bildes verwendet. Aber gerade blaue und grüne Augen (seufz) werden dabei zu dunkel. Dafür ist der Grünkanal besser, der hingegen aber zu wenig genaue Farbinformationen liefert, um ein weiches SW zu erzeugen.

Das folgende Bild zeigt das Dilemma:
- das Original (oben links) hat einen deutlichen Farbstich.
- das reine SW (oben rechts) sieht einfach nur furchtbar aus
- das SW aus dem Rotkanal (unten links) ist eigentlich ok, aber es zB sind die Lippen ziemlich blaß.
- letztlich, wird um das SW aus dem Rotkanal, ein halbtransparentes weichgezeichnetes SW aus dem Grünkanal gelegt, dann kommt etwas Kontrast zurück.

http://gimpforum.de/album_pic.php?pic_id=245

Für das weichgezeichnete SW sind drei weitere Parameter notwendig:
soft-filter Standart ist, daß hier der gleiche Filter wie für das Hauptbild genommen wird.
soft-radius Gibt den Wert für den Gauss-Filter an.
modus Gibt die Art der Überlagerung an. Standart ist 50% Transparenz. Hier muß man wirklich mal ein wenig experimentieren. Gerade hier habe ich sehr viel SW-Verbesserungen hingekriegt.

[klaus_harrer]

Hallo

Ein Wahnsinn dieses Script. Man merkt das hier einer Ahnung von Farben und vom Scripten hat(ich beherrsche eher das zweite). Ich weiss garnicht ob das bei der Größe des Scriptes moglich ist. Aber ich hatte gerne die "undo " Funktion noch in diesen Script gesehen.

MfG
Klaus

[Sir Peter]

Das skript is echt der wahnsinn, vor allem die einstellmöglichkeiten. Wie lang hast du gebraucht um das ganze zu schreiben? Ich weiß noch, dass ich für mein erstes skript (das feuerskript :D ) gut eine woche gebraucht habe, und das is nochnich mal n viertel so lang wie deins.

MFG Peter

[flashnfantasy]

Erstmal ein paar Antworten:

Ja, mit dem Undo fällt mir gerade auch auf - ehrlich gesagt, ich habe es nie vermisst. Wahrscheinlich weil das SW ja nicht auf der Original-Layer erzeugt wird, sondern auf einer eigenen Layer. Falls es mir nicht gefällt, dann lösche ich die Layer.

Und über die Dauer kann ich auch nichts bestimmtes sagen. Begonnen habe ich den Script vor etwa 1 1/2 Jahren und seitdem laufend verändert.
zB war mal das Adaptiv Contrast Enchancement von GIMP 1.2.5 drinnen. Seit kurzem gibt es das Bracketing, was mir das Experimentieren etwas erleichtert.
Das Einblenden der Schrift mit den einzelnen Schritten ist neu, ist aber auch sehr wichtig, weil ich sonst die Übersicht über die einzelnen Ergebnisse verliere.

[flashnfantasy]

Jetzt erstmal ein paar simple Sachen.

unscharf maskieren der Filter Unscharf-Maskieren ist mit dreei Parametern vertreten.
sharpen both Layer der Filter wird auf die erste und zweite Ebene angewendet. Im Gegensatz dazu kann er auch nur auf die erste Ebene angewendet werden.
sharpen-radius und sharpen-amount entsprechen den Parametern von dem Filter unsharpen...

noise versieht das fertige Produkt mit einem neutralen Rauschen. was einem groben Korn entspricht.
Der Effekt wird nach dem unscharf-maskieren verwendet und wird dadurch nicht störend verstärkt.

description "comes more handy than it looks like" ermöglicht an verschiedenen Stellen des Bildes oder im Layer-Namen die Einstellung der Parameter einzublenden. Für mich war damit die Zeit des Aufschreibens vorbei. Zusammen mit dem Bracketing begann ich jetzt massenhaft verschiedene Einstellungen einfach durchzuprobieren, um danach mich für eine Einstellung zu entscheiden. Manchmal war das sogar nicht die Naheliegenste.

Gradation ändert nur die Eingangsgradation des Bildes. Eigentlich nichts Berauschendes, aber ich wollte es in dem Bearbeitungsschritt mit drinnen haben.

[flashnfantasy]

Jetzt kommt wieder Farbe ins Spiel

Motivation:
Mit SW-Filtern in der Photographie kann man bestimmte Kontrastsituationen verbessern. Jedoch eignet sich das logischerweise nicht für Farbaufnahmen. Am PC hat man hingegen die Möglichkeit, mit der Grundlage der SW-Aufnahme wieder eine Farbaufnahme herzustellen.

Zeige das mal an dem Beispiel von Oben: Für das SW von dem Maisfeld habe ich den Blau und Grün-Kanal weggefiltert. Dadurch wurde das Himmelsblau dunkler und das Grün der Blätter heller.
Setze ich nun mit der Kombinationsart "Color"wieder die Originalfarben auf das SW, so werden die Kontrastunterschiede erhalten bleiben.
Hier das Ergebniss:

http://gimpforum.de/album_pic.php?pic_id=246

Man sieht, das Blau des Himmels ist etwas stärker, und die Blätter leuchten Hellgrün.

Weil es so schön ist noch ein weiteres Beispiel:

http://gimpforum.de/album_pic.php?pic_id=247

Das Bild ist bei Halogenlicht aufgenommen worden. Der Weißabgleich der Digitalkamera hat den Gelbstich schon etwas vermindert. Trotzdem konnte ich mit etwas SW-Technik das ganze etwas verbessern.
Hier bildet der Grünkanal die Grundlage für das Bild.

Eigentlich reicht zum Colorieren die Einstellung:
color mode...

aber zum Verstärken der Farben ist noch die Optionen
Color-Enhance vorgesehen.

soft-color Bei manchen Aufnahmen habe ich ein Farbrauschen. Da man die Kontraste vom SW verwendet, fällt es nicht so auf, wenn man die Farbebene etwas weichzeichnet, um das Farbrauschen etwas zu unterdrücken.

[flashnfantasy]

Neuer Script
Die Änderung betreffen zwei neue Parameter 'Filter-Kontrast'.
Filter-Kontrast ändert das Verhalten der R,G,B-Filter und LowPass-Filter, aber nicht das der RG, GB, RB-Filter.
Die R,G,B-Filter ändern sich ziemlich drastisch, entsprechen aber meist dann einem anderen, schon vorhandenem Filter.
Zudem ist um die Schrift im Bild ein weißes Halo gelegt, so daß man sie besser erkennen kann.

Undo
Habe mal probeweise ein Undo-Start-End reingenommen.
Bei den normalen Bildern der Digicam ensteht bei einem vollen Schritt auf diese Weise locker mal 250MB an Speicherplatz. Mit dem automatischen Durchprobieren von Werten geht das sehr schnell jenseits der 1GB Grenze.
Mit Freeze-Thaw wollte ich nichts machen, obwohl das wohl funktioniert hätte.
Ich verlasse mich weiterhin darauf, daß ich meine Zwischenschritte sichere, in dem ich Ebenen kopiere und auf der Kopie weiterarbeite.

Unterschiede zum Channelmixer
Wollte das eigentlich an einem Bild dokumentieren.
Der Channelmixer war eigentlich lange Zeit mein SW-Labor (und ich kann es auch weiterhin empfehlen). Der Channelmixer scheint einen nicht so aggressiven Umgang mit den Kanälen zu haben. Beim Rotkanal bleibt das Himmelsblau meist etwas heller als bei meinem Script. Auf der anderen Seite qualifiziert er sich damit für Bilder mit Farbfehler.

[flashnfantasy]

Jetzt bringe ich nur noch Beispiele, jeweils mit Original und Effekt.
Eigentlich stehen alle notwendigen Parameter immer mit im Bild.

Dunstfilter
http://gimpforum.de/album_pic.php?pic_id=249

[Hans]

Super, endlich mal was, wo mein Rechner zeigen kann was in Ihm steckt.

Da werde ich wohl einige Zeit dran zu knabbern haben, bis ich alles verstanden habe. Aber das sollte niemanden vor weiteren Untaten abhalten ;)

Hans

[klaus_harrer]

Hallo flashnfantasy

Wie gesagt das Script ist Wahnsinn.
Mein Problem ist, das mir das Hintergrundwissen um das Script effektiv einzusetzen.
Woher hast du dein Wissen, wie die einzelnen Farbkanäle gesteuert werden müssen, um gewisse Effekte zu erzielen. Wäre schön wenn du mir da eine gute HP oder ein gutes Buch empfehlen kannst.

MfG
Klaus

[flashnfantasy]

Also, wie man SW-Filter benutzt, da habe ich beim Photographieren auch graue Haare gekriegt.
Die hohe Kunst des SW-Labors ist mit dem Script leider nicht einfacher geworden.
Warum die Profis mal den Grün, mal den Rotkanal als Grundlage nehmen, das war für mich immer ein Mysterium.
Letztlich habe ich mit diesem Script auch nur rumexperimentiert und Erfahrung gesammelt.

So als grob lässt sich sagen:
Mit der Grundeinstellung ist die Option 'Filter' (zweiter Wert) schon ausreichend für's experimentieren.
Wer schnell verschiedene Filter an einem Motiv ausprobieren will, der sollte mal unten beim Bracketing 'Both Filters 1' ausprobieren. Gut ist dabei, die Description anzuschalten, damit man sieht bei welchem Bild welcher Filter zum Einsatz kam.

Natur und blauer Himmel sind zB. beim Rotkanal (GB-Filter) ganz interessant. Den GB-Filter bezeichne ich auch gerne als Dunst-Filter, weil er athmosphärischen Dunst ganz gut wegkriegt.

Der Mt. McKinley bei blauen Himmel und idealem Licht. Auffallend, wie stark das Himmelblau abdunkelt im Rotkanal.
http://gimpforum.de/album_pic.php?pic_id=256

[flashnfantasy]

Und wieder mal ein Gesicht bei Halogen-Beleuchtung.
Grüne und blaue Augen kommen etwas heller.
Der Überlagerungsmode 'Overlay' verstärkt den Effekt noch, aber erst, nachdem ich die Eingangsgradation auf 2 gesetzt habe.
Dabei habe ich das zweite SW nicht weichgezeichnet, sondern so verwendet, wie es war.

http://gimpforum.de/album_pic.php?pic_id=257

Die Grundeinstellung habe ich erst gefunden, nachdem ich mehrere Filter durchprobiert habe. Dabei haben viele Einstellungen ähnliche Ergebnisse gebracht.

http://gimpforum.de/album_pic.php?pic_id=258

Beim anschliessenden Einfärben habe ich ebenfalls 'Overlay' genommen, weil damit die Farben dezenter kommen.
Zum Vergleich habe ich mal das SW ohne Filter und mit Filter als Grundlage genommen worden.

http://gimpforum.de/album_pic.php?pic_id=259

[flashnfantasy]

Die folgenden Bilder sind nun ein Beispiel für Equalize.
Die Equalize-Filter bringen nicht oft brauchbare Ergebnisse, und meist verwende ich sie in Kombination mit einem anderen Filter.
Die Ergebnisse erinnern durch ihre hohen Kontraste und die starke Körnung oft an historische Aufnahmen.

Zuerst die Vorlage - Polychrome Mountains in Alaska an einem verregneten Tag. Weil Rot und Gelb-Töne vom Menschen subjektiv heller wahrgenommen werden als Grün-Töne, wirkt das ungefilterte SW etwas kontrastmindernd.
http://gimpforum.de/album_pic.php?pic_id=260

Der GB-Filter verbessert die Kontraste. B-Equalize wirkt bedingt wie ein Scharfzeichner. Vorallem die dunklen Grünbereiche bekommen wieder Struktur.
http://gimpforum.de/album_pic.php?pic_id=261

Setzt man Farbe über die SW-Ergebnisse, so sieht man, daß der GB-Filter die Farbakzente der Berge etwas erhöht. Auch im vorderen Bereich werden die unterschiedlichen Grüntöne deutlicher hervorgehoben.
Ganz anders der B-Equalize-Filter, Strukturen kommen besser (Berge) oder verschwinden (Fluß). Insgesamt wirkt das Bild wie eine alte Photographie oder Zeichnung.
http://gimpforum.de/album_pic.php?pic_id=262

[DanielP]

Echt gute Arbeit. Ich spiel jetzt schon ein paar Stunden damit rum. Zwei Anregungen vielleicht:
- "keep layers" damit man noch mit Deckkraft und Modus spielen kann
- "Schwellwert" für Unscharf maskieren.

D.

[klaus_harrer]

Hallo flashnfantasy

Kann ich mit deinen Tool noch ein wenig mehr aus diesen Bilder rausholenhttp://home.arcor.de/klaus_harrer/Historie.html. Das Problem es sind vom Ursprung her gescannte Schwarzweiss Bilder.

MfG
Klaus

[flashnfantasy]

keep layers
entspricht nicht meinem Wunsch nach einem monolithischen Script. Wenn du mit den Layer rumexperimentieren willst, dann würde ich den Script zweimal auf das Original mit unterschiedlichen Filtern anwenden.
Letztlich entsprechen die beiden Layern zwei (eventuell unterschiedlich gefilterten) SW.
Die zweite Layer kannst du dabei noch weichzeichnen. Ansonsten habe ich ja wirklich eine Unmenge an Kombinationsmöglichkeiten schon reingepackt.

Schwellwert
Bei den Tests war das Ergebniss irgendwie grauenhaft. Was macht dieser Wert eigentlich ?

weitere Parameter
Eigentlich will ich auch keine weiteren Parameter einbringen.
Bei mir läuft eine Version, die selektives Gauss'sches Weichzeichnen am Anfang der Bearbeitung durchführt, da bin ich am überlegen, ob das Sinn macht.

SW->SW
Das schafft der Script nicht. Seine Stärke liegt ja darin, daß er mit den unterschiedlichen Werten der Farbkanälen arbeitet.
Wenn du SW etwas aufbessern willst, dann versuche mal den selektiven gauss'schen Weichzeichner mit dem Wert 5 und dem Schwellwert 50.
Habe noch einen Script zur Bildverbesserung eingestellt (Copypaper-Kunst). Dieser Script ist speziell für kontrastarme Bilder geschrieben.

[DanielP]

Na ja, die einzelnen Layer wären ganz praktisch, um nicht nochmal alles durchlaufen lassen zu müssen, wenn man nur die Deckkraft ein wenig ändern will oder sowas. Und auch nur als Option! Das Script ist auch so sehr gut.
Der Schwellwert gibt an, ab welchem Kontrast verstärkt wird (Glaub ich). So das du z.B. Bildrauschen nicht noch verstärkst. Hab früher in Photoshop z.B immer mit Schwellwert <10 und Stärke 60-70 gearbeitet, und dann lieber mehrmals angewendet...

D.

[flashnfantasy]

http://gimpforum.de/album_pic.php?pic_id=327

[Eliah]

Hallo Zusammen!

Ich muss schon sagen: Echt in Geniales Tool! Danke! Die Bilder haben mich schwer beeindruckt.

Leider hab ich Probleme damit das Skript richtig zum laufen zu bekommen.
Ich bin wie folgt vorgegangen:

- Ich hab zuerst den Code in ein Neues Textdokument kopiert und abgespeichert.
- Danach hab ich den Namen der Datei auf: sw_foto.scm abgeändert und die Datei im Verzeichnis:

C:\Programme\GIMP-2.0\share\gimp\2.0\scripts

gespeichert.

Mein Problem:

Bei einigen Bildern klappt die Bearbeitung, bei anderen kommt folgende Fehlermeldung:

Skript-Fu Fehler beim Ausführen von
(script-fu-photo-sw 2 8 1 0 100 0 0 0 0 0 TRUE 2 0 0 0 0 0 0 0)
ERROR: Procedural database execution failed:
(gimp_image_add_layer 2 9 0)

Weis jemand warum? Hab ich evtl. beim erstellen der Datei einen Fehler gemacht?

[flashnfantasy]

Nein, die Datei ist bei dir vollständig und richtig.

Bei dem Fehler kann ich wirklich nur vermuten...

(gimp_image_add_layer 2 9 0)

Der Fehler kann sein, daß die Layer mit der Nummer 9 dem Image 2 hinzugefügt werden soll, obwohl diese nicht erstellt wurde.
Das Image 2 hingegen existiert, es ist die erste Zahl beim Aufruf des Scriptes.

Vielleicht ???
Ist dein Image nicht im RGB-Mode, denn die erste Ebene die zugefügt werden soll ist im RGBA-Mode, ich war zu faul, den Script auch für indizierte Images zu schreiben.

Was für eine Dateiendung hat deine Graphik ?
Wenn es GIF ist, dann klappt es auf keinen Fall ohne Umwandlung nach RGB...

[Eliah]

Du hatest recht, es handelte sich um eine .gif Grafik. Danke für die Hilfe!

[armdi]

Hallo flashnfantasy,

danke für dein geniales Script!
Da kann man schön mit s/w-rumspielen wie in der "guten, alten Zeit" -
nur ohne Chemie-Geruch in der Nase ;-)

Ich hab aber dein Problem:

Ruf ich das Script nur mit 1 Filter auf, klappt alles.
Wähle ich noch einen "Soft Filter" (z.B. filer: b, soft-filter: g)
bringt gimp (2.2.6) eine Fehlermeldung

-----------------------------
GIMP Meldung

Plug-In "c_astretch"
(/usr/lib/gimp/2.0/plug-ins/c_astretch)

requested invalid tile (killing)

SW Meldung

Skript-Fu Fehler beim Ausführen von
(script-fu-photo-sw 1 2 1 5 100 0 4 0 0 0 TRUE 2 0 0 0 0 0 1 0)
ERROR: Procedural database execution failed:
(plug_in_c_astretch 0 1 9)

--------------------------

und auf der Konsole:
-----------------------
(gimp:4539): Gimp-Core-CRITICAL **: gimp_drawable_mask_bounds: assertion `gimp_item_is_attached (item)' failed

(gimp:4539): Gimp-Core-CRITICAL **: gimp_drawable_mask_bounds: assertion `gimp_item_is_attached (item)' failed

(gimp:4539): Gimp-Core-CRITICAL **: gimp_drawable_shadow: assertion `gimp_item_is_attached (item)' failed

(gimp:4539): Gimp-Base-CRITICAL **: tile_manager_get: assertion `tm != NULL' failed

----------------------------


Bilder sind ganz normale JPGs aus meiner Digicam, RGB.
Gimp 2.2.6, Linux 2.6.10

Irgendwine Idee?

[flashnfantasy]

Ein 'Invalid Tile' weist sehr wahrscheinlich auf einen Speicherfehler hin.
Es kann folgende Ursachen haben:
- eventuell ist der hier eingestellte Script nicht mehr gültig für 2.2.6.
Das Problem habe ich öfters, daß Befehle in alten Scripts nicht mehr weitergepflegt wurden und in den neuen Versionen Fehler verursachen.
- es kann die JPEG-DLL bzw. EXE den Fehler verursachen. Die aktuell kompilierte Version hat da ein Problem, siehe auch:
http://gimpforum.de/ftopic1583.html
- was mich irritiert ist, daß der Fehler mit einer Maske zusammenzuhängen scheint. Ich habe den Script noch nie umfangreich mit Masken getestet. Benutzt du in der Graphik eine Maske oder erzeugt eventuell die Kamera automatisch eine Maske ?

Es gibt einen aktualisierten Script, nur der ist halt noch umfangreicher als der bisherige Script, und daher habe ich ihn erstmal unter Verschluß...

[armdi]

Hallo flashnfantasy,
erstmal danke für die prompte Antwort!

Ein 'Invalid Tile' weist sehr wahrscheinlich auf einen Speicherfehler hin.
Es kann folgende Ursachen haben:
- eventuell ist der hier eingestellte Script nicht mehr gültig für 2.2.6.
Das Problem habe ich öfters, daß Befehle in alten Scripts nicht mehr weitergepflegt wurden und in den neuen Versionen Fehler verursachen.

Sieht so aus als wäre es das.



- es kann die JPEG-DLL bzw. EXE den Fehler verursachen. Die aktuell kompilierte Version hat da ein Problem, siehe auch:
http://gimpforum.de/ftopic1583.html

Kann ich eigentlich ausschliessen, das sonst keine Probleme mit jpg.


- was mich irritiert ist, daß der Fehler mit einer Maske zusammenzuhängen scheint. Ich habe den Script noch nie umfangreich mit Masken getestet. Benutzt du in der Graphik eine Maske oder erzeugt eventuell die Kamera automatisch eine Maske ?

Ne, keine Maske. Gerade nochmal mit einem frisch gescannten Bild als TIFF probiert - derselbe Fehler.
Liegt also nicht an JPG, und wo da eine Maske herkommen soll ist mir schleierhaft.


Es gibt einen aktualisierten Script, nur der ist halt noch umfangreicher als der bisherige Script, und daher habe ich ihn erstmal unter Verschluß...

Na, da bin ich ja gepannt -
auch ohne "Soft-Filter"-Option hab ich ja bis zur Veröffentlichung des neues Scripts noch reichlich zu spielen :D

[flashnfantasy]

Habe mal den aktuellsten Script für GIMP 2.2.6 eingestellt,

aber ich weiß, daß die Größe und die Anzahl der Parameter erstmal total bitter ist.

Deswegen nach dem Script noch einen Beitrag, mit dem ich das ganze etwas übersichtlicher machen will...



(script-fu-register "script-fu-photo-sw"
_"<Image>/Script-Fu/SW-Photo/SW"
"BW"
"Mathias Weitz"
"Mathias Weitz"
"18/07/03"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"R-Value" '(0 0 100 5 5 2 0)
SF-ADJUSTMENT _"G-Value" '(0 0 100 5 5 2 0)
SF-ADJUSTMENT _"B-Value" '(0 0 100 5 5 2 0)
SF-ADJUSTMENT _"Delta\n0 = IIR-Gauss" '(0 0 100 5 5 2 0)
SF-ADJUSTMENT _"gradation" '(1 0.2 2.5 0.1 0.1 1 0)
SF-OPTION _"filter" '(_"None"
_"gb Filter"
_"rg Filter"
_"r Filter"
_"g Filter"
_"b Filter"
_"rb Filter"
_"r Equalize"
_"g Equalize"
_"b Equalize"
_"yellow-low-pass"
_"magenta-low-pass"
_"cyan-low-pass")
SF-ADJUSTMENT _"filter-value" '(100 0 100 10 10 1 0)
SF-ADJUSTMENT _"filter-contrast" '(0 0 255 32 32 1 0)
SF-OPTION _"soft-filter" '(_"Same as background"
_"gb Filter"
_"rg Filter"
_"r Filter"
_"g Filter"
_"b Filter"
_"rb Filter"
_"r Equalize"
_"g Equalize"
_"b Equalize"
_"yellow-low-pass"
_"magenta-low-pass"
_"cyan-low-pass")
SF-ADJUSTMENT _"soft-radius" '(0 0 100 1 1 1 0)
SF-ADJUSTMENT _"soft-filter-contrast" '(0 0 255 32 32 1 0)
SF-OPTION _"modus" ' (_"Normal"
_"Overlay"
_"Screen"
_"Addition"
_"Darken"
_"Divide"
_"Normal 25%"
_"Normal 75%"
_"Multiply"
_"Hard Light"
_"Soft Light"
_"Grain Extract"
_"Grain Merge")
SF-TOGGLE _"sharpen both Layers" TRUE
SF-ADJUSTMENT _"sharpen-radius" '(2 1 20 1 1 1 0)
SF-ADJUSTMENT _"sharpen-amount" '(0 0 5 0.1 0.1 1 0)
SF-OPTION _"color mode" '(_"None"
_"Overlay"
_"Color"
_"Screen"
_"Addition"
_"Hard Light"
_"Soft Light")
SF-OPTION _"color enhance" '(_"None"
_"Saturation"
_"Stretch-HSV"
_"Color-Enhance"
_"Normalize")
SF-ADJUSTMENT _"soft-color" '(0 0 100 1 1 1 0)
SF-ADJUSTMENT _"noise" '(0 0 0.2 0.01 0.01 2 0)
SF-OPTION _"description" '(_"None"
_"small upper left"
_"small lower right"
_"big upper left"
_"big lower right"
_"Descr at layer")
SF-OPTION _"Bracketing" '(_"None"
_"Grad"
_"Soft Filter 2"
_"unsharpen"
_"both Filters 1"
_"both Filters 2"
_"Filter 1, Filter 2 steady"
_"Filter 2, Filter 1 steady")
)

(define (script-fu-photo-bw-filter image layer filter-nr filter-val filter-target)
(plug-in-c-astretch 0 image layer)
(set! erg "none")
(set! bounds (* (/ (- 100 filter-val) 120) (min filter-target (- 255 filter-target))))
(set! upper (+ filter-target bounds))
(set! lower (- filter-target bounds))
(set! lowpass (+ 32 filter-val))
(set! lowpasst (- 250 (/ filter-target 2)))
(if (= filter-nr 1)
(begin
(set! erg "gb")
(gimp-levels layer 2 0 255 1.0 lower upper)
(gimp-levels layer 3 0 255 1.0 lower upper)))
(if (= filter-nr 2)
(begin
(set! erg "rg")
(gimp-levels layer 1 0 255 1.0 lower upper)
(gimp-levels layer 2 0 255 1.0 lower upper)))
(if (= filter-nr 3)
(begin
(set! erg "r")
(gimp-levels layer 1 0 255 1.0 lower upper)))
(if (= filter-nr 4)
(begin
(set! erg "g")
(gimp-levels layer 2 0 255 1.0 lower upper)))
(if (= filter-nr 5)
(begin
(set! erg "b")
(gimp-levels layer 3 0 255 1.0 lower upper)))
(if (= filter-nr 6)
(begin
(set! erg "rb")
(gimp-levels layer 1 0 255 1.0 lower upper)
(gimp-levels layer 3 0 255 1.0 lower upper)))
(if (= filter-nr 7)
(begin
(set! erg "r Equalize")
(gimp-levels layer 1 0 255 1.0 lower upper)
(gimp-equalize layer 0)))
(if (= filter-nr 8)
(begin
(set! erg "g Equalize")
(gimp-levels layer 2 0 255 1.0 lower upper)
(gimp-equalize layer 0)))
(if (= filter-nr 9)
(begin
(set! erg "b Equalize")
(gimp-levels layer 3 0 255 1.0 lower upper)
(gimp-equalize layer 0)))
(if (= filter-nr 10)
(begin
; gelb-low-pass
(set! erg "yellow-low-pass")
(gimp-levels layer 1 0 lowpass 1.0 lowpasst 255)
(gimp-levels layer 2 0 lowpass 1.0 lowpasst 255)))
(if (= filter-nr 11)
(begin
; magenta-low-pass
(set! erg "magenta-low-pass")
(gimp-levels layer 1 0 lowpass 1.0 lowpasst 255)
(gimp-levels layer 3 0 lowpass 1.0 lowpasst 255)))
(if (= filter-nr 12)
(begin
; cyan-low-pass
(set! erg "cyan-low-pass")
(gimp-levels layer 2 0 lowpass 1.0 lowpasst 255)
(gimp-levels layer 3 0 lowpass 1.0 lowpasst 255)))
(gimp-desaturate layer)
(plug-in-c-astretch 0 image layer)
(set! erg (string-append erg " "))
(set! erg (string-append erg (number->string filter-val)))

(set! erg (string-append erg " "))
(set! erg (string-append erg (number->string filter-target)))
(set! erg (string-append erg "\n"))
(cons erg ())
)


(define (script-fu-photo-vace image
drawable
rValue
gValue
bValue
delta
Start-Gradation
Farb-Filter
Farb-Filter-Wert
Farb-Filter-target
Farb-Filter-Weich
Soft-Radius
Soft-Filter-target
Combination
Sharp-All
Sharpen-Radius
Sharpen-Menge
ACE
ACE-Iteration
ACE-Details
ACE-Smoothing
Farbmodus
Farbaufbesserung
Soft-Farbe-Radius
Noise
Name
Ext
Save
Descr)
(set! file-name (car (gimp-image-get-filename image)))

; Arbeitskopie herstellen
(set! work (car (gimp-layer-new image (car (gimp-image-width image)) (car (gimp-image-height image)) 1 "BW" 100 3)))
(gimp-image-add-layer image work 0)
(gimp-edit-copy drawable)
(set! fwork (car (gimp-edit-paste work 0)))
(gimp-floating-sel-anchor fwork)
(gimp-layer-set-mode work 0)

(set! descr "")
(set! descrcol "")

(if (or (< 0 rValue) (< 0 gValue) (< 0 bValue))
(begin
(set! layerR (car(gimp-layer-copy work 0)))
(gimp-image-add-layer image layerR 0)
(set! layerG (car(gimp-layer-copy work 0)))
(gimp-image-add-layer image layerG 0)
(set! layerB (car(gimp-layer-copy work 0)))
(gimp-image-add-layer image layerB 0)

(if (< 0 delta)
(set! descr (string-append descr "RGB-Selektiv-Gauss: "))
(set! descr (string-append descr "RGB-Gauss: "))
)
(set! descr (string-append descr "("))
(set! descr (string-append descr (number->string rValue)))
(set! descr (string-append descr ","))
(set! descr (string-append descr (number->string gValue)))
(set! descr (string-append descr ","))
(set! descr (string-append descr (number->string bValue)))
(set! descr (string-append descr ")"))
(if (< 0 delta)
(begin
(set! descr (string-append descr " Delta: "))
(set! descr (string-append descr (number->string delta)))
))
(set! descr (string-append descr "\n"))

; RotKanal
(gimp-levels layerR 2 0 255 1.0 255 255)
(gimp-levels layerR 3 0 255 1.0 255 255)
(if (and (< 0 rValue) (= 0 delta)) (plug-in-gauss-iir2 1 image layerR rValue rValue))
(if (and (< 0 rValue) (< 0 delta)) (plug-in-sel-gauss 1 image layerR rValue delta))
; GrünKanal
(gimp-levels layerG 1 0 255 1.0 255 255)
(gimp-levels layerG 3 0 255 1.0 255 255)
(if (and (< 0 gValue) (= 0 delta)) (plug-in-gauss-iir2 1 image layerG gValue gValue))
(if (and (< 0 gValue) (< 0 delta)) (plug-in-sel-gauss 1 image layerG gValue delta))
; BlauKanal
(gimp-levels layerB 1 0 255 1.0 255 255)
(gimp-levels layerB 2 0 255 1.0 255 255)
(if (and (< 0 bValue) (= 0 delta)) (plug-in-gauss-iir2 1 image layerB bValue bValue))
(if (and (< 0 bValue) (< 0 delta)) (plug-in-sel-gauss 1 image layerB bValue delta))

(gimp-layer-set-mode layerB 3)
(set! erg (car (gimp-image-merge-down image layerB 0)))
(gimp-layer-set-mode erg 3)
(set! erg (car (gimp-image-merge-down image erg 0)))
(gimp-layer-set-mode erg 0)
(set! work (car (gimp-image-merge-down image erg 0)))
))

(gimp-levels work 0 0 255 Start-Gradation 0 255)

(if (not (= Start-Gradation 1.0))
(begin
(set! descr (string-append descr "Gradation: "))
(set! descr (string-append descr (number->string Start-Gradation)))
(set! descr (string-append descr "\n"))))

(set! layer-bw (car (gimp-image-get-active-layer image)))
(if (< 0 Farbmodus)
(begin
(set! layer-farbe (car (gimp-layer-copy layer-bw 0)))
(gimp-image-add-layer image layer-farbe 0)
;(gimp-layer-set-mode layer-farbe Farbmodus)
(gimp-layer-set-mode layer-farbe OVERLAY)
(if (= Farbmodus 1)
(begin
(set! descrcol "Overlay")
(gimp-layer-set-mode layer-farbe OVERLAY)))
(if (= Farbmodus 2)
(begin
(set! descrcol "Color")
(gimp-layer-set-mode layer-farbe COLOR)))
(if (= Farbmodus 3)
(begin
(set! descrcol "Screen")
(gimp-layer-set-mode layer-farbe SCREEN)))
(if (= Farbmodus 4)
(begin
(set! descrcol "Addition")
(gimp-layer-set-mode layer-farbe ADDITION)))
(if (= Farbmodus 5) ; hartes Licht
(begin
(set! descrcol "Hard Light")
(gimp-layer-set-mode layer-farbe 18)))
(if (= Farbmodus 6) ; weiches Licht
(begin
(set! descrcol "Soft Light")
(gimp-layer-set-mode layer-farbe 19)))
(if (< 0 Soft-Farbe-Radius)
(plug-in-gauss-iir2 1 image layer-farbe Soft-Farbe-Radius Soft-Farbe-Radius))
))
(if (= Farb-Filter-Weich 0)
; Beide Ebenen werden gleich behandelt
(begin
(set! fil (car (script-fu-photo-bw-filter image layer-bw Farb-Filter Farb-Filter-Wert Farb-Filter-target)))
(set! descr (string-append descr "Filter :"))
(set! descr (string-append descr fil))
(set! layer-bw-weich (car (gimp-layer-copy layer-bw 0)))
(gimp-image-add-layer image layer-bw-weich 0)
)
; Beide Ebenen werden unterschiedlich behandelt
(begin
(set! layer-bw-weich (car (gimp-layer-copy layer-bw 0)))
(gimp-image-add-layer image layer-bw-weich 0)
(set! fil1 (car (script-fu-photo-bw-filter image layer-bw Farb-Filter Farb-Filter-Wert Farb-Filter-target)))
(set! descr (string-append descr "Filter 1:"))
(set! descr (string-append descr fil1))

(set! fil2 (car (script-fu-photo-bw-filter image layer-bw-weich Farb-Filter-Weich 100 Soft-Filter-target)))
(set! descr (string-append descr "Filter 2:"))
(set! descr (string-append descr fil2))
))
(if (= Combination 0)
(begin
(set! descr (string-append descr "Normal 50%\n"))
(gimp-layer-set-mode layer-bw-weich NORMAL)
(gimp-layer-set-opacity layer-bw-weich 50)))
(if (= Combination 1)
(begin
(set! descr (string-append descr "Overlay\n"))
(gimp-layer-set-mode layer-bw-weich OVERLAY)))
(if (= Combination 2)
(begin
(set! descr (string-append descr "Screen\n"))
(gimp-layer-set-mode layer-bw-weich SCREEN)))
(if (= Combination 3)
(begin
(set! descr (string-append descr "Addition\n"))
(gimp-layer-set-mode layer-bw-weich ADDITION)))
(if (= Combination 4)
(begin
(set! descr (string-append descr "Darken\n"))
(gimp-layer-set-mode layer-bw-weich BLACK-MASK)))
(if (= Combination 5)
(begin
(set! descr (string-append descr "Divide\n"))
(gimp-layer-set-mode layer-bw-weich DIVIDE)))
(if (= Combination 6)
(begin
(set! descr (string-append descr "Normal 25%\n"))
(gimp-layer-set-mode layer-bw-weich NORMAL)
(gimp-layer-set-opacity layer-bw-weich 25)))
(if (= Combination 7)
(begin
(set! descr (string-append descr "Normal 75%\n"))
(gimp-layer-set-mode layer-bw-weich NORMAL)
(gimp-layer-set-opacity layer-bw-weich 75)))
(if (= Combination 8)
(begin
(set! descr (string-append descr "Multiply\n"))
(gimp-layer-set-mode layer-bw-weich MULTIPLY)))
(if (= Combination 9) ; Hartes Licht
(begin
(set! descr (string-append descr "Hard Light\n"))
(gimp-layer-set-mode layer-bw-weich 18)))
(if (= Combination 10) ; Weiches Licht
(begin
(set! descr (string-append descr "Soft Light\n"))
(gimp-layer-set-mode layer-bw-weich 19)))
(if (= Combination 11) ; Grain Extract
(begin
(set! descr (string-append descr "Grain Extract\n"))
(gimp-layer-set-mode layer-bw-weich 20)))
(if (= Combination 12) ; Grain Merge
(begin
(set! descr (string-append descr "Grain Merge\n"))
(gimp-layer-set-mode layer-bw-weich 21)))
;(gimp-image-add-layer image layer-bw-weich 0)
(if (< 0 Farbmodus)
(begin
(gimp-layer-add-alpha layer-farbe)
(gimp-image-raise-layer image layer-farbe)))
(if (< 0 Soft-Radius)
(begin
(set! descr (string-append descr "Soft: "))
(set! descr (string-append descr (number->string Soft-Radius)))
(set! descr (string-append descr "\n"))
(plug-in-gauss-iir2 1 image layer-bw-weich Soft-Radius Soft-Radius)))
(if (= Sharp-All FALSE)
(begin
(if (< 0 Sharpen-Menge)
(plug-in-unsharp-mask 1 image layer-bw Sharpen-Radius Sharpen-Menge 0))
(if (= ACE TRUE)
(plug-in-ace 1 image layer-bw 1 0 ACE-Iteration 0 ACE-Details ACE-Smoothing 0))
))

(set! work (car (gimp-image-merge-down image layer-bw-weich 0)))

(if (= Sharp-All TRUE)
(begin
(if (< 0 Sharpen-Menge)
(begin
(set! descr (string-append descr "Sharpen (Radius, Amount): "))
(set! descr (string-append descr (number->string Sharpen-Radius)))
(set! descr (string-append descr " "))
(set! descr (string-append descr (number->string Sharpen-Menge)))
(set! descr (string-append descr "\n"))
(plug-in-unsharp-mask 1 image work Sharpen-Radius Sharpen-Menge 0)))
(if (= ACE TRUE)
(plug-in-ace 1 image work 1 0 ACE-Iteration 0 ACE-Details ACE-Smoothing 0))
))

(if (< 0 Noise)
(begin
(set! descr (string-append descr "Noise: "))
(set! descr (string-append descr (number->string Noise)))
(set! descr (string-append descr "\n"))
(plug-in-noisify 1 image work 0 Noise Noise Noise Noise)))

(if (< 0 Farbmodus)
(set! work (car (gimp-image-merge-down image layer-farbe 0))))
;(set! work (car (gimp-image-flatten image)))

(if (= Farbaufbesserung 1)
(begin
(set! descrcol (string-append descrcol " Saturation+100"))
(gimp-hue-saturation work 0 0 0 100)))
(if (= Farbaufbesserung 2)
(begin
(set! descrcol (string-append descrcol " Stretch-HSV"))
(plug-in-autostretch-hsv 1 image work)))
(if (= Farbaufbesserung 3)
(begin
(set! descrcol (string-append descrcol " Color-Enhance"))
(plug-in-color-enhance 1 image work)))
(if (= Farbaufbesserung 4)
(begin
(set! descrcol (string-append descrcol " Normalize"))
(plug-in-normalize 1 image work)))
(if (< 0 Farbmodus)
(begin
(set! descr (string-append descr "Color-Layer: "))
(set! descr (string-append descr descrcol))
(set! descr (string-append descr "\n"))
))
(if (< 0 Descr)
(begin
(set! dimendiv 30)
(if (or (= 1 Descr) (= 2 Descr)) (set! dimendiv 50))
(set! fontdim (gimp-text-get-extents-fontname descr (/ (car (gimp-image-height image)) dimendiv) 0 "Courier New Bold"))
(set! fontdimx (car fontdim))
(set! fontdimy (cadr fontdim))
(set! descrx 0)
(set! descry 0)
(if (or (= 2 Descr) (= 4 Descr))
(begin
(set! descrx (- (car (gimp-image-width image)) fontdimx))
(set! descry (- (car (gimp-image-height image)) fontdimy))
(set! descrx (- descrx dimendiv))
))

(if (< Descr 5)
(begin
(gimp-palette-set-foreground '(0 0 0))
(set! tlayer (car (gimp-layer-new image (car (gimp-image-width image)) (car (gimp-image-height image)) 1 "tlayer" 100 0)))
(gimp-image-add-layer image tlayer 0)
(gimp-edit-fill tlayer 0)
(gimp-palette-set-foreground '(255 255 255))
(set! ddimendiv (/ (car (gimp-image-height image)) dimendiv))
(set! textlayer (car (gimp-text-fontname image -1 descrx descry descr 0 TRUE ddimendiv 0 "Courier New Bold")))
(gimp-layer-set-mode textlayer 4)
(set! textlayer2 (car (gimp-layer-copy textlayer 1)))
(gimp-layer-set-mode textlayer2 6)
(gimp-image-add-layer image textlayer2 0)
(set! textlayer (car (gimp-image-merge-down image textlayer 0)))
(gimp-layer-set-mode textlayer 4)
(plug-in-gauss-iir2 1 image textlayer ddimendiv ddimendiv)
(plug-in-c-astretch 0 image textlayer)
(gimp-levels textlayer 0 0 64 1.0 0 255)
(set! work (car (gimp-image-merge-down image textlayer 0)))
(set! work (car (gimp-image-merge-down image textlayer2 0)))
))

(if (= 5 Descr) (gimp-layer-set-name work descr))
))

(gimp-image-set-active-layer image drawable)
(gimp-image-clean-all image)
(if (= Save TRUE)
(begin
(file-tiff-save 1 image work (string-append "c:/" file-name) "" 0)
)
(gimp-displays-flush))
)

(define (script-fu-photo-sw image
drawable
rValue
gValue
bValue
delta
Start-Gradation
Farb-Filter
Farb-Filter-Wert
Farb-Filter-target
Farb-Filter-Weich
Soft-Radius
Soft-Filter-target
Combination
Sharp-All
Sharpen-Radius
Sharpen-Menge
Farbmodus
Farbaufbesserung
Soft-Farbe-Radius
Noise
Descr
Bracketing)
(gimp-image-undo-disable image)
(if (= 0 Bracketing)
(begin
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 0 Descr) (set! Descr 5))
(if (= 1 Bracketing)
(begin
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta (+ Start-Gradation 0.25) Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta (+ Start-Gradation 0.5) Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(if (< 0.25 Start-Gradation)
(script-fu-photo-vace image drawable rValue gValue bValue delta (- Start-Gradation 0.25) Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr))
(if (< 0.5 Start-Gradation)
(script-fu-photo-vace image drawable rValue gValue bValue delta (- Start-Gradation 0.5) Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr))
))
(if (= 2 Bracketing)
(begin
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 0 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 2 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 5 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 10 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 25 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 50 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 100 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich 250 Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 3 Bracketing)
(begin
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 1 1 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 2 1 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 2 2 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 2 5 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 2 3 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 3 2 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 3 3 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 3 5 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 5 2 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All 5 5 FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 4 Bracketing)
(begin
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 0 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 1 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 2 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 3 Farb-Filter-Wert 0 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 3 Farb-Filter-Wert 127 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 3 Farb-Filter-Wert 255 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 4 Farb-Filter-Wert 0 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 4 Farb-Filter-Wert 127 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 4 Farb-Filter-Wert 255 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 5 Farb-Filter-Wert 0 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 5 Farb-Filter-Wert 127 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 5 Farb-Filter-Wert 255 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 6 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 5 Bracketing)
(begin
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 7 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 8 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 9 Farb-Filter-Wert Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 10 100 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 11 100 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 12 100 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 10 0 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 11 0 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 12 0 Farb-Filter-target 0 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 6 Bracketing)
(begin
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 0 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 1 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 2 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable Start-Gradation 3 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 4 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 5 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 6 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 7 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 8 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 9 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 10 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation 11 Farb-Filter-Wert Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(if (= 7 Bracketing)
(begin
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 1 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 2 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 3 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 4 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 5 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 6 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 7 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 8 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 9 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 10 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 11 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
(script-fu-photo-vace image drawable rValue gValue bValue delta Start-Gradation Farb-Filter Farb-Filter-Wert Farb-Filter-target 12 Soft-Radius Soft-Filter-target Combination Sharp-All Sharpen-Radius Sharpen-Menge FALSE 0 0 0 Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise "" "" FALSE Descr)
))
(gimp-image-undo-enable image)
)

[schumaml]

Was war denn der Unterschied? "Invalid tile" würde darauf hindeuten, daß eine Ebene bearbeitet wurde, die noch nicht im Bild hing. Das ist einer der wichtigsten Bugfixes in GIMP 2.2, und leider auch die größte Inkompatibilität zu 2.0.

[flashnfantasy]

@schumaml:
Gut das du das sagst, ich kann mich jetzt ganz dunkel daran erinnern, daß ich so einen Bug in meinem Script auch rausgebastelt habe.
Glaub das war so, daß ich eine Ebene bearbeite, die ich noch nicht dem Image hinzugefügt hatte.

[flashnfantasy]

Vielleicht versteht man den Script am besten, wenn man alle Parameter als ein Programm sieht, die nach und nach abgearbeitet werden.

Habe mal das Panel in mehrer Hauptschritte unterteilt.
Und bis auf die letzten beiden Parameter (Description und Bracketing) wirken die Parameter auch in dieser Reihenfolge im Script.

Zuerst das vielleicht Uninteressanteste:
Kanalweichzeichner: Das ist nur drinnen, weil meine Leica-Digilux unter bestimmten Umständen im Blaukanal so häßliche Artefakte hatte.
Wenn man in keinem Kanal einen Wert einstellt, dann wird dieser Teil übersprungen.

Eingangsgradation: Auch das ist nur, weil ich alle Bearbeitungsschritte zusammenhaben und gemeinsam dokumentieren wollte, weil normalerweise kann man die Gradation vor dem Script ganz schnell und sehr präzise mit den dafür vorgesehenen Dialogen einstellen.

Die beiden Filter: Mein ernst gemeinter Tipp - greift euch ein Buch über SW-Photographie. Man kann das fast 1:1 umsetzen.

Noch ein wichtiger Punkt ist die Kombination, nur als Idee:
Screen erzeugt einen 'Traum-Soft-Effekt', wie man ihn häufig auf den 70er-Jahre-Mädchen-Kalender hat.
Overlay verstärkt die Kontraste, zeichnet man den oberen Filter weich, dann kriegt man ein angenehm kontrastreiches Bild. Aber hier ist die Eingangsgradation sehr entscheident, weil dunkle Bilder werden noch dunkler, helle Bilder noch heller.
Overlay ist meiner Meinung nach die wichtigste Kombination.
Normal ist eigentlich das, was man unter einem Weichzeichner eigentlich versteht.

Farbe: Einfach mal damit ein wenig spielen.
Klar, auf einem SW ohne irgendwelche Filter die Originalfarbe wieder auftragen bringt keinen richtigen Effekt.
Farbe (oder Color) bringt die Originalfarbe wieder auf das Bild, nimmt aber die Kontraste von SW.
Overlay und Screen mal austesten...

815

[Egin]

schickes script :) ist es damit auch möglich farbkanäle zu tauschen ? um beispielsweise infrarotbilder zu immitieren ?

[flashnfantasy]

@egin:
Nein, das macht der Script nicht, aber versuche es mal mit dem Kanal-Mixer (Filter-Farben-Channel Mixer ???).

Ein paar Beispiele:

Kontrast-Verstärkung durch Overlay (ich müsste mal das Original raussuchen damit man sieht, wie heftig der Effekt eigentlich ist)
58

Blau-Filter.
59

Irgendein Filter (habe es nicht dokumetiert) und wieder Original-Farbe
64

Ansonsten sind ja noch die Beispiele am Anfang da...

[Egin]

achso nochmal zu deiner frage, warum manche profis lieber den rotkanal als graustufenvorlage nehmen....

das variert je nach bild. bei himmelbildern beispielsweise wirkt im rotkanal der himmel deutlich dunkler (bei graustufenumwandlung) - im blaukanal hingegen wird das ganze helligkeitsbild anders.

dafür wird im rotkanal haut heller, im grünkanal dafür was anderes. und am besten siehts meistens aus, wenn man alle kanäle angleicht :) - an jedes bild einzelnt

[Egin]

hab auch mal ein bischen rumprobiert :)

das erste ist mit nem kanalmix und einigen filtereinstellungen

http://enno.magicray.de/digi/1.jpg
(zusätzlich weißer rahmen)
http://enno.magicray.de/digi/2.jpg
anderer farbkanal als grundlage - jetzt ne klare kontraständerung, wird nicht ganz so stark getrennt wie beim 1.
(zusätzlich weißer rahmen)
http://enno.magicray.de/digi/3.jpg
der sw filter in "fast" grundeinstellung

http://enno.magicray.de/digi/4.jpg
normale graustufenumwandlung
orignal

http://enno.magicray.de/feuer/hammelrolle.jpg

[flashnfantasy]

@egin:
Spiel doch mal bei dem Schinken wieder die Originalfarbe auf,
würde mich mal interessieren.

So wie bei dem Bild unten, da habe ich den Blaukanal rausgenommen, und auf das dabei entstandene SW die Originalfarbe mit dem Modus Color wieder draufgesetzt.

Hier ist mal ein Vorher-Nachher-Bild, bei dem SW-Technik verwendet wurde, um ein Farbbild zu kriegen. Bei dem Bild habe ich nichts per Hand nachbearbeitet, ist alles mit dem Script gemacht:
818

[Egin]

hier :) ein wenig viel gelb ist nun drin, evtl. sollte man die farbsättigung nachhinein anpassen :) ?

http://enno.magicray.de/digi/gelb.jpg

blaukanal raus, und dann rb filter rauf und als farbmodus farbe :)

[armdi]

Hallo flashnfantasy

danke für die "prompte Bedienung" / neues Version deines genialen Scripts!

Noch was zum Kanalweichzeichner - finde ich gar nicht so uninteressant.
Könnte ganz nützlich sein um das Farbrauschen bei hohen ISO-Werten zu reduzieren,
da das Rauschen ja mehr im blau/rot-Bereich auftritt umd man damit die
einzelnen Farbkanäle unterschiedlich start weichzeichnen kann -
in der Hoffnung das das ganze Bild damit nicht so stark weichgezeichnet wird.
Habs allerdings noch nicht ausprobiert.

[flashnfantasy]

Eigentlich ist der ganze Script ursprünglich zum 'Retten' von verrauschten Bildern gedacht gewesen.

Und genauso wie du es siehst, so ist eigentlich auch der zweite Softfilter gedacht. Ich habe gemerkt, daß zB im Rotkanal Hautunreinheiten aus Gesichtern verschwinden. Gleichzeitig aber verlieren die Lippen an Farbe und das ganze Gesicht wird im Vergleich zu den Augen zu hell.

Also war meine Idee, den Farbkanal, der das Gesicht makellos darstellt, in voller Schärfe zu nehmen, und den Farbkanal, der Hautunreinheiten darstellt, wo weit weichzuzeichnen, daß diese typischen 'Fleckchen' verschwinden.
Kombiniert man beide Filter, dann hat man schon einwenig das Gefühl eines Weichzeichners. Gleichzeitig aber sieht man die knackige Schärfe.

Auch ist mir damit möglich, Halogenlicht als Studio-Beleuchtung zu verwenden, ohne daß ich großartig Qualitätsverlust bei den SW bemerke.
Eigentlich ist Halogenlich sogar ein sehr interessantes Licht, weil der Blau-Wert fast verschwindet. Dadurch wird Haut sehr hell, was für kontrastreiche Aufnahmen interessant ist.

Letztlich, die Mächtigkeit dieses Scriptes liegt in seiner schnellen Anwendung auf viele Bilder mit immer den gleichen Parametern, die fast immer zu einem vorhersagbaren Ergebniss führen.
Ich kann innerhalb von kürzester Zeit ganze Serein von Bildern in SW oder modifizierte Farbbilder umwandeln, ohne daß ich groß experiementiere. Daher hat der Script für mich auch mehr den Status eines Arbeits- als eines Effektwerkzeugs.

Hier ist mal ein Beispiel für das Glätten der Haut, leider sieht man in der Komprimierung kaum noch den Effekt.
820

@egin:
Das mit dem Gelbstich interssiert mich, weil ich habe auf keinem meiner Bilder einen solchen Farbstich hingekriegt.
Hier ist mal meine Version der Hammelrolle (Überlagern ohne Rotkanal)
821

[armdi]

Hallo flashnfantasy,

hast du zufällig die Parameter parat, mit denen du die bei Halogenlicht
aufgenommenen Bilder behandelst?
Leider fehlen bei den Bildern von der Dame mit den grünen Augen die Parameter.
Ich hab mal angefangen rumzuexperimentieren, aber bei den vielen möglichen
Parametern ist "try-and-error" ein steiniger Weg.


Eigentlich ist Halogenlich sogar ein sehr interessantes Licht, weil der Blau-Wert fast verschwindet.
Dadurch wird Haut sehr hell, was für kontrastreiche Aufnahmen interessant ist.


Nicht umsonst gehört(e) der Gelb-Filter zur Standardausrüstung eines jeden
SW-Fotografen ;-)

Apropos Gelb-Filter: Ich komme ständig mit der Bezeichung der Filter durcheinander,
weil die Filter zum aufs-Objektiv-schrauben nach der Färbung des Glases benannt sind
(Gelb-Filter -> nimmt blau raus), im Script ist es umgekehrt (R -> nimmt rot raus, wenn ich es richtig verstehe)

[Egin]

@flash - coole sache da mit meinem schinken !

also ich hab den gelbstich ganz einfach hinbekommen - ich hab alle blautöne elliminiert, im kanalmixer die blaufarben auf 0 gesetzt, dann den gb modus auf standart + farbüberlagerung raufgesetzt :)

anschließed könnte man noch die kompletten farbkotnraste runterschrauben, bzw die sättigung !

ich hab dein script mal für eins meiner fotos benutzt, um die nachzubearbeiten

[flashnfantasy]

@egin:
achso, der Gelbstich kommt aus dem Kanalmixer...
Meinen Script könntest du beim Channelmixer noch am ehesten simulieren, wenn du ganz normal die Kanäle mischt, alles entfärbst und dann die Orginalfarben mit dem Ebenenmode 'Color' draufspielst.

@egin:
Bei dem Bild mit der Fliege bräuchte man ein Vorher, Nachher.
Den meisten Bildern sieht man ja den Script nicht an.

Das folgende Bild ist eine Blitzlichtaufnahme. (Die Frau hat blaue Augen.)
Links wurde sie mit desaturate ganz normal entfärbt.
Rechts die simulierte Wirkung eines Rot-Filters.

Die Beschreibung für die Parameter kannst du ja per Script einblenden.
Wobei 'r 100 0' bedeutet, daß der r-Filter zu 100% Stärke angewendet wurde, und die Rot-Ebene vor der Kontrastspreizung auf den Wert 0 abgebildet wurde.
'Normal 50%' hat in diesem Fall keine Auswirkung, daß ist nur der Default-Wert.

833

[DanielP]

Wolltest du nicht irgendwann einmal anfangen, dich mit der Plugin-Programmierung zu befassen? Dieses script könnte ich mir sehr gut als Plugin vorstellen, so schön interaktiv, mit Vorschau, Presets und so... ;)

D.

[Egin]

ich probier das gerade mal mit deinem weichzeichnen der haut - muss nur warten bis das script fertig gemacht hat !

um das script mal etwas besser zu verstehen - wenn ich den rot filter benutze, für den farbkabnal rot, dann wandelt das script das bild erstmal in ein rotbild um, in den es den blau und grün kanal auf 0 setzt, und aus diesem bild macht er dann das graustufenbild ?

um es mal einfacher zu sagen ?

und bei dem bild mit der haut trennt er das farbige rotkanalbild von dem rest des bildes, bearbeitet es und legt es am ende wieder rauf ?


btw - ich bekomm deine hautbilder irgendwie nicht hin. ich hab das frauchen da rausegschnitten und die selben werte eingesetzt, aber das sah total anders aus .(

[flashnfantasy]

Welches Frauchen meinst du ?
Du musst schon die Farbvorlage nehmen ;-)

Du kannst den R-Filter auf ganz simple Weise nachbilden.
Gehe mal bei einem Farbbild auf Ebenen-Farbe-Werte->(Dialog).

Nimm den Rotkanal und gebe als Zielwert 0 für oben und unten ein.
Du bekommst dann ein Bild mit einem starken Cyan-Stich (etwa wie unten).
835

Das Bild entfärbst du, und machst dann ein Auto-Stretch des Kontrastes.
Da alle Informationen des Rotkanals fehlen (da sie auf den Wert 0 abgebildet wurden) behaupte ich mal, daß das jetzige Ergebniss einem Rot-Filter entspricht.

Also fast genauso, wie du es schon sagst, ausser genau umgekehrt :lol:
Für den GB-Filter setzt er den Grün und Blau-Kanal auf null. Es kommt dabei ein Bild raus, daß nur aus Rot und Schwarz-Tönen besteht, der übrig gebliebene Rotkanal.

[Egin]

ah das ist gut zu wissen :) ich hab das mädel genommen, nachdem gelbstich-schinken. da wo du 4 fotos von ihr hast, mit unterschiedlichen filtermöglichkeiten - um die haut glatter zu machen :)

ah also genau umgekehrt, farbwert auf 0, anstatt die anderen auf 0 :)

[armdi]

Also, ich gebs auf!
Irgendwie bin ich zu blöde für das Script!
Jetzt hab ich mir dir Dame auch mal kopiert und die Werte abgeschrieben (weitgehend jedenfalls, denn "Normal 50 %" kann ich nicht einstellen, das fehlt bei mir) -
und was rauskommt hat keine Ähnlichkit mit dem Ergebnis von flashfantasy!

841

[flashnfantasy]

Tadaaaa- schnelle Hilfe,

du hast den zweiten Filter nicht gesoftet - und das ist wichtig + wichtig + wichtig.
Der Soft-Radius steht genau unter Soft-Filter und ist im Default 0, so als ob er nicht eingschaltet ist.

[armdi]

Ups, da hat ich wohl Tomaten auf den Augen!
Da steht ja auch "Soft 25" im Bild!

Kaum macht mans richtig, funktionierts! :D
Danke!

[xpsmart]

Hallo flashnfantasy,

dein Script ist echt super, aber leider hab ich ein problem. Mein Bildschirm 15" TFT zeigt das Script über den ganzen Bildschirm (Höhe), so dass
ich das "Ok" Button nur bei ausgeblendeter Taskleiste gerade noch klicken kann. Kann ich es irgendwie verkleinern?

Grüße xpsmart

[flashnfantasy]

Hänge mal folgenden Code unten an das File an.
Du hast dann einen Script mit dem Namen BW-Easy
Es werden dabei eine ganze Reihe von Parametern durch Defaults ersetzt.

Im Easy-Script habe ich das Kanalweichzeichnen komplett rausgenommen (4 Parameter), die Stärke des ersten Filters rausgenommen (1 Parameter), die Auswahl, nur die Hintergrund-Ebene unscharf zu maskieren fehlt nun auch (1 Parameter).

All die rausgenommenen Parameter nutze ich äußerst selten bis garnicht.


(define (script-fu-photo-swredux image
drawable
Start-Gradation
Farb-Filter
Farb-Filter-target
Farb-Filter-Weich
Soft-Radius
Soft-Filter-target
Combination
Sharpen-Radius
Sharpen-Menge
Farbmodus
Farbaufbesserung
Soft-Farbe-Radius
Noise
Descr
Bracketing)
(script-fu-photo-sw image drawable 0 0 0 0 Start-Gradation Farb-Filter 100 Farb-Filter-target Farb-Filter-Weich Soft-Radius Soft-Filter-target Combination TRUE Sharpen-Radius Sharpen-Menge Farbmodus Farbaufbesserung Soft-Farbe-Radius Noise Descr Bracketing)
)

(script-fu-register "script-fu-photo-swredux"
_"<Image>/Script-Fu/SW-Photo/SW-Easy"
"BW"
"Mathias Weitz"
"Mathias Weitz"
"18/07/03"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"gradation" '(1 0.2 2.5 0.1 0.1 1 0)
SF-OPTION _"filter" '(_"None"
_"gb Filter"
_"rg Filter"
_"r Filter"
_"g Filter"
_"b Filter"
_"rb Filter"
_"r Equalize"
_"g Equalize"
_"b Equalize"
_"yellow-low-pass"
_"magenta-low-pass"
_"cyan-low-pass")
SF-ADJUSTMENT _"filter-contrast" '(0 0 255 32 32 1 0)
SF-OPTION _"soft-filter" '(_"Same as background"
_"gb Filter"
_"rg Filter"
_"r Filter"
_"g Filter"
_"b Filter"
_"rb Filter"
_"r Equalize"
_"g Equalize"
_"b Equalize"
_"yellow-low-pass"
_"magenta-low-pass"
_"cyan-low-pass")
SF-ADJUSTMENT _"soft-radius" '(0 0 250 1 1 1 0)
SF-ADJUSTMENT _"soft-filter-contrast" '(0 0 255 32 32 1 0)
SF-OPTION _"modus" ' (_"Normal"
_"Overlay"
_"Screen"
_"Addition"
_"Darken"
_"Divide"
_"Normal 25%"
_"Normal 75%"
_"Multiply"
_"Hard Light"
_"Soft Light"
_"Grain Extract"
_"Grain Merge")
SF-ADJUSTMENT _"sharpen-radius" '(2 1 20 1 1 1 0)
SF-ADJUSTMENT _"sharpen-amount" '(0 0 5 0.1 0.1 1 0)
SF-OPTION _"color mode" '(_"None"
_"Overlay"
_"Color"
_"Screen"
_"Addition"
_"Hard Light"
_"Soft Light")
SF-OPTION _"color enhance" '(_"None"
_"Saturation"
_"Stretch-HSV"
_"Color-Enhance"
_"Normalize"
_"Equalize"
_"Level-Stretch"
_"Channel-Stretch")
SF-ADJUSTMENT _"soft-color" '(0 0 100 1 1 1 0)
SF-ADJUSTMENT _"noise" '(0 0 0.2 0.01 0.01 2 0)
SF-OPTION _"description" '(_"None"
_"small upper left"
_"small lower right"
_"big upper left"
_"big lower right"
_"Descr at layer")
SF-OPTION _"Bracketing" '(_"None"
_"Grad"
_"Soft Filter 2"
_"unsharpen"
_"both Filters 1"
_"both Filters 2"
_"Filter 1, Filter 2 steady"
_"Filter 2, Filter 1 steady")
)

[xpsmart]

Danke, jetzt ist es kleiner!

[flashnfantasy]

Umstellung nach 2.4
Viel Spaß !!!

Download etwa 35kB
http://www.forum35.de/photo/gimp/photo-02.zip

[mitch_jur]

Ich hab das bei mir in Gimp 2.4.1 (aus den sourcen selber kompiliert auf debian etch) ausprobiert und bekomme folgenden Fehler:

Fehler beim Ausführen von
(script-fu-photo-swredux 16 74 1 0 2 32 3 1 32 1 2 0.10000000000000001 3 2 1 0.029999999999999999 1)

Error: eval: unbound variable: script-fu-photo-sw


Ich hab mich mal daran versucht etwas in dem script zu ändern, nach dem was gimp hier schreibt: http://www.gimp.org/docs/script-fu-update.html bekomme es aber nicht zum laufen.

Fehlt mir vielleicht was, hab nämlich Gimp ohne python kompiliert.

[lox2eagle]

Ich kann denn Fehler hier auf FC6 zumindest reproduzieren:
SW-Easy Message

Error while executing
(script-fu-photo-swredux 1 2 1 0 0 0 0 0 0 0 2 0 0 0 0 0 0)

Error: eval: unbound variable: script-fu-photo-sw
Da scheint in der Portierung etwas schiefgelaufen zu sein.


Loxi

[eleanora]

Jup, das hatte ich heute auch beim Austesten

[flashnfantasy]

Wahrscheinlich nicht die Portierung... egal

Testet mal hiermit

http://www.forum35.de/photo/gimp/photo-02.scm

[mitch_jur]

aaaaahhhh, spitze. Nun klappt es. Vielen Dank flashnfantasy.

[Zanthia]

WOW!

Ich habs gerade zum ersten mal entdeckt, einfach spitze!

[CdV]

ok ne ganz dumme frage: wie kann ich das installieren und wie finde ich es in gimp? :oops:

[RobiWan]

Dann stelle ich auch eine dumme Frage - zu http://www.forum35.de/photo/gimp/photo-02.scm bekomme ich keine Verbindung.

Hat jemand andere Stelle wo man sich es noch holen kann?

Gruß Robert

[schumaml]

Wurde schon mehrfach gefragt, und natürlich auch beantwortet: skripte installieren

[RobiWan]

So weit so gut nur noch das Script/ die Scripte musste man haben ;)

Gruß Robert

[The Jackal]

Was heißt du bekommst keine Verbindung? Wie äußert sich das denn?

[schumaml]

...was zumindest hier kein Problem darstellt.

[CdV]

hat sich erledigt...

[RobiWan]

...was zumindest hier kein Problem darstellt.

Heute und jetzt bei mir auch nicht mehr :)