From 2a9eef4cb9becc1655557c941101331b20e7c5a3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw?= Date: Tue, 5 May 2026 19:49:22 +0200 Subject: 2.260505-0.2 --- script-fu/2.10/przem-helios-40.scm | 68 ++++++++++++++++++++++++++++++++++++++ script-fu/2.10/przem-helos-40.scm | 68 -------------------------------------- 2 files changed, 68 insertions(+), 68 deletions(-) create mode 100644 script-fu/2.10/przem-helios-40.scm delete mode 100644 script-fu/2.10/przem-helos-40.scm diff --git a/script-fu/2.10/przem-helios-40.scm b/script-fu/2.10/przem-helios-40.scm new file mode 100644 index 0000000..47c7aa3 --- /dev/null +++ b/script-fu/2.10/przem-helios-40.scm @@ -0,0 +1,68 @@ +; przem-helios-40 - Symuluje charakterystyczną kolorystykę obiektywu Helios-40 +; author: PRP +; licencja: Public Domain +; Gdańsk - 14-7-2025 +; ver. 2.250714-0~beta + +(define (przem-helios-40 img drawable blur-amount warmth-amount bloom-effect) + + (gimp-context-push) + + ; Zapisz oryginalną selekcję + (let* ((orig-selection (car (gimp-selection-save img)))) + + (gimp-image-undo-group-start img) + + ; Dodaj warstwę dla efektów + (let* ((helios-layer (car (gimp-layer-copy drawable FALSE)))) + (gimp-image-insert-layer img helios-layer 0 -1) + (gimp-item-set-name helios-layer "Helios-40 Effect") + + ; Efekt ciepłych tonów + (if (> warmth-amount 0) + (begin + (gimp-color-balance helios-layer 0 TRUE 0 warmth-amount 0) + (gimp-color-balance helios-layer 1 TRUE warmth-amount 0 0))) + + ; Lekkie rozmycie dla charakterystycznego looku + (if (> blur-amount 0) + (plug-in-gauss 1 img helios-layer blur-amount blur-amount 0)) + + ; Zmniejsz kontrast + (gimp-brightness-contrast helios-layer 0 -20) + + ; Efekt bloom (dla symulacji bokeh) + (if (> bloom-effect 0) + (begin + (let* ((bloom-layer (car (gimp-layer-copy helios-layer FALSE)))) + (gimp-image-insert-layer img bloom-layer 0 -1) + (gimp-layer-set-mode bloom-layer 13) ; Tryb nakładania - Overlay + (plug-in-gauss 1 img bloom-layer (* bloom-effect 3) (* bloom-effect 3) 0) + (gimp-layer-set-opacity bloom-layer 50)))) + + ; Przywróć oryginalną selekcję + (gimp-selection-load orig-selection) + (gimp-image-remove-channel img orig-selection)) + ;(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY) + + (gimp-image-undo-group-end img) + (gimp-displays-flush) + ) + (gimp-context-pop) + ) + +(script-fu-register "przem-helios-40" + _"Helios-40 Effect..." + _"Symuluje charakterystyczną kolorystykę obiektywu Helios-40" + "PRP" + "Public Domain" + "2025-07-14" + "RGB*" + SF-IMAGE "Image" 0 + SF-DRAWABLE "Drawable" 0 + SF-ADJUSTMENT "Rozmycie (0-20)" '(3 0 20 1 1 0 0) + SF-ADJUSTMENT "Ciepłe tony (0-100)" '(30 0 100 1 1 0 0) + SF-ADJUSTMENT "Efekt bloom (0-5)" '(2 0 5 1 1 0 0)) + +(script-fu-menu-register "przem-helios-40" + "/Filters/PIETRASZCZYK/") diff --git a/script-fu/2.10/przem-helos-40.scm b/script-fu/2.10/przem-helos-40.scm deleted file mode 100644 index 47c7aa3..0000000 --- a/script-fu/2.10/przem-helos-40.scm +++ /dev/null @@ -1,68 +0,0 @@ -; przem-helios-40 - Symuluje charakterystyczną kolorystykę obiektywu Helios-40 -; author: PRP -; licencja: Public Domain -; Gdańsk - 14-7-2025 -; ver. 2.250714-0~beta - -(define (przem-helios-40 img drawable blur-amount warmth-amount bloom-effect) - - (gimp-context-push) - - ; Zapisz oryginalną selekcję - (let* ((orig-selection (car (gimp-selection-save img)))) - - (gimp-image-undo-group-start img) - - ; Dodaj warstwę dla efektów - (let* ((helios-layer (car (gimp-layer-copy drawable FALSE)))) - (gimp-image-insert-layer img helios-layer 0 -1) - (gimp-item-set-name helios-layer "Helios-40 Effect") - - ; Efekt ciepłych tonów - (if (> warmth-amount 0) - (begin - (gimp-color-balance helios-layer 0 TRUE 0 warmth-amount 0) - (gimp-color-balance helios-layer 1 TRUE warmth-amount 0 0))) - - ; Lekkie rozmycie dla charakterystycznego looku - (if (> blur-amount 0) - (plug-in-gauss 1 img helios-layer blur-amount blur-amount 0)) - - ; Zmniejsz kontrast - (gimp-brightness-contrast helios-layer 0 -20) - - ; Efekt bloom (dla symulacji bokeh) - (if (> bloom-effect 0) - (begin - (let* ((bloom-layer (car (gimp-layer-copy helios-layer FALSE)))) - (gimp-image-insert-layer img bloom-layer 0 -1) - (gimp-layer-set-mode bloom-layer 13) ; Tryb nakładania - Overlay - (plug-in-gauss 1 img bloom-layer (* bloom-effect 3) (* bloom-effect 3) 0) - (gimp-layer-set-opacity bloom-layer 50)))) - - ; Przywróć oryginalną selekcję - (gimp-selection-load orig-selection) - (gimp-image-remove-channel img orig-selection)) - ;(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY) - - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) - (gimp-context-pop) - ) - -(script-fu-register "przem-helios-40" - _"Helios-40 Effect..." - _"Symuluje charakterystyczną kolorystykę obiektywu Helios-40" - "PRP" - "Public Domain" - "2025-07-14" - "RGB*" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT "Rozmycie (0-20)" '(3 0 20 1 1 0 0) - SF-ADJUSTMENT "Ciepłe tony (0-100)" '(30 0 100 1 1 0 0) - SF-ADJUSTMENT "Efekt bloom (0-5)" '(2 0 5 1 1 0 0)) - -(script-fu-menu-register "przem-helios-40" - "/Filters/PIETRASZCZYK/") -- cgit v1.2.3