diff options
Diffstat (limited to 'script-fu/3.0/przem-surreal-v3.scm')
| -rw-r--r-- | script-fu/3.0/przem-surreal-v3.scm | 35 |
1 files changed, 26 insertions, 9 deletions
diff --git a/script-fu/3.0/przem-surreal-v3.scm b/script-fu/3.0/przem-surreal-v3.scm index a0a3680..fd9654e 100644 --- a/script-fu/3.0/przem-surreal-v3.scm +++ b/script-fu/3.0/przem-surreal-v3.scm @@ -2,9 +2,9 @@ ; author: PRP
; licencja: Public Domain
; Gdańsk - 24-12-2025
-; ver. 2.251225-0~beta
+; ver. 2.260109-0~beta
-(define (przem-surreal-v3 img drawable)
+(define (przem-surreal-v3 img drawable shades)
(let* (
(width (car (gimp-image-get-width img)))
(height (car (gimp-image-get-height img)))
@@ -13,6 +13,9 @@ (green-layer (car (gimp-layer-new img "Green" width height RGB-IMAGE 100 LAYER-MODE-NORMAL)))
(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)
@@ -31,13 +34,25 @@ (if (= type RGB-IMAGE)
(gimp-drawable-desaturate type-layer DESATURATE-LIGHTNESS)
)
-
- (define filter (gimp-drawable-merge-new-filter layer-copy "gegl:colorize"))
- ; dodajemy lekką niebieską poświatę - chłodzącą zdjęcie
- (gimp-item-set-property filter "hue" 210.0)
- (gimp-item-set-property filter "saturation" 0.18)
- (gimp-item-set-property filter "lightness" 0.02)
- (gimp-drawable-merge-filter layer-copy filter)
+
+ (if (= shades 0)
+ (begin
+ (set! blue blue-glow)
+ ))
+ (if (= shades 1)
+ (begin
+ (set! blue blue-pastel)
+ ))
+
+ ;; 3. Tonowanie (niebieska poświata)
+ (gimp-drawable-merge-new-filter
+ layer-copy
+ "gegl:color"
+ 0
+ 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")
@@ -67,6 +82,8 @@ "24-12-2025"
"RGB* GRAY*"
SF-ONE-OR-MORE-DRAWABLE
+ SF-OPTION _"Shades of blue" '("Glow" "Pastel")
+
)
(script-fu-menu-register "przem-surreal-v3"
|