From 247543547e083ae8130d5a25fe25241a74da468b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw?= Date: Thu, 13 Feb 2025 19:04:58 +0100 Subject: przem-apply-sepia.scm-1.250213-0 --- 2.10/przem-apply-sepia.scm | 40 ++++++++++++++++++++++++++++++++++++---- 1 file changed, 36 insertions(+), 4 deletions(-) (limited to '2.10') diff --git a/2.10/przem-apply-sepia.scm b/2.10/przem-apply-sepia.scm index 91e43a3..449d627 100644 --- a/2.10/przem-apply-sepia.scm +++ b/2.10/przem-apply-sepia.scm @@ -2,9 +2,9 @@ ; author: PRP ; licencja: Public Domain ; Gdańsk - 07-02-2025 -; ver. 1.250208-0 +; ver. 1.250213-0 -(define (przem-apply-sepia image drawable value-slider-sepia) +(define (przem-apply-sepia image drawable value-slider-sepia gradient-reverse gradient-shape) (let* ( (image-width (car (gimp-image-width image))) @@ -13,6 +13,7 @@ (center-y (* image-height 0.5)) ; either is OK (sepia-layer (car (gimp-layer-new image image-width image-height RGBA-IMAGE "Sepia Layer" 100 NORMAL-MODE))) (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) @@ -27,12 +28,41 @@ ; Dodanie koloru sepii (gimp-context-set-foreground '(112 66 20)) ; Kolor sepii - + (gimp-context-set-background '(233 213 186)) ; Kolor sepii + + (gimp-image-insert-layer image sepia-layer 0 -1) (gimp-selection-all image) - (gimp-edit-blend sepia-layer FG-BG-RGB-MODE NORMAL-MODE GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE TRUE 3 0 TRUE 0 0 image-width image-height) + (if (= gradient-reverse TRUE) + (begin + + (if (= gradient-shape TRUE) + (begin + (gimp-edit-blend sepia-layer FG-BG-RGB-MODE NORMAL-MODE GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE TRUE 3 0 TRUE 0 0 image-width image-height) + ) + (begin + (gimp-edit-blend sepia-layer CUSTOM-MODE NORMAL-MODE + GRADIENT-RADIAL 100 0 REPEAT-NONE FALSE + FALSE 0 0 TRUE + center-x center-y radius 0) + ) ) ) + (begin + + (if (= gradient-shape TRUE) + (begin + (gimp-edit-blend sepia-layer FG-BG-RGB-MODE NORMAL-MODE GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE TRUE 3 0 TRUE 0 0 image-width image-height) + ) + (begin + (gimp-edit-blend sepia-layer CUSTOM-MODE NORMAL-MODE + GRADIENT-RADIAL 100 0 REPEAT-NONE FALSE + FALSE 0 0 TRUE + center-x center-y radius 0) + ) ) ) ) + + + ; ) ; Zmiana krycia warstwy (gimp-layer-set-opacity sepia-layer value-slider-sepia) @@ -53,6 +83,8 @@ SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0 SF-ADJUSTMENT "Sepia intensity" '(50 0 100 1 10 0 0) + SF-TOGGLE "Gradient reverse" FALSE + SF-TOGGLE "Shape" TRUE ) (script-fu-menu-register "przem-apply-sepia" -- cgit v1.2.3