From 0380c6403b9684909edbfd0a41f3ea32e452cf16 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw=20R=2E=20Pietraszczyk?= Date: Tue, 21 Jul 2026 20:32:17 +0200 Subject: 2.260721-2 --- script-fu/3.x/przem-dramatic-light-3x.scm | 67 ++++++++++++------------------- script-fu/changelog.md | 3 ++ 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" "/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 -- cgit v1.2.3