2.260722-2:przem-low-detail-v3x.scm

3 files changed, 48 insertions, 6 deletions

diff --git a/script-fu/3.x/przem-dramatic-light-3x.scm b/script-fu/3.x/przem-dramatic-light-3x.scm
index 49ab35d..0c29e66 100644
--- a/script-fu/3.x/przem-dramatic-light-3x.scm
+++ b/script-fu/3.x/przem-dramatic-light-3x.scm
@@ -1,11 +1,11 @@
 ; przem-dramatic-light-3x Tworzy dramatyczne światło, wysoki kontrast.
 ; Przmeysław R. Pietraszczyk
 ; 2026-07-21
-; ver 2.260722-1
+; ver 2.260722-2
 ; editor: KWrite
 
 
-(define (przem-dramatic-light-3x img drawable)
+(define (przem-dramatic-light-3x img drawable grain mono)
 
   (gimp-context-push)
   (gimp-image-undo-group-start img)
@@ -15,10 +15,12 @@
         (type (car (gimp-drawable-type-with-alpha base-layer)))
         )
 
-        (if (= type RGBA-IMAGE)
-        (gimp-drawable-desaturate base-layer DESATURATE-LIGHTNESS))
+        (if (= mono TRUE) (begin
+          (if (= type RGBA-IMAGE)
+          (gimp-drawable-desaturate base-layer DESATURATE-LIGHTNESS))))
 
-        ;(gimp-drawable-merge-new-filter base-layer "gegl:noise-hsv" "Noise-HSV" LAYER-MODE-REPLACE 1.0 "std-dev-x" 2.5 "std-dev-y" 2.5 "dulling" 2 "hue" 0.3 "saturation" 0.5 "value" 0.5 "seed" 42)
+        (if (= grain TRUE) (begin
+          (gimp-drawable-merge-new-filter base-layer "gegl:noise-hsv" "Noise-HSV" LAYER-MODE-REPLACE 1.0 "holdness" 2 "hue-distance" 0.3 "saturation-distance" 0.5 "value-distance" 0.5 "seed" 42)))
 
         ;; Apply strong curves to push light from top
         (let* (
@@ -54,7 +56,10 @@
  "Public Domain"
  "21-07-2026"
  "RGB* GRAY*"
- SF-ONE-OR-MORE-DRAWABLE
+  SF-ONE-OR-MORE-DRAWABLE
+  SF-TOGGLE _"Grain" FALSE
+  SF-TOGGLE _"Monochromatic" TRUE
+
 )
 (script-fu-menu-register "przem-dramatic-light-3x"
                          "<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.x/przem-low-detail-v3x.scm b/script-fu/3.x/przem-low-detail-v3x.scm
new file mode 100644
index 0000000..35f678d
--- /dev/null
+++ b/script-fu/3.x/przem-low-detail-v3x.scm
@@ -0,0 +1,33 @@
+; przem-low-detail-v3x - Zmniejsza szczegółowość zdjęcia (pixelize + blur + posterize
+; Przmeysław R. Pietraszczyk
+; 2026-07-22
+; ver 2.260722-2
+; editor: KWrite
+
+(define (przem-low-detail-v3x image drawable px-size blur-radius posterize-levels)
+    (let* ((base-layer (vector-ref drawable 0)))
+
+    (gimp-image-undo-group-start image)
+    (gimp-drawable-merge-new-filter base-layer "gegl:pixelize" "PIXELIZE" LAYER-MODE-REPLACE 1.0 "size-x" px-size "size-y" px-size)
+    (gimp-drawable-merge-new-filter base-layer "gegl:gaussian-blur" "GAUSSIAN-BLUR" LAYER-MODE-REPLACE 1.0 "std-dev-x" blur-radius "std-dev-y" blur-radius "filter" "IIR")
+    (gimp-drawable-posterize base-layer posterize-levels)
+    )
+    (gimp-image-undo-group-end image)
+    (gimp-displays-flush)
+)
+
+(script-fu-register-filter "przem-low-detail-v3x"
+ "Low Detail"
+ "Zmniejsza szczegółowość zdjęcia (pixelize + blur + posterize)"
+ "PRP"
+ "Public Domain"
+ "2026-07-22"
+ "RGB* GRAY*"
+ SF-ONE-OR-MORE-DRAWABLE
+ SF-ADJUSTMENT "Pixel size" '(8 1 16 1 10 0 0)
+ SF-ADJUSTMENT "Blur radius" '(3 1 100 1 10 0 0)
+ SF-ADJUSTMENT "Posterize levels" '(6 2 64 1 10 0 0)
+)
+
+(script-fu-menu-register "przem-low-detail-v3x"
+                         "<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index f70010e..a054dd5 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,7 @@
+# [2.260722-1] przem-dramatic-light-3x.scm && przem-low-detail-v3x.scm
+* Implementacja stałego ziarna w dramatic-light
+* Nowy filtr redukujcy szczeguły
+
 # [2.260722-1] przem-dramatic-light-3x.scm
 * Rozpiska dla noise hsv - nie działa