From 9b46c992c8ec500f235ad7242d0ee15947f6c6a5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw=20R=2E=20Pietraszczyk?= Date: Wed, 16 Jul 2025 15:23:26 +0200 Subject: przem-wet-collodion.scm-2.250715-0 --- script-fu/2.10/przem-wet-collodion.scm | 42 ++++++++++++++++++++++++++++++++++ script-fu/changelog.md | 3 +++ 2 files changed, 45 insertions(+) create mode 100644 script-fu/2.10/przem-wet-collodion.scm diff --git a/script-fu/2.10/przem-wet-collodion.scm b/script-fu/2.10/przem-wet-collodion.scm new file mode 100644 index 0000000..13bcd7d --- /dev/null +++ b/script-fu/2.10/przem-wet-collodion.scm @@ -0,0 +1,42 @@ +(define (przem-wet-collodion image drawable) + (let* ( + (width (car (gimp-image-width image))) + (height (car (gimp-image-height image))) + ) + (gimp-image-undo-group-start image) + + ;; Desaturacja + (gimp-desaturate-full drawable DESATURATE-LUMINOSITY) + + ;; Dodanie winiety + (let* ((layer (car (gimp-layer-copy drawable TRUE)))) + (gimp-image-insert-layer image layer 0 -1) + (plug-in-gauss-iir2 RUN-NONINTERACTIVE image layer 200 200) + (gimp-layer-set-mode layer MULTIPLY-MODE) + (gimp-layer-set-opacity layer 60) + ) + + ;; Dodanie szumu + (plug-in-noisify RUN-NONINTERACTIVE image drawable FALSE 0.8 0.8 0.8 0) + + ;; Dodanie lekkiego rozmycia + (plug-in-gauss-iir2 RUN-NONINTERACTIVE image drawable 2 2) + + (gimp-image-undo-group-end image) + (gimp-displays-flush) + ) +) + +(script-fu-register "przem-wet-collodion" + _"Wet Collodion" + _"Imituje efekt mokrego kolodionu" + "PRP" + "Public Domain" + "2025-07-15" + "RGB*" + SF-IMAGE "Image" 0 + SF-DRAWABLE "Drawable" 0 +) + +(script-fu-menu-register "przem-wet-collodion" + "/Filters/PIETRASZCZYK/") diff --git a/script-fu/changelog.md b/script-fu/changelog.md index 87f2272..d7f690c 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,6 @@ +# [2.250715-0] przem-wet-collodion +* Mokry kolodion + # [2.250714-0] przem-helos-40 * Dodanie symulacji charakterystycznej kolorystyki obiektywu Helios-40 -- cgit v1.2.3