From d34649de7178e44884f0e2f5a2a118183e240cc8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw?= <przem@prymula.ct8.pl>
Date: Wed, 8 Apr 2026 12:26:58 +0200
Subject: przem-teal-portrait-look-v3.scm:2.260408-0

---
 script-fu/3.0/przem-teal-portrait-look-v3.scm | 59 ++++++++++++++++-----------
 script-fu/changelog.md                        |  3 ++
 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)
 
-- 
cgit v1.2.3