2.260721-2

2 files changed, 29 insertions, 41 deletions

diff --git a/script-fu/3.x/przem-dramatic-light-3x.scm b/script-fu/3.x/przem-dramatic-light-3x.scm
index 81e3b46..bcccc57 100644
--- a/script-fu/3.x/przem-dramatic-light-3x.scm
+++ b/script-fu/3.x/przem-dramatic-light-3x.scm
@@ -1,58 +1,48 @@
 ; przem-dramatic-light-3x Tworzy dramatyczne światło z góry, wysoki kontrast i teksturę.
 ; Przmeysłąw R. Pietraszczyk
 ; 2026-07-21
-; ver 2.260721-0
+; ver 2.260721-2
+; editor: KWrite
 
 
-(define (przem-dramatic-light-3x img drawable
-                     )
-                     ; hue-range
-                     ; saturation-range
-                      ; value-range
-                     ; dulling
-                     ; seed
+(define (przem-dramatic-light-3x img drawable)
+
   (gimp-image-undo-group-start img)
 
   ;; Duplicate layer for non-destructive workflow
   (let* (
         (base-layer (vector-ref drawable 0))
-        (light-layer (car (gimp-layer-copy base-layer TRUE)))
-        (contrast-layer (car (gimp-layer-copy base-layer TRUE)))
-        (grain-layer (car (gimp-layer-copy base-layer TRUE)))
         (type (car (gimp-drawable-type-with-alpha base-layer)))
-
         )
-        ;; Add layers
-        (gimp-image-insert-layer img light-layer 0 -1)
-        (gimp-image-insert-layer img contrast-layer 0 -1)
-        (gimp-image-insert-layer img grain-layer 0 -1)
 
         (if (= type RGBA-IMAGE)
-        (gimp-drawable-desaturate layer DESATURATE-LIGHTNESS))
+        (gimp-drawable-desaturate base-layer DESATURATE-LIGHTNESS))
+
+        (gimp-drawable-merge-new-filter base-layer "gegl:noise-hsv" "Noise-HSV" LAYER-MODE-REPLACE 1.0)
+        (gimp-layer-set-mode base-layer LAYER-MODE-NORMAL)
+        (gimp-layer-set-opacity base-layer 100)
+
         ;; Apply strong curves to push light from top
-        (let* ((finish-layer (car (gimp-layer-copy light-layer brightness-contrast TRUE)))
-			(gimp-drawable-curves-spline finish-layer HISTOGRAM-VALUE 6 #(0 0  64 180  128 230  255 255))
+        (let* (
+            (light-layer (car (gimp-layer-copy base-layer TRUE)))
+            (contrast-layer (car (gimp-layer-copy base-layer TRUE)))
+
+			(gimp-drawable-curves-spline light-layer HISTOGRAM-VALUE 6 #(0 0  64 180  128 230  255 255))
 			 ;; Set blending mode
-            (gimp-layer-set-mode light-layer OVERLAY-MODE)
-			(gimp-layer-set-opacity finish-layer 85)
+            (gimp-layer-set-mode light-layer LAYER-MODE-NORMAL)
+			(gimp-layer-set-opacity light-layer 90)
 
 			(gimp-drawable-curves-spline contrast-layer HISTOGRAM-VALUE 6 #(0 0  64 40  128 128  192 220  255 255))
 			; neo grain- dissolve
-			(gimp-layer-set-mode light-layer DISSOLVE-MODE)
-			(gimp-layer-set-opacity finish-layer 70)
-			))
-
-         ;(gegl:apply drawable
-        ;      "noise-hsv"
-        ;      (list
-        ;        (cons "hue" hue-range)
-        ;        (cons "saturation" saturation-range)
-        ;;        (cons "value" value-range)
-        ;        (cons "dulling" dulling)
-        ;        (cons "seed" seed)))
+			(gimp-layer-set-mode contrast-layer LAYER-MODE-DISSOLVE)
+			(gimp-layer-set-opacity contrast-layer 80)
 
+			;; Add layers
+            (gimp-image-insert-layer img light-layer 0 -1)
+            (gimp-image-insert-layer img contrast-layer 0 -1)
+			))
 
-        (let* ((merged-layer (car (gimp-image-merge-visible-layers image CLIP-TO-IMAGE))))
+        (let* ((merged-layer (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))))
 			;(gimp-image-merge-visible-layers image CLIP-TO-IMAGE)
 			(gimp-item-set-visible merged-layer TRUE))
     )
@@ -61,7 +51,7 @@
   (gimp-displays-flush)
 )
 
-(script-fu-register "przem-dramatic-light-3x"
+(script-fu-register-filter "przem-dramatic-light-3x"
  _"Dramatic Light Effect"
  _"Tworzy dramatyczne światło z góry, wysoki kontrast i teksturę."
  "Przemysław R. Pietraszczyk"
@@ -69,14 +59,9 @@
  "21-07-2026"
  "RGB* GRAY*"
  SF-ONE-OR-MORE-DRAWABLE
-
 )
 (script-fu-menu-register "przem-dramatic-light-3x"
                          "<Image>/Filters/PIETRASZCZYK/")
 
 
-;SF-ADJUSTMENT _"Hue range"  '(0.2 0 1 0.1 0.1 2 0)
-; SF-ADJUSTMENT _"Saturation range"  '(0.2 0 1 0.1 0.1 2 0)
-; SF-ADJUSTMENT _"Value range"  '(0.2 0 1 0.1 0.1 2 0)
-; SF-ADJUSTMENT _"Dulling"  '(0.2 0 1 0.1 0.1 2 0)
-; SF-ADJUSTMENT _"Seed"  '(1 1 10 1 1 0 0)
+
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 7244383..ef1c993 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,6 @@
+# [2.260721-2] przem-dramatic-light-3x.scm
+* Filtr tworzy dramatyczne światło z góry, wysoki kontrast i teksturę.
+
 # [2.260721-0] przem-dramatic-light-3x.scm
 * Prealpha nowego filtra