From b975e7bc6d737c3eeb51f66579deecc66c3b9965 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw?= Date: Sat, 15 Feb 2025 21:52:57 +0100 Subject: 2.250215-1 --- 3.0/przem-add-background-under-text-v3.scm | 23 +++++++++++++++-------- 3.0/przem-apply-sepia-v3.scm | 6 +++--- changelog.md | 3 +++ 3 files changed, 21 insertions(+), 11 deletions(-) diff --git a/3.0/przem-add-background-under-text-v3.scm b/3.0/przem-add-background-under-text-v3.scm index 0b201d3..943e00c 100644 --- a/3.0/przem-add-background-under-text-v3.scm +++ b/3.0/przem-add-background-under-text-v3.scm @@ -2,7 +2,7 @@ ; author: PRP ; licencja: Public Domain ; Gdańsk - 06-02-2025 -; ver. 1.250210-0~alpha for Gimp 3.0 +; ver. 2.250215-1~alpha for Gimp 3.0 (define (przem-add-background-under-text-v3 image drawable text font font-size fg-color bg-color background-transparency opacity) @@ -21,8 +21,8 @@ (bg-x-right (+ text-width 10)) ;(text-layer (car (gimp-text-fontname image -1 0 0 text 0 TRUE font-size 0 font))) (text-layer (car(gimp-text-font image -1 0 0 text 0 TRUE font-size font))) - (bg-layer (car (gimp-layer-new image bg-x-right text-height RGBA-IMAGE "Background" 100 LAYER-MODE-NORMAL))) - (is-nocolorful (car (gimp-drawable-is-gray drawable))) ; czy obraz jest w odcieniach szarości + (bg-layer (car (gimp-layer-new image "Background" bg-x-right text-height RGB-IMAGE 100 LAYER-MODE-NORMAL))) + ;(is-nocolorful (car (gimp-drawable-is-gray drawable))) ; czy obraz jest w odcieniach szarości ) ; Ustawienie koloru tła @@ -33,16 +33,23 @@ (gimp-layer-set-opacity bg-layer opacity) ; jeśli obraz jest szary to konwertuje go na RGB - tak na sztukę - (if (= is-nocolorful TRUE) - (gimp-image-convert-rgb image) - ) - + ;(if (= is-nocolorful TRUE) + ; (gimp-image-convert-rgb image) + ;) + ; TODO + ; jeśli obraz jest szary to konwertuje go na RGB - w RC2 ten numer nie przedzie + ;(if (= type GRAY-IMAGE) + ; (gimp-image-convert-rgb image) ) + ; lub lepiej ... + ;(if (> (car (gimp-drawable-type (vector-ref drawable 0))) 1 ) + ; (gimp-image-convert-rgb image)) + ; Dodanie warstwy tła pod tekstem (gimp-image-insert-layer image bg-layer 0 -1) ;(gimp-layer-translate bg-layer bg-x-left pos-y) ;(gimp-selection-translate image bg-layer bg-x-left pos-y) - (gimp-layer-set-offsets bg-layer bg-x-left pos-y) + (gimp-layer-set-offsets bg-layer bg-x-left pos-y) (if (= background-transparency TRUE) (begin (gimp-drawable-fill bg-layer FILL-TRANSPARENT) diff --git a/3.0/przem-apply-sepia-v3.scm b/3.0/przem-apply-sepia-v3.scm index 91896be..ce8c11b 100644 --- a/3.0/przem-apply-sepia-v3.scm +++ b/3.0/przem-apply-sepia-v3.scm @@ -2,7 +2,7 @@ ; author: PRP ; licencja: Public Domain ; Gdańsk - 07-02-2025 -; ver. 2.2502015-0 for GIMP 3 +; 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 @@ -12,7 +12,7 @@ (image-width (car (gimp-image-get-width image))) (image-height (car (gimp-image-get-height image))) (layer (vector-ref drawable 0)) - (type (car (gimp-drawable-type-with-alpha layer))) + (type (car (gimp-drawable-type layer))) (center-x (/ image-width 2)) (center-y (/ image-height 2)) (sepia-layer (car (gimp-layer-new image "Sepia" image-width image-height RGB-IMAGE 100 LAYER-MODE-NORMAL))) @@ -32,7 +32,7 @@ ; Konwersja obrazu do skali szarości ;(gimp-desaturate drawable) - (if (= type RGBA-IMAGE) + (if (= type RGB-IMAGE) (gimp-drawable-desaturate layer DESATURATE-LIGHTNESS)) (gimp-context-set-foreground '(112 66 20)) ; sepia ciemniejszy diff --git a/changelog.md b/changelog.md index 2a3708b..508571a 100644 --- a/changelog.md +++ b/changelog.md @@ -1,3 +1,6 @@ +# [2.250215-1] przem-apply-sepia-v3.scm - przem-add-background-under-text-v3.scm +* Oba skrypty pracują nieprawidłowo z obrazem w odcieniach szarości + # [2.250215-0] przem-apply-sepia.scm * BUG ? Nie potrafi przekonwertować obrazka GRAY na RGB - w przypadku szarego obrazu nakłąda jedynie gradient, bez sepii -- cgit v1.2.3