From 60ff4bfe829e3a8bdfb4b219123821439d7cdf9a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw?= <przem@prymula.ct8.pl>
Date: Thu, 25 Dec 2025 21:12:01 +0100
Subject: 2.251225-1:/przem-lith-effect-v3.scm

---
 script-fu/3.0/przem-lith-effect-v3.scm | 63 ++++++++++++++++++++++++++++++++++
 script-fu/changelog.md                 |  3 ++
 2 files changed, 66 insertions(+)
 create mode 100644 script-fu/3.0/przem-lith-effect-v3.scm

diff --git a/script-fu/3.0/przem-lith-effect-v3.scm b/script-fu/3.0/przem-lith-effect-v3.scm
new file mode 100644
index 0000000..0220952
--- /dev/null
+++ b/script-fu/3.0/przem-lith-effect-v3.scm
@@ -0,0 +1,63 @@
+; przem-lith-effect-v3 - imitacja odbitki litowej
+; author: PRP
+; licencja: Public Domain
+; Gdańsk - 25-12-2025
+; ver. 2.251225-1~beta
+
+(define (przem-lith-effect-v3 img drawable)
+  (let* (
+    (source-layer (vector-ref (car (gimp-image-get-layers img)) 0 ))
+	(layer-copy 0)
+  )
+  (gimp-context-push)
+  (gimp-image-undo-group-start img)
+
+  (set! layer-copy (car (gimp-layer-copy source-layer)))
+
+
+  ;; 1. Mocny kontrast (levels)
+  ;(let* ((f1 (gimp-drawable-merge-new-filter layer-copy "gegl:levels")))
+  ;  (gimp-item-set-property f1 "low-input" 0.15)
+  ;  (gimp-item-set-property f1 "high-input" 0.85)
+  ;  (gimp-drawable-merge-filter layer-copy f1))
+
+  ;; 2. Miękkie światła (soft glow)
+ ; (let* ((f2 (gimp-drawable-merge-new-filter layer-copy "gegl:softglow")))
+  ;  (gimp-item-set-property f2 "glow-radius" 25.0)
+  ;  (gimp-item-set-property f2 "brightness" 0.20)
+  ;  (gimp-item-set-property f2 "sharpness" 0.50)
+  ;  (gimp-drawable-merge-filter layer-copy f2))
+
+  ;; 3. Tonowanie (ciepły lith)
+  (let* ((f3 (gimp-drawable-merge-new-filter layer-copy "gegl:colorize")))
+    (gimp-item-set-property f3 "hue" 30.0)        ;; ciepły brąz
+    (gimp-item-set-property f3 "saturation" 0.25)
+    (gimp-item-set-property f3 "lightness" 0.02)
+    (gimp-drawable-merge-filter layer-copy f3))
+
+  ;; 4. Ziarno (noise-rgb)
+ ; (let* ((f4 (gimp-drawable-merge-new-filter layer-copy "gegl:noise-rgb")))
+ ;   (gimp-item-set-property f4 "red" 0.02)
+ ;   (gimp-item-set-property f4 "green" 0.02)
+  ;  (gimp-item-set-property f4 "blue" 0.02)
+  ;  (gimp-item-set-property f4 "alpha" 0.00)
+ ;   (gimp-drawable-merge-filter layer-copy f4))
+
+  (gimp-image-undo-group-end img)
+  (gimp-displays-flush)
+  (gimp-context-pop)
+  )
+)
+
+(script-fu-register-filter "przem-lith-effect-v3"
+ "_Lith-effect"
+ "_Odbitka Litowa"
+ "P.R.P"
+ "Public Domain"
+ "25-12-2025"
+ "RGB* GRAY*"
+ SF-ONE-OR-MORE-DRAWABLE
+)
+
+(script-fu-menu-register "przem-lith-effect-v3"
+                         "<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 5b38ac7..5f0771b 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,6 @@
+# [2.251225-1]  przem-lith-effect-v3.scm
+* Propozycja nowej wtyczki dt. Odbitki Litowej
+
 # [2.251225-0] przem-surreal-v3.scm
 * gimp-colorize przez GEGL - schładzanie zdjęcia
 
-- 
cgit v1.2.3