diff options
| author | Przemysław <prymula76@outlook.com> | 2025-02-13 19:04:58 +0100 |
|---|---|---|
| committer | Przemysław <prymula76@outlook.com> | 2025-02-13 19:04:58 +0100 |
| commit | 247543547e083ae8130d5a25fe25241a74da468b (patch) | |
| tree | 0e7c0c0d1446801afb0477cd9e04a06f99a63f70 /3.0/przem-apply-sepia-v3.scm | |
| parent | 51d12e89d311b1f71993b310b26293d822a5ae30 (diff) | |
przem-apply-sepia.scm-1.250213-0
Diffstat (limited to '3.0/przem-apply-sepia-v3.scm')
| -rw-r--r-- | 3.0/przem-apply-sepia-v3.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/3.0/przem-apply-sepia-v3.scm b/3.0/przem-apply-sepia-v3.scm index 0ff0292..5689358 100644 --- a/3.0/przem-apply-sepia-v3.scm +++ b/3.0/przem-apply-sepia-v3.scm @@ -2,16 +2,17 @@ ; author: PRP ; licencja: Public Domain ; Gdańsk - 07-02-2025 -; ver. 1.2502012-0 for GIMP 3 +; ver. 1.2502013-0 for GIMP 3 (define (przem-apply-sepia-v3 image drawable value-slider-sepia gradient-reverse gradient-shape) (let* ( (image-width (car (gimp-image-get-width image))) (image-height (car (gimp-image-get-height image))) (center-x (/ image-width 2)) - (center-y (* image-height 0.5)) ; either is OK + (center-y (/ image-height 2)) ; either is OK (sepia-layer (car (gimp-layer-new image image-width image-height RGBA-IMAGE "Sepia Layer" 100 LAYER-MODE-NORMAL))) (is-nocolorful (car (gimp-drawable-is-gray drawable))) ; czy obraz jest w odcieniach szarości + (radius (sqrt (+ (* center-x center-x) (* center-y center-y)))) ) (gimp-image-undo-group-start image) @@ -29,15 +30,16 @@ (gimp-drawable-desaturate drawable DESATURATE-LIGHTNESS) ; Dodanie koloru sepii - (gimp-context-set-foreground (list 112 66 20)) ; sepia ciemniejszy - (gimp-context-set-foreground (list 233 213 186)) ; sepia jasniejszy (gimp-image-insert-layer image sepia-layer 0 -1) (gimp-context-push) - (gimp-context-set-foreground (list 112 66 20)) ; ciemniejsza - (gimp-context-set-background (list 210 180 140)) ; jasniejsza + (gimp-context-set-foreground (list 112 66 20)) ; sepia ciemniejszy + (gimp-context-set-background (list 233 213 186)) ; sepia jasniejszy + + ;(gimp-context-set-foreground (list 112 66 20)) ; ciemniejsza + ;(gimp-context-set-background (list 210 180 140)) ; jasniejsza ;(plug-in-checkerboard #:run-mode RUN-NONINTERACTIVE ; #:image image ; #:drawables (vector drawable) @@ -67,7 +69,7 @@ GRADIENT-SHAPEBURST-DIMPLED 0 FALSE 1 0 TRUE - 0 0 image-width image-height) + 0 0 center-x center-y) ) ) (gimp-context-pop) |