summaryrefslogtreecommitdiff
path: root/script-fu
diff options
context:
space:
mode:
Diffstat (limited to 'script-fu')
-rw-r--r--script-fu/3.0/przem-hitchcock-d400-film-effect-v3.scm35
-rw-r--r--script-fu/3.2/przem-add-background-under-text-v32.scm8
-rw-r--r--script-fu/3.2/przem-apply-sepia-v32.scm8
-rw-r--r--script-fu/3.2/przem-cyanotype-color-effect-multi-v32.scm8
-rw-r--r--script-fu/3.2/przem-ilford-expired-v32.scm8
-rw-r--r--script-fu/3.2/przem-kodachrome-v32.scm8
-rw-r--r--script-fu/3.2/przem-lith-effect-v32.scm118
-rw-r--r--script-fu/3.2/przem-oldschool-photography-v32.scm8
-rw-r--r--script-fu/3.2/przem-prussian-blue-effect-v32.scm8
-rw-r--r--script-fu/3.2/przem-soft-focus-noninteractive-v32.scm4
-rw-r--r--script-fu/3.2/przem-sunset-effect-v32.scm8
-rw-r--r--script-fu/3.2/przem-surreal-v32.scm98
-rw-r--r--script-fu/3.2/przem-teal-portrait-look-v32.scm8
-rw-r--r--script-fu/3.2/przem-traditional-photo-v32.scm8
-rw-r--r--script-fu/3.2/przem-true-cyjanotype-v32.scm8
-rw-r--r--script-fu/3.2/przem-wet-collodion-v32.scm8
-rw-r--r--script-fu/changelog.md4
17 files changed, 294 insertions, 61 deletions
diff --git a/script-fu/3.0/przem-hitchcock-d400-film-effect-v3.scm b/script-fu/3.0/przem-hitchcock-d400-film-effect-v3.scm
index 9d4bfe3..aac6d35 100644
--- a/script-fu/3.0/przem-hitchcock-d400-film-effect-v3.scm
+++ b/script-fu/3.0/przem-hitchcock-d400-film-effect-v3.scm
@@ -98,6 +98,7 @@
(define (przem-hitchcock-d400-film-effect-v3 image drawable)
(let* (
+ (layer (vector-ref drawable 0))
(film-grain-layer (vector-ref drawable 0))
(width (car (gimp-image-get-width image)))
(height (car (gimp-image-get-height image)))
@@ -146,15 +147,31 @@
;; ---------------------------------------------------------
;; 3. WARSTWA KORYGUJĄCA KOLORY (Color Grading D400)
;; ---------------------------------------------------------
- ; (set! color-grade-layer (car (gimp-layer-new image width height RGBA-IMAGE "Color Grade D400" 100 NORMAL-MODE)))
- ; (gimp-image-insert-layer image color-grade-layer 0 -1)
- ; (gimp-drawable-fill color-grade-layer TRANSPARENT-FILL)
-
+ (set! color-grade-layer (car (gimp-layer-new image "Color Grade D400" width height RGBA-IMAGE 100 LAYER-MODE-NORMAL)))
+ (gimp-image-insert-layer image color-grade-layer 0 2)
+ (gimp-drawable-edit-clear color-grade-layer)
+
+ ;(gimp-drawable-fill color-grade-layer FILL-FOREGROUND)
+ (gimp-drawable-fill color-grade-layer FILL-BACKGROUND)
+
;; Cienie – lekko zielonkawe (charakterystyczne dla D400)
- ; (gimp-context-set-foreground '(40 70 50))
- ; (gimp-edit-fill color-grade-layer FOREGROUND-FILL)
+ (gimp-context-set-foreground '(40 70 50))
+
+ (gimp-edit-copy (vector layer))
+
+ (let* (
+ (pasted (car (gimp-edit-paste color-grade-layer FALSE)))
+ (num-pasted (vector-length pasted))
+ (floating-sel (vector-ref pasted (- num-pasted 1)))
+ )
+ (gimp-floating-sel-anchor floating-sel)
+ )
+ (gimp-image-set-selected-layers image (vector color-grade-layer))
+ (set! color-grade-layer layer)
+
; (gimp-layer-set-mode color-grade-layer COLOR-MODE)
- ; (gimp-layer-set-opacity color-grade-layer 35)
+ (gimp-layer-set-mode color-grade-layer LAYER-MODE-MULTIPLY)
+ (gimp-layer-set-opacity color-grade-layer 35)
;; Światła – ciepłe, kremowe
; (let* ((warm-lights (car (gimp-layer-new image width height RGBA-IMAGE "Warm Lights" 100 NORMAL-MODE))))
@@ -216,10 +233,6 @@
)
)
-;; =============================================================
-;; REJESTRACJA SKRYPTU W MENU GIMP
-;; =============================================================
-
(script-fu-register-filter "przem-hitchcock-d400-film-effect-v3"
"_Hitchcock D400 Film Effect..."
"Konwertuje kolorowe zdjęcie na efekt analogowej kliszy HITCHCOCK D400.\n\
diff --git a/script-fu/3.2/przem-add-background-under-text-v32.scm b/script-fu/3.2/przem-add-background-under-text-v32.scm
index 7ea23da..7e557c6 100644
--- a/script-fu/3.2/przem-add-background-under-text-v32.scm
+++ b/script-fu/3.2/przem-add-background-under-text-v32.scm
@@ -1,10 +1,10 @@
-; przem-add-background-under-text-v3 - Script-fu dodający podpis z tłem
+; przem-add-background-under-text-v32 - Script-fu dodający podpis z tłem
; author: PRP
; licencja: Public Domain
; Gdańsk - 06-02-2025
; ver. 2.260116-1~beta for Gimp 3.0
-(define (przem-add-background-under-text-v3 image drawable text font font-size fg-color bg-color background-transparency opacity)
+(define (przem-add-background-under-text-v32 image drawable text font font-size fg-color bg-color background-transparency opacity)
(let* (
(type-layer (vector-ref drawable 0))
@@ -71,7 +71,7 @@
)
)
-(script-fu-register-filter "przem-add-background-under-text-v3"
+(script-fu-register-filter "przem-add-background-under-text-v32"
_"Add Background Under Text"
_"Dodaje kolorowe tło pod tekstem z możliwością wyboru czcionki i rozmiaru."
"Przemysław R. Pietraszczyk"
@@ -88,5 +88,5 @@
SF-ADJUSTMENT "Transparency Value" (list 100 1 100 1 10 0 1)
)
-(script-fu-menu-register "przem-add-background-under-text-v3"
+(script-fu-menu-register "przem-add-background-under-text-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-apply-sepia-v32.scm b/script-fu/3.2/przem-apply-sepia-v32.scm
index 9ba52b4..f82ac3b 100644
--- a/script-fu/3.2/przem-apply-sepia-v32.scm
+++ b/script-fu/3.2/przem-apply-sepia-v32.scm
@@ -1,4 +1,4 @@
-; przem-apply-sepia-v3 - Script-fu dodający prawdziwą sepie do zdjęcia
+; przem-apply-sepia-v32 - Script-fu dodający prawdziwą sepie do zdjęcia
; author: PRP
; licencja: GPL v3
; Gdańsk - 07-02-2025
@@ -18,7 +18,7 @@
; along with this program. If not, see <https://www.gnu.org/licenses/>.
;
-(define (przem-apply-sepia-v3 image drawable value-slider-sepia shadow-sepia gradient-reverse in-sepia gradient-shape)
+(define (przem-apply-sepia-v32 image drawable value-slider-sepia shadow-sepia gradient-reverse in-sepia gradient-shape)
(let* (
(image-width (car (gimp-image-get-width image)))
(image-height (car (gimp-image-get-height image)))
@@ -126,7 +126,7 @@
) )
-(script-fu-register-filter "przem-apply-sepia-v3"
+(script-fu-register-filter "przem-apply-sepia-v32"
_"_Apply a sepia effect to the image"
_"Tworzy obraz sepii"
"Przemyslaw R. Pietraszczyk"
@@ -144,5 +144,5 @@
)
-(script-fu-menu-register "przem-apply-sepia-v3"
+(script-fu-menu-register "przem-apply-sepia-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-cyanotype-color-effect-multi-v32.scm b/script-fu/3.2/przem-cyanotype-color-effect-multi-v32.scm
index 199bdfc..8b8d079 100644
--- a/script-fu/3.2/przem-cyanotype-color-effect-multi-v32.scm
+++ b/script-fu/3.2/przem-cyanotype-color-effect-multi-v32.scm
@@ -1,10 +1,10 @@
-; przem-cyanotype-color-effect-multi-v3 - Efekty cyjanotypi na kolor
+; przem-cyanotype-color-effect-multi-v32 - Efekty cyjanotypi na kolor
; author: PRP
; licencja: Public Domain
; Gdańsk - 24-08-2025
; ver. 2.250824-2
-(define (przem-cyanotype-color-effect-multi-v3 img drawable black blue)
+(define (przem-cyanotype-color-effect-multi-v32 img drawable black blue)
(gimp-context-push)
(gimp-image-undo-group-start img)
@@ -42,7 +42,7 @@
(gimp-context-pop))
-(script-fu-register-filter "przem-cyanotype-color-effect-multi-v3"
+(script-fu-register-filter "przem-cyanotype-color-effect-multi-v32"
_"Add Cyanotype Color Multi..."
_"Efekty cyjanotypii na kolor"
"PRP"
@@ -53,6 +53,6 @@
SF-ADJUSTMENT "Black" '(5 0 100 1 10 0 0)
SF-ADJUSTMENT "Pastel blue" '(40 30 70 1 10 1 0))
-(script-fu-menu-register "przem-cyanotype-color-effect-multi-v3"
+(script-fu-menu-register "przem-cyanotype-color-effect-multi-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-ilford-expired-v32.scm b/script-fu/3.2/przem-ilford-expired-v32.scm
index f89ebdd..de8fc89 100644
--- a/script-fu/3.2/przem-ilford-expired-v32.scm
+++ b/script-fu/3.2/przem-ilford-expired-v32.scm
@@ -1,4 +1,4 @@
-; przem-ilford-expired-v3 - Fotografia imitująca przeterminowany film Ilforda
+; przem-ilford-expired-v32 - Fotografia imitująca przeterminowany film Ilforda
; 2025-10-05 - Przemysław R. Pietraszczyk
; licence: Public Domain
; ver. 2.251006-0
@@ -63,7 +63,7 @@
-(define (przem-ilford-expired-v3 image drawable temperature strength apply brightness contrast saturation lightness hc cc)
+(define (przem-ilford-expired-v32 image drawable temperature strength apply brightness contrast saturation lightness hc cc)
; use v3 binding of return args from PDB
;(script-fu-use-v3)
@@ -119,7 +119,7 @@
)
)
-(script-fu-register-filter "przem-ilford-expired-v3"
+(script-fu-register-filter "przem-ilford-expired-v32"
_"Ilford film expired"
_"Fotografia imitująca przeterminowany film Ilforda"
"Przemysław R. Pietraszczyk"
@@ -139,6 +139,6 @@
)
-(script-fu-menu-register "przem-ilford-expired-v3"
+(script-fu-menu-register "przem-ilford-expired-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-kodachrome-v32.scm b/script-fu/3.2/przem-kodachrome-v32.scm
index 534d482..526e96c 100644
--- a/script-fu/3.2/przem-kodachrome-v32.scm
+++ b/script-fu/3.2/przem-kodachrome-v32.scm
@@ -1,4 +1,4 @@
-; przem-kodachrome-v3 - Fotografia z okresu 20-sto lecia między wojennego
+; przem-kodachrome-v32 - Fotografia z okresu 20-sto lecia między wojennego
; 2025-09-25 - Przemysław R. Pietraszczyk
; licence: Public Domain
; ver. 2.250929-0
@@ -93,7 +93,7 @@
;(define (przem-oldschool-photogrphy-v3 image drawable temperature strength tint-use
; brightness contrast highlights shadows whites blacks saturation lightness hc cc)
-(define (przem-kodachrome-v3 image drawable highlights shadows saturation lightness hc cc)
+(define (przem-kodachrome-v32 image drawable highlights shadows saturation lightness hc cc)
; use v3 binding of return args from PDB
;(script-fu-use-v3)
@@ -139,7 +139,7 @@
)
)
-(script-fu-register-filter "przem-kodachrome-v3"
+(script-fu-register-filter "przem-kodachrome-v32"
_"Kodachrome"
_"Imitacja Kodachrome"
"PRP"
@@ -155,5 +155,5 @@
SF-COLOR _"Chrome balance" "black"
)
-(script-fu-menu-register "przem-kodachrome-v3"
+(script-fu-menu-register "przem-kodachrome-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-lith-effect-v32.scm b/script-fu/3.2/przem-lith-effect-v32.scm
new file mode 100644
index 0000000..0de2220
--- /dev/null
+++ b/script-fu/3.2/przem-lith-effect-v32.scm
@@ -0,0 +1,118 @@
+; przem-lith-effect-v32 - imitacja odbitki litowej
+; author: PRP
+; licencja: Public Domain
+; Gdańsk - 25-12-2025
+; ver. 2.260505-0~prealpha
+
+(define (przem-lith-effect-v32 img drawable shades)
+ (let* (
+ (source-layer (vector-ref (car (gimp-image-get-layers img)) 0 ))
+ (type-layer (vector-ref drawable 0))
+ (type (car (gimp-drawable-type type-layer)))
+ )
+ (gimp-context-push)
+ (gimp-image-undo-group-start img)
+
+
+
+ ; Konwersja obrazu do skali szarości
+ (if (= type RGB-IMAGE)
+ (gimp-drawable-desaturate type-layer DESATURATE-LIGHTNESS)
+ )
+ ;; 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))
+
+ ;; 1. Mocny kontrast (levels)
+ (gimp-drawable-merge-new-filter
+ type-layer
+ "gegl:levels"
+ 0
+ LAYER-MODE-REPLACE
+ 0.5
+ "in-low" 0.15
+ "in-high" 0.85
+ )
+
+ (let* (
+ (lit 0)
+ (hot-lith (list 150 75 0))
+ (light-lithium-brown (list 217 169 121))
+ (warm-honey-brown (list 200 146 90))
+ (golden-clay (list 185 125 74))
+ (amber-brown (list 168 106 58))
+
+ (if (= shades 0)
+ (begin
+ (set! lit hot-lith)
+ ))
+ (if (= shades 1)
+ (begin
+ (set! lit light-lithium-brown)
+ ))
+ (if (= shades 2)
+ (begin
+ (set! lit warm-honey-brown)
+ ))
+ (if (= shades 3)
+ (begin
+ (set! lit golden-clay)
+ ))
+ (if (= shades 4)
+ (begin
+ (set! lit amber-brown)
+ ))
+
+ ;; 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"
+ "color-filter"
+ LAYER-MODE-REPLACE
+ 0.5
+ "value" lit
+ )
+ )
+ )
+ ;; 4. Ziarno (noise-rgb)
+ (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)
+ (gimp-context-pop)
+ )
+)
+
+(script-fu-register-filter "przem-lith-effect-v32"
+ "_Lith effect"
+ "_Odbitka Litowa"
+ "P.R.P"
+ "Public Domain"
+ "25-12-2025"
+ "RGB* GRAY*"
+ SF-ONE-OR-MORE-DRAWABLE
+ SF-OPTION _"Shades of lithium" '("Hot Lith" "Light Lithium Brown" "Warm Honey Brown" "Golden Clay" "Amber Brown")
+
+)
+
+(script-fu-menu-register "przem-lith-effect-v32"
+ "<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-oldschool-photography-v32.scm b/script-fu/3.2/przem-oldschool-photography-v32.scm
index 36c3459..3277166 100644
--- a/script-fu/3.2/przem-oldschool-photography-v32.scm
+++ b/script-fu/3.2/przem-oldschool-photography-v32.scm
@@ -1,4 +1,4 @@
-; przem-oldschool-photography-v3 - Fotografia z okresu 20-sto lecia między wojennego
+; przem-oldschool-photography-v32 - Fotografia z okresu 20-sto lecia między wojennego
; 2025-10-01 - Przemysław R. Pietraszczyk
; licence: Public Domain
; ver. 2.251001-0
@@ -14,7 +14,7 @@
)
-(define (przem-oldschool-photography-v3 image drawable temperature strength apply brightness contrast)
+(define (przem-oldschool-photography-v32 image drawable temperature strength apply brightness contrast)
; use v3 binding of return args from PDB
;(script-fu-use-v3)
@@ -55,7 +55,7 @@
)
)
-(script-fu-register-filter "przem-oldschool-photography-v3"
+(script-fu-register-filter "przem-oldschool-photography-v32"
_"Oldschool Photography"
_"Nawiązanie do fotografii 20-sto lecia międzywojennego"
"PRP"
@@ -71,5 +71,5 @@
)
-(script-fu-menu-register "przem-oldschool-photography-v3"
+(script-fu-menu-register "przem-oldschool-photography-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-prussian-blue-effect-v32.scm b/script-fu/3.2/przem-prussian-blue-effect-v32.scm
index c439013..5a26f3c 100644
--- a/script-fu/3.2/przem-prussian-blue-effect-v32.scm
+++ b/script-fu/3.2/przem-prussian-blue-effect-v32.scm
@@ -1,10 +1,10 @@
-; przem-prussian-blue-effect-v3 - nieudalna próba nawiązania do efektu cyjanotypii
+; przem-prussian-blue-effect-v32 - nieudalna próba nawiązania do efektu cyjanotypii
; author: PRP
; licencja: Public Domain
; Gdańsk - 22-6-2025
; ver. 2.250712-0~beta
-(define (przem-prussian-blue-effect-v3 img drawable mode black value-blue brightness contrast invert)
+(define (przem-prussian-blue-effect-v32 img drawable mode black value-blue brightness contrast invert)
;(script-fu-use-v3)
@@ -73,7 +73,7 @@
)
)
-(script-fu-register-filter "przem-prussian-blue-effect-v3"
+(script-fu-register-filter "przem-prussian-blue-effect-v32"
_"Apply prussian blue effect"
_"Nakłada efekt błękitu pruskiego na zdjęcie."
"PRP"
@@ -89,5 +89,5 @@
SF-TOGGLE "Invert" FALSE
)
-(script-fu-menu-register "przem-prussian-blue-effect-v3"
+(script-fu-menu-register "przem-prussian-blue-effect-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-soft-focus-noninteractive-v32.scm b/script-fu/3.2/przem-soft-focus-noninteractive-v32.scm
index 98d5ed0..b6940e6 100644
--- a/script-fu/3.2/przem-soft-focus-noninteractive-v32.scm
+++ b/script-fu/3.2/przem-soft-focus-noninteractive-v32.scm
@@ -1,10 +1,10 @@
-; przem-soft-focus-noninteractive-v3.sh - Filtr dodający miękki focus
+; przem-soft-focus-noninteractive-v32.sh - Filtr dodający miękki focus
; 2025-06-19 - PRP
; Public Domain
; ver. 2025-06-19
;(define (przem-soft-focus-noninteractive-v3 basout savename)
-(define (przem-soft-focus-noninteractive-v3 ask-fileglob)
+(define (przem-soft-focus-noninteractive-v32 ask-fileglob)
(let* (
(thefiles (cadr (file-glob ask-fileglob 0)))
diff --git a/script-fu/3.2/przem-sunset-effect-v32.scm b/script-fu/3.2/przem-sunset-effect-v32.scm
index 0dbc201..ba501ae 100644
--- a/script-fu/3.2/przem-sunset-effect-v32.scm
+++ b/script-fu/3.2/przem-sunset-effect-v32.scm
@@ -1,4 +1,4 @@
-; przem-sunset-effect-v3 - imituje efekt zachodzącego słońca
+; przem-sunset-effect-v32 - imituje efekt zachodzącego słońca
; author: PRP
; licencja: Public Domain
; Gdańsk - 01-09-2025
@@ -25,7 +25,7 @@
(caddr col))
-(define (przem-sunset-effect-v3 img drawable)
+(define (przem-sunset-effect-v32 img drawable)
(gimp-image-undo-group-start img)
; Tworzenie warstw dla różnych efektów
@@ -90,7 +90,7 @@
)
)
-(script-fu-register-filter "przem-sunset-effect-v3"
+(script-fu-register-filter "przem-sunset-effect-v32"
_"Sunset Effect"
_"Imitacja kolorystyki zachodu słońca"
"P.R.P."
@@ -99,5 +99,5 @@
"*"
SF-ONE-OR-MORE-DRAWABLE)
-(script-fu-menu-register "przem-sunset-effect-v3"
+(script-fu-menu-register "przem-sunset-effect-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-surreal-v32.scm b/script-fu/3.2/przem-surreal-v32.scm
new file mode 100644
index 0000000..c69355f
--- /dev/null
+++ b/script-fu/3.2/przem-surreal-v32.scm
@@ -0,0 +1,98 @@
+; przem-surreal-v32 - imitacja surrealistycznych obrazów
+; author: PRP
+; licencja: Public Domain
+; Gdańsk - 24-12-2025
+; ver. 2.260505-0~beta
+
+(define (przem-surreal-v32 img drawable shades)
+ (let* (
+ (width (car (gimp-image-get-width img)))
+ (height (car (gimp-image-get-height img)))
+ (layer-copy 0)
+ (source-layer 0)
+ (green-layer 0)
+ (type-layer (vector-ref drawable 0))
+ (type (car (gimp-drawable-type type-layer)))
+ (blue-glow (list 102 204 255))
+ (blue-pastel (list 153 221 255))
+ (blue 0)
+ )
+
+ (gimp-context-push)
+ (gimp-image-undo-group-start img)
+
+ (if (> (car (gimp-drawable-type type-layer)) 1)
+ (gimp-image-convert-rgb img)
+ )
+ (set! source-layer (vector-ref (car (gimp-image-get-layers img)) 0 ))
+ (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)
+ )
+
+ (if (= shades 0)
+ (begin
+ (set! blue blue-glow)
+ ))
+ (if (= shades 1)
+ (begin
+ (set! blue blue-pastel)
+ ))
+
+ (let* (
+ ; ; 3. Tonowanie (niebieska poświata)
+ (gimp-drawable-merge-new-filter
+ layer-copy
+ "gegl:color"
+ "color-filter"
+ LAYER-MODE-ADDITION
+ 0.1
+ "value" blue
+ )
+ )
+ )
+ ; Rozmycie dla efektu mgły
+ (gimp-drawable-merge-new-filter layer-copy "gegl:gaussian-blur" RUN-NONINTERACTIVE LAYER-MODE-REPLACE 1.0 "std-dev-x" 10.0 "std-dev-y" 10.0 "filter" "auto")
+
+ ; Tryb mieszania: Overlay
+ (gimp-layer-set-mode layer-copy LAYER-MODE-ADDITION)
+ (gimp-layer-set-opacity layer-copy 70.0)
+
+ ; Dodajemy zieloną warstwę
+ (set! green-layer (car (gimp-layer-new img "Green" width height RGB-IMAGE 100 LAYER-MODE-NORMAL)))
+
+ (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-v32"
+ "_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
+ SF-OPTION _"Shades of blue" '("Glow" "Pastel")
+
+)
+
+(script-fu-menu-register "przem-surreal-v32"
+ "<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-teal-portrait-look-v32.scm b/script-fu/3.2/przem-teal-portrait-look-v32.scm
index 1e45612..9f582ce 100644
--- a/script-fu/3.2/przem-teal-portrait-look-v32.scm
+++ b/script-fu/3.2/przem-teal-portrait-look-v32.scm
@@ -1,4 +1,4 @@
-; przem-teal-portrait-look-v3 - Fotografia portretowa na sterydach
+; przem-teal-portrait-look-v32 - Fotografia portretowa na sterydach
; 2026-04-06 - Przemysław R. Pietraszczyk
; licence: GPL v3
; ver. 2.260409-0
@@ -100,7 +100,7 @@
(highlights (bval c3)))
))
-(define (przem-teal-portrait-look-v3 img drawable mode noise)
+(define (przem-teal-portrait-look-v32 img drawable mode noise)
(let* (
(ref-layer (vector-ref drawable 0))
@@ -150,7 +150,7 @@
(gimp-context-pop)
))
-(script-fu-register-filter "przem-teal-portrait-look-v3"
+(script-fu-register-filter "przem-teal-portrait-look-v32"
_"_Teal portrait look"
_"Nadaje zdjęciu miękki portretowy look: lekko przygaszone kolory, podbity turkus, ocieplona skóra, umiarkowany kontrast."
"Przemysław R. Pietraszczyk"
@@ -162,5 +162,5 @@
SF-TOGGLE _"Sand Noise" FALSE
)
-(script-fu-menu-register "przem-teal-portrait-look-v3"
+(script-fu-menu-register "przem-teal-portrait-look-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-traditional-photo-v32.scm b/script-fu/3.2/przem-traditional-photo-v32.scm
index ee9b727..e544e50 100644
--- a/script-fu/3.2/przem-traditional-photo-v32.scm
+++ b/script-fu/3.2/przem-traditional-photo-v32.scm
@@ -1,11 +1,11 @@
-; przem-traditional-photo-v3 - luźne nawiązanie do chemii tradycyjnej fototgrafii
+; przem-traditional-photo-v32 - luźne nawiązanie do chemii tradycyjnej fototgrafii
; author: PRP
; licencja: Public Domain
; Gdańsk - 15-02-2025
; ver. 2.250217-0~beta for GIMP 3
-(define (przem-traditional-photo-v3 image drawable crossing contrast-colors balance-color)
+(define (przem-traditional-photo-v32 image drawable crossing contrast-colors balance-color)
(let (
;(the-image (car (gimp-image-duplicate image)) image)
(the-layer 0)
@@ -51,7 +51,7 @@
))
)
-(script-fu-register-filter "przem-traditional-photo-v3"
+(script-fu-register-filter "przem-traditional-photo-v32"
_"_Convert photographs to neotraditional"
_"Konwertuje na neotradycyjną fotografię"
"Przemyslaw R. Pietraszczyk"
@@ -65,5 +65,5 @@
SF-ADJUSTMENT _"Balance Color" (list -30 -100 100 1 1 0 0)
)
-(script-fu-menu-register "przem-traditional-photo-v3"
+(script-fu-menu-register "przem-traditional-photo-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-true-cyjanotype-v32.scm b/script-fu/3.2/przem-true-cyjanotype-v32.scm
index c67476f..6e83425 100644
--- a/script-fu/3.2/przem-true-cyjanotype-v32.scm
+++ b/script-fu/3.2/przem-true-cyjanotype-v32.scm
@@ -1,10 +1,10 @@
-; przem-true-cyjantype-v3 - imituje efekt prawdziwej cyjanotypii
+; przem-true-cyjantype-v32 - imituje efekt prawdziwej cyjanotypii
; author: PRP
; licencja: Public Domain
; Gdańsk - 14-10-2025
; ver. 2.251104-1
-(define (przem-true-cyjantype-v3 image drawable black normalize value-blue invert replace tone-curve)
+(define (przem-true-cyjantype-v32 image drawable black normalize value-blue invert replace tone-curve)
(let* ((gradient-layer 0)
(type-layer (vector-ref drawable 0))
(mask (car (gimp-channel-new image "Engraving Mask" (car (gimp-image-get-width image)) (car (gimp-image-get-height image)) black '(0.4 0.4 0.2 0.0 0.0 0.0 0.0 0.0 0.0))))
@@ -78,7 +78,7 @@
)
)
-(script-fu-register-filter "przem-true-cyjantype-v3"
+(script-fu-register-filter "przem-true-cyjantype-v32"
_"Apply true cyjanotype effect"
_"Pseudo-prawdziwa próba imitacji cyjanotypii"
"Przemysław R. Pietraszczyk"
@@ -95,5 +95,5 @@
)
-(script-fu-menu-register "przem-true-cyjantype-v3"
+(script-fu-menu-register "przem-true-cyjantype-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/3.2/przem-wet-collodion-v32.scm b/script-fu/3.2/przem-wet-collodion-v32.scm
index 1fa2ba3..4d1373d 100644
--- a/script-fu/3.2/przem-wet-collodion-v32.scm
+++ b/script-fu/3.2/przem-wet-collodion-v32.scm
@@ -1,4 +1,4 @@
-; przem-wet-collodion-v3 - imituje efekt mokrego kolodionu
+; przem-wet-collodion-v32 - imituje efekt mokrego kolodionu
; author: PRP
; licencja: Public Domain
; Gdańsk - 24-08-2025
@@ -92,7 +92,7 @@
-(define (przem-wet-collodion-v3 image drawable mode intensity-h intensity-s intensity-v grain blur)
+(define (przem-wet-collodion-v32 image drawable mode intensity-h intensity-s intensity-v grain blur)
(let* (
(layer (vector-ref drawable 0))
(type (car (gimp-drawable-type-with-alpha layer)))
@@ -131,7 +131,7 @@
)
)
-(script-fu-register-filter "przem-wet-collodion-v3"
+(script-fu-register-filter "przem-wet-collodion-v32"
_"Wet Collodion"
_"Imituje efekt mokrego kolodionu"
"PRP"
@@ -147,5 +147,5 @@
SF-ADJUSTMENT "Blur" '(2 0 100 1 10 0 0)
)
-(script-fu-menu-register "przem-wet-collodion-v3"
+(script-fu-menu-register "przem-wet-collodion-v32"
"<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 846f648..71376b4 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,7 @@
+# [2.260505-0] przem-surreal-v32.scm && przem-lith-effect-v32.scm
+* Uzdatnienie w pelni filtra 'surreal'
+* filtr 'lith' przeksztalca obraz na odcienie szarości zamiast sepii
+
# [2.260424-1] przem-hitchcock-d400-film-effect.scm
* Poprawka w nazwie filtra
generated by cgit v1.2.3 (git 2.25.1) at 2026-05-12 22:23:00 +0200