GIMP-Forum 3.0

GIMP-Forum 3.0 (http://www.gimpforum.de/index.php)
-   Skripte (http://www.gimpforum.de/forumdisplay.php?f=27)
-   -   Neue Ebenen erstellen und mit Farben füllen (http://www.gimpforum.de/showthread.php?t=13129)

Quiddel 29.04.2009 14:43

Neue Ebenen erstellen und mit Farben füllen
 
Hallo,

ich habe gerade ein kleines Script geschrieben, was 3 Ebenen erstellen soll und diese mit Farbtönen füllen soll. Leider scheint sich ein Fehler eingeschlichen zu haben. Hab ihn auch nach längerer Suche nicht gefunden. Könnt ihr mir da helfen?

Das Script:

Code:


(define (script-fu-vintage image drawable
    (let*
        (imgWidth  (car (gimp-image-width image)))
            (imgHeight  (car (gimp-image-height image))))

(gimp-layer-new image imgWidth imgHeight 0 magenta 20.5 4)
(gimp-layer-new image imgWidth imgHeight 0 yellow 59.0 3)
(gimp-layer-new image imgWidth imgHeight 0 blue 17.2 4)
(gimp-image-set-active-layer image magenta)
(gimp-context-set-foreground #E865b3)
(gimp-edit-bucket-fill drawable 0)
(gimp-image-set-active-layer image yellow)
(gimp-context-set-foreground #fbf2a3)
(gimp-edit-bucket-fill drawable 0)
(gimp-image-set-active-layer image blue)
(gimp-context-set-foreground #0949e9)
(gimp-edit-bucket-fill drawable 0)

)


(script-fu-register
    "script-fu-vintage"                          ;func name
    "Vintage"                                        ;menu label
    "Vintage"                                    ;description
    ""                                            ;author
    "Copyright 2009"                              ;copyright notice
    "April 27, 2009"                              ;date created
    ""                                            ;image type that the script works on
    SF-IMAGE "Image" 0
    SF-DRAWABLE "Layer" 0 
)

(script-fu-menu-register "script-fu-vintage" "<Image>/Filters/Künstlerisch")



Alle Zeitangaben in WEZ +2. Es ist jetzt 17:28 Uhr.

Powered by vBulletin® Version 3.8.2 (Deutsch)
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.