przem-teal-portrait-look-v3.scm:2.260408-0

2 files changed, 39 insertions, 23 deletions

diff --git a/script-fu/3.0/przem-teal-portrait-look-v3.scm b/script-fu/3.0/przem-teal-portrait-look-v3.scm
index b4e5cf7..e4cfd5c 100644
--- a/script-fu/3.0/przem-teal-portrait-look-v3.scm
+++ b/script-fu/3.0/przem-teal-portrait-look-v3.scm
@@ -1,6 +1,6 @@
 ; przem-teal-portrait-look-v3 - Fotografia portretowa na sterydach

 ; 2026-04-06 - Przemysław R. Pietraszczyk

-; licence: Public Domain

+; licence: GPL v3

 ; ver. 2.260407-0

 ; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm' 

 ; Autorstwa Spencer Kimball

@@ -25,11 +25,7 @@
 (define (bval col)

     (caddr col))

 

-

-

-

 (define (saturation layer1)

-

 	; drawable, HUE-Range ( Red, Yellow, Green, Cyan, Blue, Magenta, or All),

 	; Hue Offset (-180 180), lightness (-100 100), saturation (-100 100) overlap (0 100)

  	; Lekko przygaszona saturacja globalnie

@@ -63,9 +59,7 @@
                                    -2

                                    1

                                    6

-                                   0.0) 

-    		

-)

+                                   0.0))

 

 (define (teal layer2) 

 	(let* (

@@ -79,44 +73,62 @@
                                   (shadows (gval c1))

                                   (shadows (bval c1)))

 		(gimp-drawable-color-balance layer2 TRANSFER-MIDTONES 1

-                                 (midtones (rval c2)

+                                  (midtones (rval c2))

+                                  (midtones (gval c2))

+                                  (midtones (bval c2)))

+		(gimp-drawable-color-balance layer2 TRANSFER-HIGHLIGHTS 1

+                                  (highlights (rval c3))

+                                  (highlights (gval c3))

+                                  (highlights (bval c3)))

+	))

+	

+(define (sand layer2) 

+	(let* (

+		;cyan-red (+) 30

+		;magenta-green (+) 10

+		;yellow-blue (+) 35

+		(c2 '(30 10 35))

+		(c3 '(20 5 25))

+		)    

+		(gimp-drawable-color-balance layer2 TRANSFER-MIDTONES 1

+                                  (midtones (rval c2))

                                   (midtones (gval c2))

-                                  (midtones (bval c2))))

+                                  (midtones (bval c2)))

 		(gimp-drawable-color-balance layer2 TRANSFER-HIGHLIGHTS 1

                                   (highlights (rval c3))

                                   (highlights (gval c3))

                                   (highlights (bval c3)))

 	))

 	

-(define (przem-teal-portrait-look-v3 img drawable)

+(define (przem-teal-portrait-look-v3 img drawable mode)

 

   (let* (

 		(ref-layer (vector-ref drawable 0))

         (work-layer (car (gimp-layer-copy ref-layer TRUE)))

-        (teal-layer (car (gimp-layer-copy ref-layer TRUE)))

+        (color-layer (car (gimp-layer-copy ref-layer TRUE)))

 		(the-layer 0)

         )

 	(gimp-context-push)

 	(gimp-image-undo-group-start img)

-	

 

     ;(gimp-selection-all img)

 	(set! the-layer (car (gimp-image-flatten img))) 

 

-    ;; Delikatne przyciemnienie i zwiększenie kontrastu

-    ;; brightness: -5, contrast: 15

-    (gimp-drawable-brightness-contrast the-layer -0.5 0.15)

-

-	(gimp-image-insert-layer img teal-layer 0 -1)  

-	(teal teal-layer)

-	(gimp-layer-set-opacity teal-layer 5)

+	(gimp-image-insert-layer img color-layer 0 -1)  

+	(if (= mode 0) (begin 

+		;; Delikatne przyciemnienie i zwiększenie kontrastu

+		;; brightness: -5, contrast: 15

+		(gimp-drawable-brightness-contrast the-layer -0.5 0.15)

+		(teal color-layer)))

+	(if (= mode 1) (begin 

+		(gimp-drawable-brightness-contrast the-layer 0.10 0.5)

+		(sand color-layer)))

+	(gimp-layer-set-opacity color-layer 5)

 

 	(gimp-image-insert-layer img work-layer 0 -1)  

 	(saturation work-layer)

 	(gimp-layer-set-opacity work-layer 40)

 	

-	

-

 	;(let* ((merged-layer (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))))

 	;		(gimp-item-set-visible merged-layer TRUE))

     ;(gimp-selection-none img)

@@ -129,11 +141,12 @@
 (script-fu-register-filter "przem-teal-portrait-look-v3"

   _"_Teal portrait look"

   _"Nadaje zdjęciu miękki portretowy look: lekko przygaszone kolory, podbity turkus, ocieplona skóra, umiarkowany kontrast."

-  "Przemyslaw R. Pietraszczyk"

+  "Przemysław R. Pietraszczyk"

   "GPL v3"

   "2026-04-06"

   "RGB* GRAY*"

   SF-ONE-OR-MORE-DRAWABLE

+  SF-OPTION "Colors Balance" '("TEAL" "SAND")

 ) 

  

 (script-fu-menu-register "przem-teal-portrait-look-v3"

diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index bb0d00b..70adcd2 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,6 @@
+# [2.260408-0] przem-teal-portrait-look-v3
+* Dodanie nowego balansu koloru - piaskowy (Sand)
+
 # [2.260407-0] przem-teal-portrait-look-v3
 * Dodanie odcieniu turkusu (nieco rozjaśnia obraz)