diff options
Diffstat (limited to '3.0')
| -rw-r--r-- | 3.0/przem-add-background-under-text-v3.scm | 29 |
1 files changed, 16 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"
|