From 8a92dd0d1fa84d81358ec8c9314567ea8700d3ed Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw?= Date: Wed, 8 Apr 2026 15:18:34 +0200 Subject: przem-teal-portrait-look-v3.scm:2.260408-1:noise --- script-fu/3.0/przem-teal-portrait-look-v3.scm | 25 ++++++++++++++++++++++++- script-fu/changelog.md | 3 +++ 2 files changed, 27 insertions(+), 1 deletion(-) diff --git a/script-fu/3.0/przem-teal-portrait-look-v3.scm b/script-fu/3.0/przem-teal-portrait-look-v3.scm index e4cfd5c..0fa766e 100644 --- a/script-fu/3.0/przem-teal-portrait-look-v3.scm +++ b/script-fu/3.0/przem-teal-portrait-look-v3.scm @@ -1,7 +1,7 @@ ; przem-teal-portrait-look-v3 - Fotografia portretowa na sterydach ; 2026-04-06 - Przemysław R. Pietraszczyk ; licence: GPL v3 -; ver. 2.260407-0 +; ver. 2.260408-1 ; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm' ; Autorstwa Spencer Kimball @@ -107,12 +107,32 @@ (work-layer (car (gimp-layer-copy ref-layer TRUE))) (color-layer (car (gimp-layer-copy ref-layer TRUE))) (the-layer 0) + (width (car (gimp-image-get-width img))) + (height (car (gimp-image-get-height img))) + (noise-layer (car (gimp-layer-new img "Noise" width height RGB-IMAGE 100 LAYER-MODE-NORMAL))) + ;(fg-color '(203 182 138)) + (fg-color '(217 199 161)) ) (gimp-context-push) (gimp-image-undo-group-start img) + + (gimp-image-insert-layer img noise-layer 0 -1) + + + ; Generuj szum + (let* ((noise-width (cadddr (gimp-drawable-mask-intersect noise-layer))) + (noise-height (caddr (cddr (gimp-drawable-mask-intersect noise-layer))))) + + (gimp-drawable-merge-new-filter noise-layer "gegl:noise-solid" 0 LAYER-MODE-REPLACE 1.0 "tileable" FALSE "turbulent" FALSE "seed" 0 + "detail" 1 "x-size" 4.0 "y-size" 4.0 + "width" noise-width "height"noise-height)) + (gimp-context-set-foreground fg-color) + (gimp-drawable-fill noise-layer FILL-TRANSPARENT) + ;(gimp-selection-all img) (set! the-layer (car (gimp-image-flatten img))) + (gimp-layer-set-opacity the-layer 100) (gimp-image-insert-layer img color-layer 0 -1) (if (= mode 0) (begin @@ -129,6 +149,9 @@ (saturation work-layer) (gimp-layer-set-opacity work-layer 40) + + + ;(let* ((merged-layer (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))) ; (gimp-item-set-visible merged-layer TRUE)) ;(gimp-selection-none img) diff --git a/script-fu/changelog.md b/script-fu/changelog.md index 70adcd2..11e1a25 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,6 @@ +# [2.260408-1] przem-teal-portrait-look-v3 +* Czarno-biala implementacja szumu + # [2.260408-0] przem-teal-portrait-look-v3 * Dodanie nowego balansu koloru - piaskowy (Sand) -- cgit v1.2.3