From 3aab6350f519a7077af8c1ffa8092c1a5c4070bc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw?= <przem@prymula.ct8.pl>
Date: Fri, 9 Jan 2026 20:28:22 +0100
Subject: 2.260109-0

---
 script-fu/3.0/przem-lith-effect-v3.scm | 33 +++++++++++++++++++++++++++++---
 script-fu/3.0/przem-surreal-v3.scm     | 35 +++++++++++++++++++++++++---------
 script-fu/changelog.md                 |  4 ++++
 3 files changed, 60 insertions(+), 12 deletions(-)

(limited to 'script-fu')

diff --git a/script-fu/3.0/przem-lith-effect-v3.scm b/script-fu/3.0/przem-lith-effect-v3.scm
index 786b81c..91e8694 100644
--- a/script-fu/3.0/przem-lith-effect-v3.scm
+++ b/script-fu/3.0/przem-lith-effect-v3.scm
@@ -4,12 +4,17 @@
 ; Gdańsk - 25-12-2025
 ; ver. 2.260108-0~beta
 
-(define (przem-lith-effect-v3 img drawable)
+(define (przem-lith-effect-v3 img drawable shades)
   (let* (
     (source-layer (vector-ref (car (gimp-image-get-layers img)) 0 ))
 	(type-layer (vector-ref drawable 0))
     (type (car (gimp-drawable-type type-layer)))
-
+    (hot-lith (list 150 75 0))
+    (light-lithium-brown (list 217 169 121))
+	(warm-honey-brown (list 200 146 90))
+	(golden-clay (list 185 125 74))
+	(amber-brown (list 168 106 58))
+	(lit 0)
 	)
   (gimp-context-push)
   (gimp-image-undo-group-start img)
@@ -43,6 +48,26 @@
 		0.5
 	)
 
+	(if (= shades 0)
+       (begin
+       (set! lit hot-lith)
+     ))
+	(if (= shades 1)
+       (begin
+       (set! lit light-lithium-brown)
+     ))
+     (if (= shades 2)
+       (begin
+       (set! lit warm-honey-brown)
+     ))
+     (if (= shades 3)
+       (begin
+       (set! lit golden-clay)
+     ))
+     (if (= shades 4)
+       (begin
+       (set! lit amber-brown)
+     ))
 	;; 3. Tonowanie (ciepły lith)
 	(gimp-drawable-merge-new-filter 
 		type-layer
@@ -50,7 +75,7 @@
 		0
 		LAYER-MODE-REPLACE
 		0.5         
-		"value" (list 150 75 0)
+		"value" lit
 	)
 
   ;; 4. Ziarno (noise-rgb)
@@ -81,6 +106,8 @@
  "25-12-2025"
  "RGB* GRAY*"
  SF-ONE-OR-MORE-DRAWABLE
+ SF-OPTION     _"Shades of lithium" '("Hot Lith" "Light Lithium Brown" "Warm Honey Brown" "Golden Clay" "Amber Brown")
+
 )
 
 (script-fu-menu-register "przem-lith-effect-v3"
diff --git a/script-fu/3.0/przem-surreal-v3.scm b/script-fu/3.0/przem-surreal-v3.scm
index a0a3680..fd9654e 100644
--- a/script-fu/3.0/przem-surreal-v3.scm
+++ b/script-fu/3.0/przem-surreal-v3.scm
@@ -2,9 +2,9 @@
 ; author: PRP
 ; licencja: Public Domain
 ; Gdańsk - 24-12-2025
-; ver. 2.251225-0~beta
+; ver. 2.260109-0~beta
 
-(define (przem-surreal-v3 img drawable)
+(define (przem-surreal-v3 img drawable shades)
   (let* (
          (width (car (gimp-image-get-width img)))
 		 (height (car (gimp-image-get-height img)))
@@ -13,6 +13,9 @@
          (green-layer (car (gimp-layer-new img "Green" width height RGB-IMAGE 100 LAYER-MODE-NORMAL)))
 		 (type-layer (vector-ref drawable 0))
 		 (type (car (gimp-drawable-type type-layer)))
+		 (blue-glow  (list 102 204 255))
+		 (blue-pastel (list 153 221 255))
+		 (blue 0)
         )
         
 	(gimp-context-push)
@@ -31,13 +34,25 @@
 	(if (= type RGB-IMAGE)
 		(gimp-drawable-desaturate type-layer DESATURATE-LIGHTNESS)
 	)
-
-	(define filter (gimp-drawable-merge-new-filter layer-copy "gegl:colorize"))
-	; dodajemy lekką niebieską poświatę - chłodzącą zdjęcie
-    (gimp-item-set-property filter "hue" 210.0)
-	(gimp-item-set-property filter "saturation" 0.18)
-	(gimp-item-set-property filter "lightness" 0.02)
-    (gimp-drawable-merge-filter layer-copy filter)
+    
+    (if (= shades 0)
+       (begin
+       (set! blue blue-glow)
+     ))
+	(if (= shades 1)
+       (begin
+       (set! blue blue-pastel)
+     ))
+    
+    ;; 3. Tonowanie (niebieska poświata)
+	(gimp-drawable-merge-new-filter 
+		layer-copy
+		"gegl:color"
+		0
+		LAYER-MODE-ADDITION
+		0.1         
+		"value" blue
+	)
     
     ; Rozmycie dla efektu mgły
 	(gimp-drawable-merge-new-filter layer-copy "gegl:gaussian-blur"  RUN-NONINTERACTIVE LAYER-MODE-REPLACE 1.0 "std-dev-x" 10.0 "std-dev-y" 10.0  "filter" "auto")
@@ -67,6 +82,8 @@
  "24-12-2025"
  "RGB* GRAY*"
  SF-ONE-OR-MORE-DRAWABLE
+ SF-OPTION     _"Shades of blue" '("Glow" "Pastel")
+
 )
 
 (script-fu-menu-register "przem-surreal-v3"
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 152389e..eca13ab 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,7 @@
+# [2.260109-0] przem-lith-effect-v3.scm, przem-surreal-v3.scm
+* Dodanie checkboxa z wyborem odcienia dla Obróbki Litowej
+* gegl:color dla surreal
+
 # [2.260108-0]  przem-lith-effect-v3.scm
 * Finalna wersja odbitki litowej
 
-- 
cgit v1.2.3