(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-layer-set-mode multLayer LAYER-MODE-MULTIPLY)

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

);end let*
);end define