From f10610bbccb7ad1d664eec0a1e9001dc786c87f3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw?= Date: Thu, 9 Apr 2026 20:44:31 +0200 Subject: przem-teal-portrait-look-v3.scm:2.260409-0 --- script-fu/3.0/przem-teal-portrait-look-v3.scm | 35 +++++++++------------------ script-fu/changelog.md | 5 +++- 2 files changed, 15 insertions(+), 25 deletions(-) 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 7afa97b..1e45612 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.260408-2 +; ver. 2.260409-0 ; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm' ; Autorstwa Spencer Kimball @@ -100,7 +100,7 @@ (highlights (bval c3))) )) -(define (przem-teal-portrait-look-v3 img drawable mode) +(define (przem-teal-portrait-look-v3 img drawable mode noise) (let* ( (ref-layer (vector-ref drawable 0)) @@ -110,28 +110,17 @@ (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)) + (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) - - (gimp-context-set-foreground fg-color) - (gimp-drawable-fill noise-layer FILL-TRANSPARENT) - - (gimp-layer-set-mode noise-layer LAYER-MODE-MULTIPLY) - - ; 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)) - + (if (= noise TRUE) (begin + (gimp-image-insert-layer img noise-layer 0 -1) + (gimp-context-set-foreground fg-color) + (gimp-drawable-fill noise-layer FILL-TRANSPARENT) + (gimp-layer-set-mode noise-layer LAYER-MODE-MULTIPLY))) ;(gimp-selection-all img) (set! the-layer (car (gimp-image-flatten img))) @@ -152,9 +141,6 @@ (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) @@ -172,7 +158,8 @@ "2026-04-06" "RGB* GRAY*" SF-ONE-OR-MORE-DRAWABLE - SF-OPTION "Colors Balance" '("TEAL" "SAND") + SF-OPTION _"Colors Balance" '("TEAL" "SAND") + SF-TOGGLE _"Sand Noise" FALSE ) (script-fu-menu-register "przem-teal-portrait-look-v3" diff --git a/script-fu/changelog.md b/script-fu/changelog.md index b9ed248..2f4a0d7 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,8 +1,11 @@ +# [2.260409-0] przem-teal-portrait-look-v3 +* Nakłada samą warstwę MULTIPLE bez gegl:noise + # [2.260408-1] przem-teal-portrait-look-v3 * Nakłada kolorowy szum # [2.260408-1] przem-teal-portrait-look-v3 -* Czarno-biala k szumu +* Czarno-biała kalka szumu # [2.260408-0] przem-teal-portrait-look-v3 * Dodanie nowego balansu koloru - piaskowy (Sand) -- cgit v1.2.3