diff options
| -rw-r--r-- | 3.0/przem-apply-sepia-v3.scm | 41 | ||||
| -rw-r--r-- | changelog.md | 6 |
2 files changed, 29 insertions, 18 deletions
diff --git a/3.0/przem-apply-sepia-v3.scm b/3.0/przem-apply-sepia-v3.scm index ce8c11b..0bf7961 100644 --- a/3.0/przem-apply-sepia-v3.scm +++ b/3.0/przem-apply-sepia-v3.scm @@ -1,13 +1,10 @@ ; przem-apply-sepia-v3 - Script-fu dodający prawdziwą sepie do zdjęcia ; author: PRP -; licencja: Public Domain +; licencja: Public Doimain ; Gdańsk - 07-02-2025 -; ver. 2.2502015-1~alpha for GIMP 3 -; -; BUG ? Niepotrafi przekonwertować szarego obrazka na rgb -; * Póki co w przypadku mochromatycznego zdjęcia, nakłada jedynie gradient, bez sepii +; ver. 2.2502019-0~alpha for GIMP 3 -(define (przem-apply-sepia-v3 image drawable value-slider-sepia gradient-reverse gradient-shape) +(define (przem-apply-sepia-v3 image drawable value-slider-sepia shadow-sepia gradient-reverse gradient-shape) (let* ( (image-width (car (gimp-image-get-width image))) (image-height (car (gimp-image-get-height image))) @@ -17,31 +14,35 @@ (center-y (/ image-height 2)) (sepia-layer (car (gimp-layer-new image "Sepia" image-width image-height RGB-IMAGE 100 LAYER-MODE-NORMAL))) (radius (sqrt (+ (* center-x center-x) (* center-y center-y)))) + (the-layer 0) ) (gimp-image-undo-group-start image) ;(gimp-image-undo-disable image) - ; TODO + ; TODO - z kodu old-photo wynika że nie trzeba konwertować na RGB - mimo tego kod nie dziala jak należy ; jeśli obraz jest szary to konwertuje go na RGB - w RC2 ten numer nie przedzie - ;(if (= type GRAYA-IMAGE) - ; (gimp-image-convert-rgb image) ) - ; lub lepiej ... + ;;(if (= type GRAY-IMAGE) + ; (gimp-image-convert-rgb image) ) + ; lub ... ;(if (> (car (gimp-drawable-type (vector-ref drawable 0))) 1 ) ; (gimp-image-convert-rgb image)) + (gimp-selection-all image) + (set! the-layer (car (gimp-image-flatten image))) + ; Konwersja obrazu do skali szarości - ;(gimp-desaturate drawable) + ; TODO - po aktualizacji GIMPa wyłączyć warunek (if (= type RGB-IMAGE) - (gimp-drawable-desaturate layer DESATURATE-LIGHTNESS)) - + (gimp-drawable-desaturate the-layer DESATURATE-LIGHTNESS)) + (gimp-context-set-foreground '(112 66 20)) ; sepia ciemniejszy (gimp-context-set-background '(233 213 186)) ; sepia jasniejszy ;(gimp-context-set-background '(210 180 140)) ; sepia jasniejsza ; Dodanie koloru sepii (gimp-image-insert-layer image sepia-layer 0 -1) - + (gimp-context-push) ;(plug-in-checkerboard #:run-mode RUN-NONINTERACTIVE @@ -49,20 +50,20 @@ ; #:drawables (vector drawable) ; #:psychobilly 0 ; #:check-size 8) - (plug-in-checkerboard RUN-NONINTERACTIVE image (vector sepia-layer) 0 2) + (plug-in-checkerboard RUN-NONINTERACTIVE image (vector sepia-layer) 0 8) (gimp-context-pop) (gimp-context-push) - (gimp-selection-all image) + ;(gimp-selection-all image) ; tak było w v. 2.10 ;(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-shape TRUE) (begin (gimp-context-set-gradient-reverse gradient-reverse) (gimp-drawable-edit-gradient-fill sepia-layer - GRADIENT-LINEAR 0 + GRADIENT-LINEAR (- 100 shadow-sepia) FALSE 1 0 TRUE 0 0 image-width image-height) @@ -70,7 +71,7 @@ (begin (gimp-context-set-gradient-reverse gradient-reverse) (gimp-drawable-edit-gradient-fill sepia-layer - GRADIENT-SHAPEBURST-DIMPLED 0 + GRADIENT-SHAPEBURST-DIMPLED (- 100 shadow-sepia) FALSE 1 0 TRUE 0 0 center-x center-y) @@ -84,6 +85,9 @@ (gimp-image-merge-down image sepia-layer CLIP-TO-IMAGE) + (gimp-selection-none image) + + (gimp-image-undo-group-end image) ;(gimp-image-undo-enable image) @@ -99,6 +103,7 @@ "RGB* GRAY*" SF-ONE-OR-MORE-DRAWABLE SF-ADJUSTMENT _"Sepia intensity" '(50 0 100 1 10 0 0) ; Suwak poziomy + SF-ADJUSTMENT _"Shadow Sepia" '(30 0 100 1 10 0 0) ; Suwak poziomy SF-TOGGLE _"Gradient reverse" FALSE SF-TOGGLE _"Shape" TRUE diff --git a/changelog.md b/changelog.md index 772b1b3..bb9d069 100644 --- a/changelog.md +++ b/changelog.md @@ -1,3 +1,9 @@ +# [2.250219-1] przem-apply-sepia-v3.scm
+* Dodanie 'gimp-image-flatten', bez efektu
+
+# [2.250219-0] przem-apply-sepia-v3.scm
+* Dodanie suwaka z shadow-sepia użytego jako argument 'gimp-drawable-edit-gradient-fill'
+
# [2.250217-0] przem-traditional-photo.scm && przem-traditional-photo-v3.scm
* Zmniejszyłem skrajne parametry do -100 i 100 dla skali kontrastu i balansu koloru
|