From 1a6c5332f6a0185d9e093c8851d4063dccfc5369 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw?= <przem@prymula.ct8.pl>
Date: Tue, 16 Jun 2026 16:20:03 +0200
Subject: 2.260616-0

---
 .../3.2/przem-hitchcock-d400-film-effect-v32.scm   | 72 ++++++++++++++++++++++
 script-fu/changelog.md                             |  3 +
 2 files changed, 75 insertions(+)
 create mode 100644 script-fu/3.2/przem-hitchcock-d400-film-effect-v32.scm

diff --git a/script-fu/3.2/przem-hitchcock-d400-film-effect-v32.scm b/script-fu/3.2/przem-hitchcock-d400-film-effect-v32.scm
new file mode 100644
index 0000000..35cd3c1
--- /dev/null
+++ b/script-fu/3.2/przem-hitchcock-d400-film-effect-v32.scm
@@ -0,0 +1,72 @@
+; przem-hitchcock-d400-film-effect-v3 - Imitacja filmu chińskiego HITCHOCK D400: kontrast, ciepłe światła, chłodne cienie, bloom
+; author: PRP
+; licencja: Public Domain
+; Gdańsk - 14-06-2026
+; ver. 2.260615-0
+
+(define (przem-hitchcock-d400-film-effect-v3 image drawable
+                                 contrast
+                                 lift-blacks
+                                 warm-highlights
+                                 cool-shadows
+                                 bloom-strength)
+	(gimp-context-push)
+    (gimp-image-undo-group-start image)
+
+  ;; Duplikat warstwy bazowej
+  (let* (
+         (type-layer (vector-ref drawable 0))
+         (layer (vector-ref drawable 0))
+         (work-layer (car (gimp-layer-copy layer TRUE)))
+         (bloom-layer 0)
+        )
+
+    (if (> (car (gimp-drawable-type type-layer)) 1)
+        (gimp-image-convert-rgb image)
+        )
+
+    (gimp-image-insert-layer image work-layer 0 -1)
+
+
+    (let* ((finish-layer (car (gimp-layer-copy layer TRUE)))
+			(gimp-drawable-curves-spline finish-layer HISTOGRAM-VALUE 10 #( 0 lift-blacks 64 (+ 48 contrast) 128 128 192 (- 208 contrast) 255 255))
+			(gimp-layer-set-opacity finish-layer 40)
+
+    ))
+
+    ;; 2. Ciepłe światła – Color Balance (midtones + highlights)
+    ; cyan-red - magenta-green - yellow-blue (ujemne = więcej żółtego, dodatnie = więcej niebieskiego)
+    (gimp-drawable-color-balance work-layer TRANSFER-SHADOWS FALSE 0 0 cool-shadows)
+    (gimp-drawable-color-balance work-layer TRANSFER-MIDTONES FALSE warm-highlights 0 (- warm-highlights))
+    (gimp-drawable-color-balance work-layer TRANSFER-HIGHLIGHTS FALSE warm-highlights 0 (- warm-highlights))
+
+    ;; 3. Delikatny bloom / glow (kopiujemy warstwę, rozmywamy, Soft light)
+    (set! bloom-layer (car (gimp-layer-copy layer TRUE)))
+    (gimp-image-insert-layer image bloom-layer 0 -1)
+    (gimp-layer-set-mode bloom-layer LAYER-MODE-SUBTRACT)
+    (gimp-drawable-merge-new-filter bloom-layer "gegl:gaussian-blur" 1 LAYER-MODE-REPLACE 1.0 "std-dev-x" 8.0 "std-dev-y" 8.0 "filter" "iir")
+    (gimp-layer-set-opacity bloom-layer bloom-strength)
+
+    (gimp-image-undo-group-end image)
+    (gimp-displays-flush)
+    (gimp-context-pop)
+  )
+)
+
+(script-fu-register-filter "przem-hitchcock-d400-film-effect-v3"
+ _"Hitchock d400 effect"
+ _"Imitacja filmu chińskiego HITCHCOCK D400: kontrast, ciepłe światła, chłodne cienie, bloom."
+ _"P.R.P"
+ "Public Domain"
+ "2026-06-14"
+ "*"
+ SF-ONE-OR-MORE-DRAWABLE
+ SF-ADJUSTMENT "Kontrast (0–80)" '(40 0 80 1 5 0 1)
+ SF-ADJUSTMENT "Black up (0–40)" '(12 0 40 1 5 0 1)
+ SF-ADJUSTMENT "Warm lights(–50 do 50)" '(15 -50 50 1 5 0 1)
+ SF-ADJUSTMENT "Cool shadows (–50 do 50)" '(-10 -50 50 1 5 0 1)
+ SF-ADJUSTMENT "Bloom – power (0–100)" '(35 0 100 1 5 0 1)
+)
+
+(script-fu-menu-register "przem-hitchcock-d400-film-effect-v3"
+                         "<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index aec139d..ede0079 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,6 @@
+# [2.260615-0] przem-hitchcock-d400-film-effect-v32.scm
+* Przekopiowanie filtra dla Gimpa 3.2
+
 # [2.260615-0] przem-hitchcock-d400-film-effect-v3.scm
 * Poprawki literówek w gui
 
-- 
cgit v1.2.3