2.261102-3HEADmaster

2 files changed, 21 insertions, 13 deletions

diff --git a/script-fu/3.x/przem-retro-portrait-v3x.scm b/script-fu/3.x/przem-retro-portrait-v3x.scm
index 772c740..1cda012 100644
--- a/script-fu/3.x/przem-retro-portrait-v3x.scm
+++ b/script-fu/3.x/przem-retro-portrait-v3x.scm
@@ -2,7 +2,9 @@
 ; author: PRP
 ; licencja: Public Domain
 ; Gdańsk - 01-11-2026
-; ver. 2.261101-3
+; ver. 2.261102-3
+; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm'
+; Autorstwa Spencer Kimball
 
 (define (midtones val)
 	(/ val 2.55))
@@ -33,8 +35,6 @@
         (type (car (gimp-drawable-type-with-alpha layer)))
         (mask (car (gimp-channel-new image "Engraving Mask" (car (gimp-image-get-width image)) (car (gimp-image-get-height image)) black '(0.4 0.4 0.2 0.0 0.0 0.0 0.0 0.0 0.0))))
         (gradient-layer 0)
-        (layer (vector-ref drawable 0))
-        (type (car (gimp-drawable-type-with-alpha layer)))
         (blur-layer 0)
         (color-layer 0)
         )
@@ -53,18 +53,18 @@
     ;; Dodaj ciepłe kolory przez saturację i odcień
     ;(gimp-drawable-brightness-contrast layer (/ brightness 100) 0)
     ; Odcień 30 = ciepłe kolory
-    (gimp-drawable-hue-saturation layer HUE-RANGE-ALL 0 0 (/ saturation 100) 30)
-
-    ; dla obrazów przestrzeni RGB i Gray, utworzenie nowej warstwy, dopiero po kowersji na rgb
-    (set! gradient-layer (car (gimp-layer-new image "Gradient" (car (gimp-image-get-width image)) (car (gimp-image-get-height image)) RGBA-IMAGE  100 LAYER-MODE-NORMAL)))
+    ;(gimp-drawable-hue-saturation layer HUE-RANGE-ALL 0 0 (/ saturation 100) 30)
 
     (let* (
-
         (color-response (gimp-palette-get-entry-color palette 0))
         (color (car color-response))
         )
         (gimp-context-set-foreground color)
     )
+
+    ; dla obrazów przestrzeni RGB i Gray, utworzenie nowej warstwy, dopiero po kowersji na rgb
+    (set! gradient-layer (car (gimp-layer-new image "Gradient" (car (gimp-image-get-width image)) (car (gimp-image-get-height image)) RGBA-IMAGE  100 LAYER-MODE-NORMAL)))
+
     (gimp-image-insert-channel image mask -1 0)
     (gimp-image-insert-layer image gradient-layer 0 -1)
     (gimp-drawable-edit-gradient-fill gradient-layer
@@ -72,7 +72,7 @@
 				      FALSE 1 0
 				      TRUE
 				      0 0 0 0)
-    (gimp-layer-set-opacity gradient-layer 5)
+    (gimp-layer-set-opacity gradient-layer 100)
 
     ;; profil koloru sRGB - sgray.icc
     ;(gimp-image-set-color-profile-from-file image "/usr/share/ghostscript/10.08.0/iccprofiles/srgb.icc")
@@ -100,20 +100,25 @@
     (gimp-image-insert-layer image color-layer 0 -1)
 
     (gimp-drawable-merge-new-filter blur-layer "gegl:gaussian-blur"  RUN-NONINTERACTIVE LAYER-MODE-REPLACE 0.90 "std-dev-x" 10.0 "std-dev-y" 10.0  "filter" "auto")
+    (gimp-layer-set-opacity blur-layer 70)
     (gimp-layer-set-mode blur-layer LAYER-MODE-NORMAL) ; NORMAL mode
+    (gimp-item-set-visible blur-layer TRUE)
+
     ;(gimp-image-merge-down image blur-layer EXPAND-AS-NECESSARY)
 
     ;# W GIMP 3.0 używamy operacji GEGL przez PDB dla uzyskania ziarna
-    (gimp-drawable-merge-new-filter layer "gegl:noise-rgb" RUN-NONINTERACTIVE LAYER-MODE-REPLACE 0.80 "red" 0.05 "green" 0.05 "blue" 0.05 "alpha" 0.0 "seed" 0)
+    (gimp-drawable-merge-new-filter layer "gegl:noise-rgb" RUN-NONINTERACTIVE LAYER-MODE-REPLACE 0.80 "red" 0.05 "green" 0.05 "blue" 0.05  "alpha" 0.0 "seed" 0)
 
     (gimp-drawable-merge-new-filter layer "gimp:brightness-contrast" 0 LAYER-MODE-REPLACE 0.80
                  "brightness" (/ brightness 100)
                  "contrast"   (/ contrast 100))
+    (gimp-layer-set-opacity layer 55)
+    (gimp-item-set-visible layer TRUE)
 
     ;# Delikatne przesunięcie kolorów w stronę żółci/czerwieni w cieniach i półtonach
     (color-balance color-layer)
     (gimp-layer-set-mode color-layer LAYER-MODE-NORMAL) ; NORMAL mode
-    (gimp-layer-set-opacity color-layer 75)
+    (gimp-layer-set-opacity color-layer 40)
 
     (gimp-image-undo-group-end image)
 
@@ -135,7 +140,7 @@
   SF-ADJUSTMENT "Saturation" '(0 -100 100 1 10 0 0)
   SF-PALETTE  _"Palette"  "Default"
   SF-ADJUSTMENT "Black" '(5 0 100 1 10 0 0)
-  SF-ADJUSTMENT "Hue" '(2 2 16 1 10 0 0)
+  SF-ADJUSTMENT "Hue" '(2 1 16 1 10 0 0)
   SF-OPTION "Dithering" '("None" "Floyd-Steinberg (normal)" "Floyd-Steinberg (reduced bluff)" "Position")
 
 )
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 8ab6c32..63e0033 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,4 +1,7 @@
-# [2.261101-2] przem-retro-portrait-v3x.scm
+# [2.261102-3] przem-retro-portrait-v3x.scm
+* Regres do wersji 2.261102-0
+
+# [2.261102-2] przem-retro-portrait-v3x.scm
 * Obsługa ditheringu
 
 # [2.261101-2] przem-retro-portrait-v3x.scm