diff options
| -rw-r--r-- | script-fu/3.x/przem-lomochrome-turquoise-v3x.scm | 37 | ||||
| -rw-r--r-- | script-fu/SNAPSHOTS/przem-harman-azure-125-v3x.scm | 101 | ||||
| -rw-r--r-- | script-fu/changelog.md | 3 |
3 files changed, 40 insertions, 101 deletions
diff --git a/script-fu/3.x/przem-lomochrome-turquoise-v3x.scm b/script-fu/3.x/przem-lomochrome-turquoise-v3x.scm new file mode 100644 index 0000000..c71eeee --- /dev/null +++ b/script-fu/3.x/przem-lomochrome-turquoise-v3x.scm @@ -0,0 +1,37 @@ +; przem-lomochrome-turquoise-v3x - całkiem wierne nawiązanie do filmu LomoChrome Turquoise +; 2026-11-01- Przemysław R. Pietraszczyk +; licence: GPL v3 +; ver. 2.261101-0 +(define (przem-lomochrome-turquoise-v3x image drawable) + (let* ( + (base-layer (vector-ref drawable 0)) + ) + + (gimp-image-undo-group-start image) + + ;; GIMP 3.0 używa silnika GEGL dla większości operacji na kolorach. + ;; Używamy operacji 'gegl:channel-mixer' w celu przesunięcia kanałów. + ;; Ustawienia symulują mapowanie kolorów Lomo Turquoise: + ;; Kanał Czerwony: dostaje głównie komponenty niebieskie i zielone (Turkus) + ;; Kanał Zielony: zamienia się miejscami, dostając komponenty czerwieni i niebieskiego + ;; Kanał Niebieski: zostaje zdominowany przez zieleń i czerwień (Złoto/Pomarańcz) + (gimp-drawable-merge-new-filter base-layer + "gegl:channel-mixer" "CHannel-mixed" LAYER-MODE-REPLACE 0.95 "rr-gain" 0.0 "rg-gain" 0.6 "rb-gain" 0.4 "gr-gain" 0.4 "gg-gain" 0.0 "gb-gain" 0.6 "br-gain" 0.8 "bg-gain" 0.2 "bb-gain" 0.0) + + ;; Opcjonalne delikatne podbicie kontrastu i saturacji dla stylu Lomo + (gimp-drawable-merge-new-filter base-layer "gegl:color-enhance" "color-enhance" LAYER-MODE-REPLACE 0.90) + (gimp-image-undo-group-end image) + (gimp-displays-flush) +)) + +(script-fu-register-filter "przem-lomochrome-turquoise-v3x" + "LomoChrome Turquoise Effect" + "Imituje charakterystyczne przesunięcie kolorów (turkusy i złoto) znane z filmu LomoChrome Turquoise." + "P.R.P." + "Public Domain" + "2026-11-01" + "RGB*" + SF-ONE-OR-MORE-DRAWABLE +) + +(script-fu-menu-register "przem-lomochrome-turquoise-v3x" "<Image>/Filters/PIETRASZCZYK/") diff --git a/script-fu/SNAPSHOTS/przem-harman-azure-125-v3x.scm b/script-fu/SNAPSHOTS/przem-harman-azure-125-v3x.scm deleted file mode 100644 index 0133c40..0000000 --- a/script-fu/SNAPSHOTS/przem-harman-azure-125-v3x.scm +++ /dev/null @@ -1,101 +0,0 @@ -; przem-harman-azure-125-v3x - Imitacja filmu Harman Azure 125 -; 2026-09-20 - Przemysław R. Pietraszczyk -; licence: GPL v3 -; ver. 2.260920-0 -; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm' -; Autorstwa Spencer Kimball - -(define (shadows val) - (/ (* 0.96 val) 2.55)) - -(define (midtones val) - (/ val 2.55)) - -(define (highlights val) - ; The result is used as "gimp-drawable-color-balance" color parameter - ; and thus must be restricted to -100.0 <= highlights <= 100.0. - (min (/ (* 1.108 val) 2.55) 100.0)) - -(define (rval col) - (car col)) - -(define (gval col) - (cadr col)) - -(define (bval col) - (caddr col)) - -(define (przem-harman-azure-125-v3x image drawable) - - - ;; Duplikacja warstwy - (let* ( - (base-layer (vector-ref drawable 0)) - (dup (car (gimp-layer-copy base-layer TRUE))) - (work (car (gimp-layer-copy base-layer TRUE))) - (exposure (car (gimp-layer-copy base-layer TRUE))) - (filter-exposure 0) - ) - - (gimp-image-undo-group-start image) - - (gimp-image-insert-layer image work 0 -1) - (gimp-image-insert-layer image dup 0 -1) - - - ;; Wywołanie operacji GEGL dla temperatury barwowej - (let* ((temperature 0)) - (gimp-drawable-merge-new-filter base-layer - "gegl:color-temperature" "Temp" LAYER-MODE-REPLACE 0.95 "original-temperature" 6500.0 "intended-temperature" 9000.0) - ) - - (let* ( - ;cyan-red -0.25, magenta-green 0.20, yellow-blue 0.35 - (c1 '(-0.25 0.20 0.35)) - (c2 '(0.30 -0.10 -0.25)) - ) - (gimp-drawable-color-balance dup TRANSFER-SHADOWS 1 - (shadows (rval c1)) - (shadows (gval c1)) - (shadows (bval c1))) - (gimp-drawable-color-balance dup TRANSFER-HIGHLIGHTS 1 - (highlights (rval c2)) - (highlights (gval c2)) - (highlights (bval c2))) - (gimp-layer-set-opacity dup 0.85)) - - ;; 4. Lekka mgiełka (soft-light + blur) - ;(let* ( - ; (fog (car (gimp-layer-copy dup TRUE))) - ; ) - ; (gimp-image-insert-layer image fog 0 -1) - - ; (gimp-drawable-curves-spline fog HISTOGRAM-VALUE #(0 0 10 10 1)) - ; (gimp-layer-set-mode light-layer LAYER-MODE-SOFTLIGHT) - ; (gimp-layer-set-opacity light-layer 100) - ;) - - (let* ((temperature 0)) - (gimp-drawable-merge-new-filter exposure - "gegl:exposure" "Exp" LAYER-MODE-REPLACE 0.70 "black-level" -0.02 "exposure" 0.30) - ;(gimp-image-insert-layer image temperature 0 -1) - ) - (gimp-image-insert-layer image exposure 0 -1) - - (gimp-image-undo-group-end image) - (gimp-displays-flush) - ) -) - -(script-fu-register-filter "przem-harman-azure-125-v3x" - _"Harman Azure 125 filmi imitation" - _"Imituje film Harman Azure 125." - "Przemysław R. Pietraszczyk" - "GPL v3" - "2026-09-20" - "RGB*" - SF-ONE-OR-MORE-DRAWABLE -) - -(script-fu-menu-register "przem-harman-azure-125-v3x" - "<Image>/Filters/PIETRASZCZYK/") diff --git a/script-fu/changelog.md b/script-fu/changelog.md index e594aa4..8672d4a 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,6 @@ +# [2.261101-0] przem-lomochrome-turquoise-v3x.scm +* Nowy filtr nawiązujący do filmu LomoChrome Turquoise + # [2.261024-0] przem-warm-grayscale.scm * Odczyt profil koloru z pliku ICC - zaremowanie |