Re: First script

[Ingo Ruhnke]

Mickael Lefevre <[EMAIL PROTECTED]> writes:

>   ; Define the function of the script and list its parameters
> (define (script-fu-uni size color)
>[...]
>   "/Xtns/Script-Fu/Logos/ABC"

Should be 
  "/Xtns/Script-Fu/Logos/ABC"

-- 
ICQ: 59461927http://pingus.seul.org | 
Ingo Ruhnke <[EMAIL PROTECTED]> http://home.pages.de/~grumbel/ |
'

Re: First script

[Hago Ziegler]

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"  
"/Xtns/Script-Fu/Tutorials/Uniform image" 
"Creates a uniform image" 
"Dov Grobgeld" 
"Dov Grobgeld" 
"1997" 
""  
SF-VALUE "size" "100" 
SF-COLOR "color" '(255 127 0) )  

Hago