From 4e68da3e071240926130e2fd60045f96be1f76d2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw?= Date: Thu, 8 Jan 2026 23:41:18 +0100 Subject: 2.260108-0:przem-lith-effect-v3.scm --- script-fu/3.0/przem-lith-effect-v3.scm | 82 ++++++++++++++-------- .../3.0/przem-surreal-v3 \342\200\224 kopia.scm" | 81 --------------------- script-fu/changelog.md | 3 + 3 files changed, 56 insertions(+), 110 deletions(-) delete mode 100644 "script-fu/3.0/przem-surreal-v3 \342\200\224 kopia.scm" diff --git a/script-fu/3.0/przem-lith-effect-v3.scm b/script-fu/3.0/przem-lith-effect-v3.scm index 0220952..786b81c 100644 --- a/script-fu/3.0/przem-lith-effect-v3.scm +++ b/script-fu/3.0/przem-lith-effect-v3.scm @@ -2,46 +2,70 @@ ; author: PRP ; licencja: Public Domain ; Gdańsk - 25-12-2025 -; ver. 2.251225-1~beta +; ver. 2.260108-0~beta (define (przem-lith-effect-v3 img drawable) (let* ( (source-layer (vector-ref (car (gimp-image-get-layers img)) 0 )) - (layer-copy 0) - ) + (type-layer (vector-ref drawable 0)) + (type (car (gimp-drawable-type type-layer))) + + ) (gimp-context-push) (gimp-image-undo-group-start img) - (set! layer-copy (car (gimp-layer-copy source-layer))) + ;; jeśli obraz jest szary to konwertuje go na RGB - tak na sztukę + (if (> (car (gimp-drawable-type type-layer)) 1) + (gimp-image-convert-rgb img)) + ; Konwersja obrazu do skali szarości + (if (= type RGB-IMAGE) + (gimp-drawable-desaturate type-layer DESATURATE-LIGHTNESS) + ) ;; 1. Mocny kontrast (levels) - ;(let* ((f1 (gimp-drawable-merge-new-filter layer-copy "gegl:levels"))) - ; (gimp-item-set-property f1 "low-input" 0.15) - ; (gimp-item-set-property f1 "high-input" 0.85) - ; (gimp-drawable-merge-filter layer-copy f1)) - - ;; 2. Miękkie światła (soft glow) - ; (let* ((f2 (gimp-drawable-merge-new-filter layer-copy "gegl:softglow"))) - ; (gimp-item-set-property f2 "glow-radius" 25.0) - ; (gimp-item-set-property f2 "brightness" 0.20) - ; (gimp-item-set-property f2 "sharpness" 0.50) - ; (gimp-drawable-merge-filter layer-copy f2)) - - ;; 3. Tonowanie (ciepły lith) - (let* ((f3 (gimp-drawable-merge-new-filter layer-copy "gegl:colorize"))) - (gimp-item-set-property f3 "hue" 30.0) ;; ciepły brąz - (gimp-item-set-property f3 "saturation" 0.25) - (gimp-item-set-property f3 "lightness" 0.02) - (gimp-drawable-merge-filter layer-copy f3)) + (gimp-drawable-merge-new-filter + type-layer + "gegl:levels" + 0 + LAYER-MODE-REPLACE + 0.5 + "in-low" 0.15 + "in-high" 0.85 + ) + + ;; 2. Miękkie światła (soft-kight) + (gimp-drawable-merge-new-filter + type-layer + "gegl:soft-light" + 0 + LAYER-MODE-REPLACE + 0.5 + ) + + ;; 3. Tonowanie (ciepły lith) + (gimp-drawable-merge-new-filter + type-layer + "gegl:color" + 0 + LAYER-MODE-REPLACE + 0.5 + "value" (list 150 75 0) + ) ;; 4. Ziarno (noise-rgb) - ; (let* ((f4 (gimp-drawable-merge-new-filter layer-copy "gegl:noise-rgb"))) - ; (gimp-item-set-property f4 "red" 0.02) - ; (gimp-item-set-property f4 "green" 0.02) - ; (gimp-item-set-property f4 "blue" 0.02) - ; (gimp-item-set-property f4 "alpha" 0.00) - ; (gimp-drawable-merge-filter layer-copy f4)) + (gimp-drawable-merge-new-filter + type-layer + "gegl:noise-rgb" + 0 + LAYER-MODE-NORMAL + 0.5 + "red" 0.2 + "green" 0.2 + "blue" 0.2 + "alpha" 0.0 + "independent" TRUE + ) (gimp-image-undo-group-end img) (gimp-displays-flush) @@ -50,7 +74,7 @@ ) (script-fu-register-filter "przem-lith-effect-v3" - "_Lith-effect" + "_Lith effect" "_Odbitka Litowa" "P.R.P" "Public Domain" diff --git "a/script-fu/3.0/przem-surreal-v3 \342\200\224 kopia.scm" "b/script-fu/3.0/przem-surreal-v3 \342\200\224 kopia.scm" deleted file mode 100644 index 1c9a809..0000000 --- "a/script-fu/3.0/przem-surreal-v3 \342\200\224 kopia.scm" +++ /dev/null @@ -1,81 +0,0 @@ -; przem-surreal-v3 - imitacja surrealistycznych obrazów -; author: PRP -; licencja: Public Domain -; Gdańsk - 22-6-2025 -; ver. 2.250712-0~beta -(define (przem-surreal-v3 img drawable) - (let* ( - ; Duplikujemy warstwę - (width (car (gimp-image-get-width img))) - (height (car (gimp-image-get-height img))) - (layer-copy 0) - (source-layer (vector-ref (car (gimp-image-get-layers img)) 0 )) - (green-layer (car (gimp-layer-new img "Green" width height RGB-IMAGE 100 LAYER-MODE-NORMAL))) - (gauss-layer (car (gimp-layer-new img "Gauss" width height RGB-IMAGE 100 LAYER-MODE-NORMAL))) - (type-layer (vector-ref drawable 0)) - (type (car (gimp-drawable-type type-layer))) - - ) - (gimp-context-push) - (gimp-image-undo-group-start img) - - - (set! layer-copy (car (gimp-layer-copy source-layer))) - - - ; Dodajemy skopiowaną warstwę - (gimp-image-insert-layer img layer-copy -1) - - - ;; jeśli obraz jest szary to konwertuje go na RGB - tak na sztukę - (if (> (car (gimp-drawable-type type-layer)) 1) - (gimp-image-convert-rgb img)) - - ; Konwersja obrazu do skali szarości - (if (= type RGB-IMAGE) - (gimp-drawable-desaturate type-layer DESATURATE-LIGHTNESS) - ) - - - - - ; Dodajemy lekki niebieski odcień - ;(gimp-colorize layer-copy 200 30 0) - (gimp-context-set-foreground '(200 30 0)) - - - (gimp-image-insert-layer img gauss-layer -1) - - ; Rozmycie dla efektu mgły - ;(plug-in-gauss RUN-NONINTERACTIVE img layer-copy 10.0 10.0 1) - (gimp-drawable-merge-new-filter gauss-layer "gegl:gaussian-blur" RUN-NONINTERACTIVE LAYER-MODE-REPLACE 1.0 "std-dev-x" 1.0 "std-dev-y" 1.0 "filter" "auto") - - ; Tryb mieszania: Overlay - (gimp-layer-set-mode layer-copy LAYER-MODE-MULTIPLY) - (gimp-layer-set-opacity layer-copy 70.0) - - ; Dodajemy zieloną warstwę - (gimp-image-insert-layer img green-layer -1) - (gimp-context-set-foreground '(60 120 60)) ; ciemna zieleń - (gimp-drawable-edit-fill green-layer FILL-FOREGROUND) - (gimp-layer-set-mode green-layer LAYER-MODE-MULTIPLY) - (gimp-layer-set-opacity green-layer 25.0) - - (gimp-image-undo-group-end img) - (gimp-displays-flush) - (gimp-context-pop) - ) -) - -(script-fu-register-filter "przem-surreal-v3" - "_Surreal Toning with Green" - "_Nadaje obrazowi chłodne barwy z zielonymi akcentami i efektem mgły" - "P.R.P" - "Public Domain" - "24-12-2025" - "RGB* GRAY*" - SF-ONE-OR-MORE-DRAWABLE -) - -(script-fu-menu-register "przem-surreal-v3" - "/Filters/PIETRASZCZYK/") diff --git a/script-fu/changelog.md b/script-fu/changelog.md index 5f0771b..152389e 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,6 @@ +# [2.260108-0] przem-lith-effect-v3.scm +* Finalna wersja odbitki litowej + # [2.251225-1] przem-lith-effect-v3.scm * Propozycja nowej wtyczki dt. Odbitki Litowej -- cgit v1.2.3