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 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) (limited to '3.0/przem-add-background-under-text-v3.scm') 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" -- cgit v1.2.3