From e98c30bd7ef9abb3619a37969836ffbc436d4499 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw?= <przem@prymula.ct8.pl>
Date: Thu, 25 Dec 2025 15:24:21 +0100
Subject: 2.251225-0:/przem-surreal-v3.scm

---
 script-fu/3.0/przem-surreal-v3.scm | 21 +++++++++++----------
 script-fu/changelog.md             |  3 +++
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/script-fu/3.0/przem-surreal-v3.scm b/script-fu/3.0/przem-surreal-v3.scm
index 0dd02fe..a0a3680 100644
--- a/script-fu/3.0/przem-surreal-v3.scm
+++ b/script-fu/3.0/przem-surreal-v3.scm
@@ -1,11 +1,11 @@
 ; przem-surreal-v3 - imitacja surrealistycznych obrazów
 ; author: PRP
 ; licencja: Public Domain
-; Gdańsk - 22-6-2025
-; ver. 2.250712-0~beta
+; Gdańsk - 24-12-2025
+; ver. 2.251225-0~beta
+
 (define (przem-surreal-v3 img drawable)
   (let* (
-         ; Duplikujemy warstwę
          (width (car (gimp-image-get-width img)))
 		 (height (car (gimp-image-get-height img)))
          (layer-copy 0)
@@ -13,8 +13,8 @@
          (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)))
-
         )
+        
 	(gimp-context-push)
 	(gimp-image-undo-group-start img)
 
@@ -31,13 +31,14 @@
 	(if (= type RGB-IMAGE)
 		(gimp-drawable-desaturate type-layer DESATURATE-LIGHTNESS)
 	)
-        
-    ; Dodajemy lekki niebieski odcień
-    ;(gimp-colorize layer-copy 200 30 0)
-    (gimp-context-set-foreground '(200 30 0))
-    
-    ;(gimp-image-insert-layer img gauss-layer -1)
 
+	(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)
+    
     ; 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")
 
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 5785423..5b38ac7 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,6 @@
+# [2.251225-0] przem-surreal-v3.scm
+* gimp-colorize przez GEGL - schładzanie zdjęcia
+
 # [2.251224-0] przem-surreal-v3.scm
 * Implementacja script-fu imitującego surrealistyczne obrazy 
 
-- 
cgit v1.2.3