summaryrefslogtreecommitdiff
path: root/script-fu
diff options
context:
space:
mode:
Diffstat (limited to 'script-fu')
-rw-r--r--script-fu/3.0/przem-lith-effect-v3.scm82
-rw-r--r--script-fu/3.0/przem-surreal-v3 — kopia.scm81
-rw-r--r--script-fu/changelog.md3
3 files changed, 56 insertions, 110 deletions
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 — kopia.scm b/script-fu/3.0/przem-surreal-v3 — kopia.scm
deleted file mode 100644
index 1c9a809..0000000
--- a/script-fu/3.0/przem-surreal-v3 — 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"
- "<Image>/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
generated by cgit v1.2.3 (git 2.25.1) at 2026-01-16 00:19:46 +0100