From 5ebcc637099146bdab1a6dc8c3134fe87ada6e3d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw=20R=2E=20Pietraszczyk?= Date: Wed, 12 Feb 2025 17:55:01 +0100 Subject: przem-add-background-under-text-v3.scm - beta --- 3.0/przem-add-background-under-text-v3.scm | 29 ++++++++++++++++------------- changelog.md | 3 +++ 2 files changed, 19 insertions(+), 13 deletions(-) diff --git a/3.0/przem-add-background-under-text-v3.scm b/3.0/przem-add-background-under-text-v3.scm index 212a665..0b201d3 100644 --- a/3.0/przem-add-background-under-text-v3.scm +++ b/3.0/przem-add-background-under-text-v3.scm @@ -4,7 +4,7 @@ ; Gdańsk - 06-02-2025 ; ver. 1.250210-0~alpha for Gimp 3.0 -(define (przem-add-background-under-text-v3 image drawable text font font-size color background-transparency opacity) +(define (przem-add-background-under-text-v3 image drawable text font font-size fg-color bg-color background-transparency opacity) (gimp-image-undo-group-start image) @@ -26,7 +26,9 @@ ) ; Ustawienie koloru tła - (gimp-context-set-background color) + (gimp-context-set-background bg-color) + (gimp-context-set-foreground fg-color) + (gimp-drawable-fill bg-layer FILL-BACKGROUND) (gimp-layer-set-opacity bg-layer opacity) @@ -37,10 +39,10 @@ ; 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-selection-translate image 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) @@ -48,19 +50,19 @@ (begin ; else ) ) - + ; Ustawienie pozycji tekstu (gimp-layer-set-offsets text-layer pos-x pos-y) - + ; Przesuń warstwę tekstową na górę stosu warstw (gimp-image-raise-item-to-top image text-layer) - + ; Scalanie warstw (gimp-image-merge-down image text-layer CLIP-TO-IMAGE) ; Aktualizacja widoku (gimp-displays-flush) - + (gimp-image-undo-group-end image) ; Zakończ grupę operacji undo ) ) @@ -75,11 +77,12 @@ SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0 SF-STRING "Text" "Doda Elektroda" - SF-FONT "Font" "Sans-serif" - SF-ADJUSTMENT "Font Size" '(50 1 1000 1 10 0 1) - SF-COLOR "Background Color" '(255 215 0) + SF-FONT "Font" "Monospace" + SF-ADJUSTMENT "Font Size" (list 50 1 1000 1 10 0 1) + SF-COLOR "Foreground Color" (list 100 100 100) + SF-COLOR "Background Color" (list 255 215 0) SF-TOGGLE "Background Transparency" FALSE - SF-ADJUSTMENT "Transparency Value" '(100 1 100 1 10 0 1) + SF-ADJUSTMENT "Transparency Value" (list 100 1 100 1 10 0 1) ) (script-fu-menu-register "przem-add-background-under-text-v3" diff --git a/changelog.md b/changelog.md index 8559808..14b2339 100644 --- a/changelog.md +++ b/changelog.md @@ -1,3 +1,6 @@ +# [1.250212-0] przem-add-background-under-text.scm +* Możliwość zmiany koloru tła i czcionki wewnątrz wtyczki, nie można zmienić czcionki. Potrafi się wykrzaczyć + # [1.250910-0~alpha] * Wersja alpha 'przem-add-background-under-text.scm', pokazuje samo tło i w dodatku w złym miejscu -- cgit v1.2.3