diff options
| author | Przemysław <przem@prymula.ct8.pl> | 2025-12-25 15:24:21 +0100 |
|---|---|---|
| committer | Przemysław <przem@prymula.ct8.pl> | 2025-12-25 15:24:21 +0100 |
| commit | e98c30bd7ef9abb3619a37969836ffbc436d4499 (patch) | |
| tree | e23f23aa09fb723ff6dc3dcc5bab9d84a72d8260 /script-fu | |
| parent | 1475db22254382c234f6d9d67c94c46a34cca3e1 (diff) | |
2.251225-0:/przem-surreal-v3.scm
Diffstat (limited to 'script-fu')
| -rw-r--r-- | script-fu/3.0/przem-surreal-v3.scm | 21 | ||||
| -rw-r--r-- | script-fu/changelog.md | 3 |
2 files changed, 14 insertions, 10 deletions
diff --git a/script-fu/3.0/przem-surreal-v3.scm b/script-fu/3.0/przem-surreal-v3.scm index 0dd02fe..a0a3680 100644 --- a/script-fu/3.0/przem-surreal-v3.scm +++ b/script-fu/3.0/przem-surreal-v3.scm @@ -1,11 +1,11 @@ ; przem-surreal-v3 - imitacja surrealistycznych obrazów
; author: PRP
; licencja: Public Domain
-; Gdańsk - 22-6-2025
-; ver. 2.250712-0~beta
+; Gdańsk - 24-12-2025
+; ver. 2.251225-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)
@@ -13,8 +13,8 @@ (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)))
-
)
+
(gimp-context-push)
(gimp-image-undo-group-start img)
@@ -31,13 +31,14 @@ (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)
+ (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)
+
; 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")
diff --git a/script-fu/changelog.md b/script-fu/changelog.md index 5785423..5b38ac7 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,6 @@ +# [2.251225-0] przem-surreal-v3.scm +* gimp-colorize przez GEGL - schładzanie zdjęcia + # [2.251224-0] przem-surreal-v3.scm * Implementacja script-fu imitującego surrealistyczne obrazy |