From a2598247ce33142145aa656b094c4467e6335527 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw=20R=2E=20Pietraszczyk?= Date: Sun, 24 Aug 2025 10:53:48 +0200 Subject: 2.250824-1 --- script-fu/3.0/przem-wet-collodion-v3.scm | 15 +++++++++------ script-fu/changelog.md | 3 +++ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/script-fu/3.0/przem-wet-collodion-v3.scm b/script-fu/3.0/przem-wet-collodion-v3.scm index 88f1b18..1ab6656 100644 --- a/script-fu/3.0/przem-wet-collodion-v3.scm +++ b/script-fu/3.0/przem-wet-collodion-v3.scm @@ -2,12 +2,10 @@ ; author: PRP ; licencja: Public Domain ; Gdańsk - 24-08-2025 -; ver. 2.250824-0~beta +; ver. 2.250824-1~beta (define (add-hsv-noise img drawable intensity-h intensity-s intensity-v grain) (let* ( - ;(width (car (gimp-image-get-width drawable))) - ;(height (car (gimp-image-get-height drawable))) (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))) @@ -97,12 +95,13 @@ -(define (przem-wet-collodion-v3 image drawable intensity-h intensity-s intensity-v grain blur) +(define (przem-wet-collodion-v3 image drawable mode intensity-h intensity-s intensity-v grain blur) (let* ( (layer (vector-ref drawable 0)) (type (car (gimp-drawable-type-with-alpha layer))) (width (car (gimp-image-get-width image))) (height (car (gimp-image-get-height image))) + (mode-blur 0) ) (gimp-image-undo-group-start image) @@ -123,7 +122,10 @@ ;;(plug-in-noisify RUN-NONINTERACTIVE image layer FALSE grain grain grain 0) ;; Dodanie lekkiego rozmycia - (gimp-drawable-merge-new-filter layer "gegl:gaussian-blur" 0 LAYER-MODE-REPLACE 1.0 "std-dev-x" blur "std-dev-y" blur "filter" "auto") + (if (= mode 0) (begin (set! mode-blur "auto"))) + (if (= mode 1) (begin (set! mode-blur "iir"))) + (if (= mode 2) (begin (set! mode-blur "fir"))) + (gimp-drawable-merge-new-filter layer "gegl:gaussian-blur" 0 LAYER-MODE-REPLACE 1.0 "std-dev-x" blur "std-dev-y" blur "filter" mode-blur) (gimp-image-undo-group-end image) (gimp-displays-flush) @@ -136,8 +138,9 @@ "PRP" "Public Domain" "2025-07-15" - "RGB*" + "RGB* GRAY*" SF-ONE-OR-MORE-DRAWABLE + SF-OPTION "Mode" '("AUTO" "IIR" "FIR") SF-ADJUSTMENT "Hue Noise Intensity" '(30 0 100 1 10 0 0) SF-ADJUSTMENT "Saturation Noise Intensity" '(20 0 100 1 10 0 0) SF-ADJUSTMENT "Value Noise Intensity" '(15 0 100 1 10 0 0) diff --git a/script-fu/changelog.md b/script-fu/changelog.md index 9486683..37afbbe 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,6 @@ +# [2.250824-1] +* dodanie opcji MODE dla rozmycia z trybami: AUTO, IIR, FIR + # [2.250824-0] przem-wet-collodion-v3 * Mokry kolodion dla Gimpa 3.0 -- cgit v1.2.3