Thursday, February 11, 2010

Assignment 3: Create a Gimp Script-Fu

From the work we did for the assignment in class:



(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"
"/Script-Fu/BlueYellowGrad"
"Make a Blue to Yellow Gradient"
"RGB RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)

No comments:

Post a Comment