(define img (car(gimp-image-new 512 512 0)))
(gimp-display-new img)
(define layer (car (gimp-layer-new img 512 512 0 "Layer1" 100 0)))
(gimp-image-add-layer img layer -1)
(gimp-context-set-background '(255 255 0))
(gimp-context-set-foreground '(0 0 255))
(gimp-edit-blend layer 3 0 0 100 0 0 FALSE FALSE 1 0 TRUE 256 0 256 256)
(script-fu-register "script-fu-BlueYellowGrad"
"
"Make a Blue to Yellow Gradient"
"RGB RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
No comments:
Post a Comment