; Definiert die Funktion mit seinen Parametern
; Die Parameter stimmen mit den Parametern überein,
; die unten bei "script-fu-register" aufgeführt sind.

(define (uni-img size color)

  ; Erzeugt ein Bild und eine Ebene
  (set! img (car (gimp-image-new size size RGB)))
  (set! layer (car (gimp-layer-new img size size RGB "layer 1" 100 NORMAL)))

  ; Die folgenden Schritte werden für alle Scripts gemacht
  (gimp-image-undo-disable img)
  (gimp-image-add-layer img layer 0)

  ; Hier beginnen wir mit dem Gestalten. Wir haben ein Bild und eine
  ; Ebene und können mit Hilfe der geeigneten PDB-Funktion das Bild
  ; ausfüllen
  (gimp-palette-set-background color)
  (gimp-edit-fill layer)

  ; Die folgenden Schritte werden ebenfalls für alle Scripts gemacht
  (gimp-display-new img)
  (gimp-image-undo-enable img)
)

; Schließlich registrieren wir unser Script in Script-Fu
(script-fu-register "uni-img" 
     "<Toolbox>/Xtns/Script-Fu/Test/Uniform image..."
     "Creates a uniform image"
     "Dov Grobgeld"
     "Dov Grobgeld"
     "1997"
     "" 
     SF-VALUE "size" "100"
     SF-COLOR "color" '(255 127 0)
)