PDA

Vollständige Version anzeigen : Neue Ebenen erstellen und mit Farben füllen


Quiddel
29.04.2009, 14:43
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:



(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")