(define (script-fu-kbGradientLayers)

  (define myImage (car (gimp-image-new 512 512 0)))
  (gimp-display-new myImage)

  (define byLayer (car (gimp-layer-new myImage 512 512 0 "Blue to Yellow" 100 0)))
  (gimp-image-add-layer myImage byLayer -1)
  (gimp-context-set-background '(255 255 0))
  (gimp-context-set-foreground '(0 0 255))
  (gimp-edit-blend byLayer 3 0 0 100 0 0 FALSE FALSE 1 0 TRUE 0 0 0 512)

  (define gpLayer (car (gimp-layer-new myImage 340 512 0 "Green to Purple" 100 0)))
  (gimp-image-add-layer myImage gpLayer -2)
  (gimp-context-set-background '(255 0 255))
  (gimp-context-set-foreground '(0 255 0))
  (gimp-edit-blend gpLayer 3 0 0 100 0 0 FALSE FALSE 1 0 TRUE 0 0 0 512)

  (define crLayer (car (gimp-layer-new myImage 170 512 0 "Cyan to Red" 100 0)))
  (gimp-image-add-layer myImage crLayer -3)
  (gimp-context-set-background '(0 255 255))
  (gimp-context-set-foreground '(255 0 0))
  (gimp-edit-blend crLayer 3 0 0 100 0 0 FALSE FALSE 1 0 TRUE 0 0 0 512)
)

(script-fu-register "script-fu-kbGradientLayers"
                    "Kemper-Gradients-Layers"
                    "Generates three color gradients and adds these to layers"
                    "Kemper Barkhurst"
                    "02-15-2010"
					""
					""
                    )
(script-fu-menu-register "script-fu-kbGradientLayers"
                          "<Image>/IFDM/KEMPER")