2.260805-1:przem-sepia-dust-v3x.scmHEADmaster

3 files changed, 95 insertions, 3 deletions

diff --git a/script-fu/3.x/przem-dramatic-light-v3x.scm b/script-fu/3.x/przem-dramatic-light-v3x.scm
index 2960f11..097f823 100644
--- a/script-fu/3.x/przem-dramatic-light-v3x.scm
+++ b/script-fu/3.x/przem-dramatic-light-v3x.scm
@@ -5,7 +5,7 @@
 ; editor: KWrite
 
 
-(define (przem-dramatic-light-3x img drawable grain mono)
+(define (przem-dramatic-light-v3x img drawable grain mono)
 
   (gimp-context-push)
   (gimp-image-undo-group-start img)
@@ -50,7 +50,7 @@
   (gimp-context-pop)
 )
 
-(script-fu-register-filter "przem-dramatic-light-3x"
+(script-fu-register-filter "przem-dramatic-light-v3x"
  _"Dramatic Light Effect"
  _"Tworzy dramatyczne światło, wysoki kontrast"
  "Przemysław R. Pietraszczyk"
@@ -62,7 +62,7 @@
   SF-TOGGLE _"Monochromatic" TRUE
 
 )
-(script-fu-menu-register "przem-dramatic-light-3x"
+(script-fu-menu-register "przem-dramatic-light-v3x"
                          "<Image>/Filters/PIETRASZCZYK/")
 
 
diff --git a/script-fu/3.x/przem-sepia-dust-v3x.scm b/script-fu/3.x/przem-sepia-dust-v3x.scm
new file mode 100644
index 0000000..b77c3fe
--- /dev/null
+++ b/script-fu/3.x/przem-sepia-dust-v3x.scm
@@ -0,0 +1,85 @@
+;  przem-sepia-dust-v3xTworzy dramatyczne światło, wysoki kontrast.
+; Przmeysław R. Pietraszczyk
+; 2026-08-05
+; ver 2.260805-0
+; editor: Kate
+
+(define (przem-sepia-dust-v3x image drawable)
+  (let* (
+          (image-width (car ( gimp-image-get-width image)))
+          (image-height (car (gimp-image-get-height image)))
+          (new-layer 0)
+          (grain-layer 0)
+          (curves-layer 0)
+          (base-layer (vector-ref drawable 0))
+          (type (car (gimp-drawable-type-with-alpha base-layer)))
+        )
+
+    (gimp-image-undo-group-start image)
+
+    ; 1. Desaturacja (konwersja na czarno-biały)
+    ;(gimp-desaturate drawable DESATURATE-LUMINOSITY)
+    (if (= type RGBA-IMAGE)
+      (gimp-drawable-desaturate base-layer DESATURATE-LIGHTNESS)
+    )
+    (set! new-layer (car (gimp-layer-copy base-layer TRUE)))
+    (set! grain-layer (car (gimp-layer-copy base-layer TRUE)))
+    (set! curves-layer (car (gimp-layer-copy base-layer TRUE)))
+
+
+    ; 2. Warstwa koloryzująca (Sepia Brown)
+    (gimp-image-insert-layer image new-layer 0 -1)
+    (gimp-context-set-background '(165 142 123)) ; Kolor: #A58E7B
+    ;(gimp-edit-fill new-layer FILL-FOREGROUND)
+    (gimp-drawable-edit-fill new-layer FILL-BACKGROUND)
+
+    (gimp-layer-set-mode new-layer LAYER-MODE-NORMAL)
+    (gimp-layer-set-opacity new-layer 25)
+
+    ; 3. Warstwa szumu (Ziarno filmowe)
+    (gimp-image-insert-layer image grain-layer 0 -1)
+    (gimp-context-set-foreground '(128 128 128)) ; 50% szarości
+    ;(gimp-edit-fill grain-layer FILL-FOREGROUND)
+    (gimp-drawable-edit-fill new-layer FILL-FOREGROUND)
+    ;(plug-in-noise-hurl 1 grain-layer 0 FALSE 50 50 50)
+    (gimp-drawable-merge-new-filter grain-layer "gegl:noise-hsv" "Noise-HSV" LAYER-MODE-NORMAL 0.8 "holdness" 2 "hue-distance" 0.3 "saturation-distance" 0.5 "value-distance" 0.5 "seed" 50)
+
+    ;(plug-in-gauss-rle 1 grain-layer 1.5 TRUE TRUE) ; Miękkie rozmycie szumu
+    (gimp-drawable-merge-new-filter grain-layer "gegl:gaussian-blur" "Gauss-Blur" LAYER-MODE-NORMAL 0.8  "std-dev-x" 1.5 "std-dev-y" 1.5)
+
+    (gimp-layer-set-mode grain-layer LAYER-MODE-OVERLAY)
+    ;(gimp-layer-set-opacity grain-layer 25)
+
+    ; 4. Warstwa krzywych (Podbicie czerni - mleczny wygląd)
+    (gimp-image-insert-layer image curves-layer 0 -1)
+    (gimp-layer-set-mode curves-layer LAYER-MODE-NORMAL)
+    (gimp-layer-set-opacity curves-layer 25)
+
+    ; Tworzymy krzywą (wejście 0 -> wyjście 30, wejście 255 -> wyjście 245)
+    (let* (
+            (channels #(0 0 0))
+            (curve-points #(0 30 255 245))
+          )
+      ;(gimp-curves-explicit curves-layer HISTOGRAM-VALUE channels curve-points)
+      (gimp-drawable-curves-spline curves-layer HISTOGRAM-VALUE curve-points)
+    )
+
+    ; Spłaszczenie i koniec
+    (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)
+    (gimp-image-undo-group-end image)
+    (gimp-displays-flush)
+  )
+)
+
+(script-fu-register-filter "przem-sepia-dust-v3x"
+  _"Sepia Dust Effect"
+  _"Tworzy vintage'owy efekt sepii z szumem i mlecznymi czerniami"
+  "Przemysław R. Pietraszczyk"
+  "Public Domain"
+  "2026-08-04"
+  "RGB* GRAY*"
+  SF-ONE-OR-MORE-DRAWABLE
+)
+
+(script-fu-menu-register "przem-sepia-dust-v3x" "<Image>/Filters/PIETRASZCZYK/"
+)
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index a0d8172..2e18984 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,10 @@
+# [2.260805-1] przem-sepia-dust-v3x.scm
+* Kopiowanie warstw roboczych z base-layer
+* FILL-BACKGROUND dla new-image
+
+# [2.260805-0] przem-sepia-dust-v3x.scm
+* Nowy filtr imitujący mleczną sepie
+
 # [2.260802-1] przem-film-curves-v3x.scm
 * Dodanie pseudo szarej sepii
 * Opcjonalny HISTOGRAM-VALUE