(script-fu-register
  "script-fu-Terra-visible-to-mult-layr"
  "Visible to mult layer"
  "Add layer from visible, set it to multiply mode"
  "Jon Tait (at request of Terra at http://gimpchat.com)"
  "Jon Tait (jontait2 at http://gimpchat.com)"
  "2015-06-30"
  "RGB* GRAY*"
  SF-IMAGE	"Image"			0
  SF-DRAWABLE	"Drawable"		0
)

(script-fu-menu-register "script-fu-Terra-visible-to-mult-layr" "<Image>/Filters/Terra/")

;********

(define 
  (script-fu-Terra-visible-to-mult-layr
    inImage inDrawable 
  )
  (let* 
    (
      (multLayer (car (gimp-layer-new-from-visible inImage inImage "mult layer")))
    )
    (gimp-image-undo-group-start inImage)

    (gimp-image-insert-layer inImage multLayer 0 -1)
    (gimp-layer-set-mode multLayer MULTIPLY-MODE)

    (gimp-image-undo-group-end inImage)
    (gimp-displays-flush)

  );end let*
);end define