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.scm63
-rw-r--r--script-fu/changelog.md3
2 files changed, 66 insertions, 0 deletions
diff --git a/script-fu/3.0/przem-lith-effect-v3.scm b/script-fu/3.0/przem-lith-effect-v3.scm
new file mode 100644
index 0000000..0220952
--- /dev/null
+++ b/script-fu/3.0/przem-lith-effect-v3.scm
@@ -0,0 +1,63 @@
+; przem-lith-effect-v3 - imitacja odbitki litowej
+; author: PRP
+; licencja: Public Domain
+; Gdańsk - 25-12-2025
+; ver. 2.251225-1~beta
+
+(define (przem-lith-effect-v3 img drawable)
+ (let* (
+ (source-layer (vector-ref (car (gimp-image-get-layers img)) 0 ))
+ (layer-copy 0)
+ )
+ (gimp-context-push)
+ (gimp-image-undo-group-start img)
+
+ (set! layer-copy (car (gimp-layer-copy source-layer)))
+
+
+ ;; 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))
+
+ ;; 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-image-undo-group-end img)
+ (gimp-displays-flush)
+ (gimp-context-pop)
+ )
+)
+
+(script-fu-register-filter "przem-lith-effect-v3"
+ "_Lith-effect"
+ "_Odbitka Litowa"
+ "P.R.P"
+ "Public Domain"
+ "25-12-2025"
+ "RGB* GRAY*"
+ SF-ONE-OR-MORE-DRAWABLE
+)
+
+(script-fu-menu-register "przem-lith-effect-v3"
+ "<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 5b38ac7..5f0771b 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,6 @@
+# [2.251225-1] przem-lith-effect-v3.scm
+* Propozycja nowej wtyczki dt. Odbitki Litowej
+
# [2.251225-0] przem-surreal-v3.scm
* gimp-colorize przez GEGL - schładzanie zdjęcia