; Definir la función del script cuyo nombre es prueba y listar sus parámetros, tamanio y color
; Los parametros se asociarán con los parámetros listados más adelante en script-fu-register.
(define (prueba tamanio color)

; Crear una variable img que contendrá una nueva imagen RGB
(set! img (car (gimp-image-new tamanio tamanio RGB)))

; Crear una capa
(set! capa (car (gimp-layer-new img tamanio tamanio RGB "Capa 1" 100 NORMAL)))

; Lo siguiente se suele hacer en todos los scripts, primero se deshabilita la posibilidad de deshacer
(gimp-image-undo-disable img)

; Y se añade una nueva capa a la imagen
(gimp-image-add-layer img capa 0)

; Aquí es donde comienza el dibujo

; and layer and may paint in the layer through the PDB functions.
(gimp-palette-set-background color)
(gimp-edit-fill capa BG-IMAGE-FILL)

; Lo siguiente se suele hacer en todos los scripts, primero se muestra la imagen creada
(gimp-display-new img)

; Y luego se vuelve a habilitar la posibilidad de deshacer
(gimp-image-undo-enable img))

; Por último registramos el script en el script-fu.
(script-fu-register "prueba"
"Imagen uniforme" ;Título
"Crea una imagen uniforme" ;Descripción
"Javier Callón <javier@callon.org>" ;Autor
""
"2007-11-02" ;Fecha
""
SF-VALUE "tamanio" "100" ;Aquí pasamos el primer parámetro, un valor que usaremos como tamaño
SF-COLOR "color" '(0 127 255)) ;Aquí pasamos el segundo parámetro que es un color en RGB
(script-fu-menu-register "prueba" "<Toolbox>/Xtns/Script-Fu/Tutoriales")