diff options
| -rw-r--r-- | script-fu/3.x/przem-dramatic-light-v3x.scm | 6 | ||||
| -rw-r--r-- | script-fu/3.x/przem-sepia-dust-v3x.scm | 85 | ||||
| -rw-r--r-- | script-fu/changelog.md | 7 |
3 files changed, 95 insertions, 3 deletions
diff --git a/script-fu/3.x/przem-dramatic-light-v3x.scm b/script-fu/3.x/przem-dramatic-light-v3x.scm index 2960f11..097f823 100644 --- a/script-fu/3.x/przem-dramatic-light-v3x.scm +++ b/script-fu/3.x/przem-dramatic-light-v3x.scm @@ -5,7 +5,7 @@ ; editor: KWrite -(define (przem-dramatic-light-3x img drawable grain mono) +(define (przem-dramatic-light-v3x img drawable grain mono) (gimp-context-push) (gimp-image-undo-group-start img) @@ -50,7 +50,7 @@ (gimp-context-pop) ) -(script-fu-register-filter "przem-dramatic-light-3x" +(script-fu-register-filter "przem-dramatic-light-v3x" _"Dramatic Light Effect" _"Tworzy dramatyczne światło, wysoki kontrast" "Przemysław R. Pietraszczyk" @@ -62,7 +62,7 @@ SF-TOGGLE _"Monochromatic" TRUE ) -(script-fu-menu-register "przem-dramatic-light-3x" +(script-fu-menu-register "przem-dramatic-light-v3x" "<Image>/Filters/PIETRASZCZYK/") diff --git a/script-fu/3.x/przem-sepia-dust-v3x.scm b/script-fu/3.x/przem-sepia-dust-v3x.scm new file mode 100644 index 0000000..b77c3fe --- /dev/null +++ b/script-fu/3.x/przem-sepia-dust-v3x.scm @@ -0,0 +1,85 @@ +; przem-sepia-dust-v3xTworzy dramatyczne światło, wysoki kontrast. +; Przmeysław R. Pietraszczyk +; 2026-08-05 +; ver 2.260805-0 +; editor: Kate + +(define (przem-sepia-dust-v3x image drawable) + (let* ( + (image-width (car ( gimp-image-get-width image))) + (image-height (car (gimp-image-get-height image))) + (new-layer 0) + (grain-layer 0) + (curves-layer 0) + (base-layer (vector-ref drawable 0)) + (type (car (gimp-drawable-type-with-alpha base-layer))) + ) + + (gimp-image-undo-group-start image) + + ; 1. Desaturacja (konwersja na czarno-biały) + ;(gimp-desaturate drawable DESATURATE-LUMINOSITY) + (if (= type RGBA-IMAGE) + (gimp-drawable-desaturate base-layer DESATURATE-LIGHTNESS) + ) + (set! new-layer (car (gimp-layer-copy base-layer TRUE))) + (set! grain-layer (car (gimp-layer-copy base-layer TRUE))) + (set! curves-layer (car (gimp-layer-copy base-layer TRUE))) + + + ; 2. Warstwa koloryzująca (Sepia Brown) + (gimp-image-insert-layer image new-layer 0 -1) + (gimp-context-set-background '(165 142 123)) ; Kolor: #A58E7B + ;(gimp-edit-fill new-layer FILL-FOREGROUND) + (gimp-drawable-edit-fill new-layer FILL-BACKGROUND) + + (gimp-layer-set-mode new-layer LAYER-MODE-NORMAL) + (gimp-layer-set-opacity new-layer 25) + + ; 3. Warstwa szumu (Ziarno filmowe) + (gimp-image-insert-layer image grain-layer 0 -1) + (gimp-context-set-foreground '(128 128 128)) ; 50% szarości + ;(gimp-edit-fill grain-layer FILL-FOREGROUND) + (gimp-drawable-edit-fill new-layer FILL-FOREGROUND) + ;(plug-in-noise-hurl 1 grain-layer 0 FALSE 50 50 50) + (gimp-drawable-merge-new-filter grain-layer "gegl:noise-hsv" "Noise-HSV" LAYER-MODE-NORMAL 0.8 "holdness" 2 "hue-distance" 0.3 "saturation-distance" 0.5 "value-distance" 0.5 "seed" 50) + + ;(plug-in-gauss-rle 1 grain-layer 1.5 TRUE TRUE) ; Miękkie rozmycie szumu + (gimp-drawable-merge-new-filter grain-layer "gegl:gaussian-blur" "Gauss-Blur" LAYER-MODE-NORMAL 0.8 "std-dev-x" 1.5 "std-dev-y" 1.5) + + (gimp-layer-set-mode grain-layer LAYER-MODE-OVERLAY) + ;(gimp-layer-set-opacity grain-layer 25) + + ; 4. Warstwa krzywych (Podbicie czerni - mleczny wygląd) + (gimp-image-insert-layer image curves-layer 0 -1) + (gimp-layer-set-mode curves-layer LAYER-MODE-NORMAL) + (gimp-layer-set-opacity curves-layer 25) + + ; Tworzymy krzywą (wejście 0 -> wyjście 30, wejście 255 -> wyjście 245) + (let* ( + (channels #(0 0 0)) + (curve-points #(0 30 255 245)) + ) + ;(gimp-curves-explicit curves-layer HISTOGRAM-VALUE channels curve-points) + (gimp-drawable-curves-spline curves-layer HISTOGRAM-VALUE curve-points) + ) + + ; Spłaszczenie i koniec + (gimp-image-merge-visible-layers image CLIP-TO-IMAGE) + (gimp-image-undo-group-end image) + (gimp-displays-flush) + ) +) + +(script-fu-register-filter "przem-sepia-dust-v3x" + _"Sepia Dust Effect" + _"Tworzy vintage'owy efekt sepii z szumem i mlecznymi czerniami" + "Przemysław R. Pietraszczyk" + "Public Domain" + "2026-08-04" + "RGB* GRAY*" + SF-ONE-OR-MORE-DRAWABLE +) + +(script-fu-menu-register "przem-sepia-dust-v3x" "<Image>/Filters/PIETRASZCZYK/" +) diff --git a/script-fu/changelog.md b/script-fu/changelog.md index a0d8172..2e18984 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,10 @@ +# [2.260805-1] przem-sepia-dust-v3x.scm +* Kopiowanie warstw roboczych z base-layer +* FILL-BACKGROUND dla new-image + +# [2.260805-0] przem-sepia-dust-v3x.scm +* Nowy filtr imitujący mleczną sepie + # [2.260802-1] przem-film-curves-v3x.scm * Dodanie pseudo szarej sepii * Opcjonalny HISTOGRAM-VALUE |