Hi Mickael,

Am Thu, 13 Apr 2000 schrieben Sie:
> I'm trying to do the uni.scm script like in the tutorial from dov grobgled

I also used this script for to learn script-fu. At least I got it running
after I made some changes. Here is, what worked fine here:

;I changed the name just for fun
(define (uni-img size color) 
(set! img (car (gimp-image-new size size 0) ) ) 
(set! layer (car (gimp-layer-new img size size 
0 "layer 1" 100 0) ) ) 
; (gimp-image-undo-disable img)
(gimp-image-add-layer img layer 0) 
(gimp-palette-set-background color) 
(gimp-edit-fill layer)    ; here I deleated "img"
(gimp-display-new img) ) 
;(gimp-image-enable-undo img) 

(script-fu-register "uni-img"  
"<Toolbox>/Xtns/Script-Fu/Tutorials/Uniform image" 
"Creates a uniform image" 
"Dov Grobgeld" 
"Dov Grobgeld" 
SF-VALUE "size" "100" 
SF-COLOR "color" '(255 127 0) )  


Reply via email to