From 067927d297a1323aec87370986bb65e94cbc58e2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw=20R=2E=20Pietraszczyk?= Date: Mon, 2 Nov 2026 18:13:35 +0100 Subject: 2.261102-3 --- script-fu/3.x/przem-retro-portrait-v3x.scm | 29 +++++++++++++++++------------ script-fu/changelog.md | 5 ++++- 2 files changed, 21 insertions(+), 13 deletions(-) (limited to 'script-fu') diff --git a/script-fu/3.x/przem-retro-portrait-v3x.scm b/script-fu/3.x/przem-retro-portrait-v3x.scm index 772c740..1cda012 100644 --- a/script-fu/3.x/przem-retro-portrait-v3x.scm +++ b/script-fu/3.x/przem-retro-portrait-v3x.scm @@ -2,7 +2,9 @@ ; author: PRP ; licencja: Public Domain ; Gdańsk - 01-11-2026 -; ver. 2.261101-3 +; ver. 2.261102-3 +; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm' +; Autorstwa Spencer Kimball (define (midtones val) (/ val 2.55)) @@ -33,8 +35,6 @@ (type (car (gimp-drawable-type-with-alpha layer))) (mask (car (gimp-channel-new image "Engraving Mask" (car (gimp-image-get-width image)) (car (gimp-image-get-height image)) black '(0.4 0.4 0.2 0.0 0.0 0.0 0.0 0.0 0.0)))) (gradient-layer 0) - (layer (vector-ref drawable 0)) - (type (car (gimp-drawable-type-with-alpha layer))) (blur-layer 0) (color-layer 0) ) @@ -53,18 +53,18 @@ ;; Dodaj ciepłe kolory przez saturację i odcień ;(gimp-drawable-brightness-contrast layer (/ brightness 100) 0) ; Odcień 30 = ciepłe kolory - (gimp-drawable-hue-saturation layer HUE-RANGE-ALL 0 0 (/ saturation 100) 30) - - ; dla obrazów przestrzeni RGB i Gray, utworzenie nowej warstwy, dopiero po kowersji na rgb - (set! gradient-layer (car (gimp-layer-new image "Gradient" (car (gimp-image-get-width image)) (car (gimp-image-get-height image)) RGBA-IMAGE 100 LAYER-MODE-NORMAL))) + ;(gimp-drawable-hue-saturation layer HUE-RANGE-ALL 0 0 (/ saturation 100) 30) (let* ( - (color-response (gimp-palette-get-entry-color palette 0)) (color (car color-response)) ) (gimp-context-set-foreground color) ) + + ; dla obrazów przestrzeni RGB i Gray, utworzenie nowej warstwy, dopiero po kowersji na rgb + (set! gradient-layer (car (gimp-layer-new image "Gradient" (car (gimp-image-get-width image)) (car (gimp-image-get-height image)) RGBA-IMAGE 100 LAYER-MODE-NORMAL))) + (gimp-image-insert-channel image mask -1 0) (gimp-image-insert-layer image gradient-layer 0 -1) (gimp-drawable-edit-gradient-fill gradient-layer @@ -72,7 +72,7 @@ FALSE 1 0 TRUE 0 0 0 0) - (gimp-layer-set-opacity gradient-layer 5) + (gimp-layer-set-opacity gradient-layer 100) ;; profil koloru sRGB - sgray.icc ;(gimp-image-set-color-profile-from-file image "/usr/share/ghostscript/10.08.0/iccprofiles/srgb.icc") @@ -100,20 +100,25 @@ (gimp-image-insert-layer image color-layer 0 -1) (gimp-drawable-merge-new-filter blur-layer "gegl:gaussian-blur" RUN-NONINTERACTIVE LAYER-MODE-REPLACE 0.90 "std-dev-x" 10.0 "std-dev-y" 10.0 "filter" "auto") + (gimp-layer-set-opacity blur-layer 70) (gimp-layer-set-mode blur-layer LAYER-MODE-NORMAL) ; NORMAL mode + (gimp-item-set-visible blur-layer TRUE) + ;(gimp-image-merge-down image blur-layer EXPAND-AS-NECESSARY) ;# W GIMP 3.0 używamy operacji GEGL przez PDB dla uzyskania ziarna - (gimp-drawable-merge-new-filter layer "gegl:noise-rgb" RUN-NONINTERACTIVE LAYER-MODE-REPLACE 0.80 "red" 0.05 "green" 0.05 "blue" 0.05 "alpha" 0.0 "seed" 0) + (gimp-drawable-merge-new-filter layer "gegl:noise-rgb" RUN-NONINTERACTIVE LAYER-MODE-REPLACE 0.80 "red" 0.05 "green" 0.05 "blue" 0.05 "alpha" 0.0 "seed" 0) (gimp-drawable-merge-new-filter layer "gimp:brightness-contrast" 0 LAYER-MODE-REPLACE 0.80 "brightness" (/ brightness 100) "contrast" (/ contrast 100)) + (gimp-layer-set-opacity layer 55) + (gimp-item-set-visible layer TRUE) ;# Delikatne przesunięcie kolorów w stronę żółci/czerwieni w cieniach i półtonach (color-balance color-layer) (gimp-layer-set-mode color-layer LAYER-MODE-NORMAL) ; NORMAL mode - (gimp-layer-set-opacity color-layer 75) + (gimp-layer-set-opacity color-layer 40) (gimp-image-undo-group-end image) @@ -135,7 +140,7 @@ SF-ADJUSTMENT "Saturation" '(0 -100 100 1 10 0 0) SF-PALETTE _"Palette" "Default" SF-ADJUSTMENT "Black" '(5 0 100 1 10 0 0) - SF-ADJUSTMENT "Hue" '(2 2 16 1 10 0 0) + SF-ADJUSTMENT "Hue" '(2 1 16 1 10 0 0) SF-OPTION "Dithering" '("None" "Floyd-Steinberg (normal)" "Floyd-Steinberg (reduced bluff)" "Position") ) diff --git a/script-fu/changelog.md b/script-fu/changelog.md index 8ab6c32..63e0033 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,4 +1,7 @@ -# [2.261101-2] przem-retro-portrait-v3x.scm +# [2.261102-3] przem-retro-portrait-v3x.scm +* Regres do wersji 2.261102-0 + +# [2.261102-2] przem-retro-portrait-v3x.scm * Obsługa ditheringu # [2.261101-2] przem-retro-portrait-v3x.scm -- cgit v1.2.3