diff options
| -rw-r--r-- | script-fu/3.0/przem-lith-effect-v3.scm | 63 | ||||
| -rw-r--r-- | script-fu/changelog.md | 3 |
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 |
