Here is an older script. Maybe it runs on newer GIMP versions with some syntax adjustments:
(define (plasti-wrap inimage indraw radius nocopy)
(gimp-image-undo-group-start inimage)
(let*
(
(flush-copy (car(gimp-layer-copy indraw 1)))
(second-copy (car(gimp-layer-copy indraw 1)))
)
(gimp-image-add-layer inimage flush-copy -1)
(gimp-image-add-layer inimage second-copy -1)
(gimp-desaturate flush-copy)
(gimp-desaturate second-copy)
(gimp-invert second-copy)
(plug-in-neon 1 inimage flush-copy radius 0)
(plug-in-neon 1 inimage second-copy radius 0)
(gimp-layer-set-mode second-copy 4)
(let*
(
(merge(car(gimp-image-merge-down inimage second-copy 2)))
)
(let* (
(copy(car(gimp-layer-copy merge 1)))
)
(gimp-image-add-layer inimage copy -1)
(gimp-layer-set-mode copy 15)
(let*
(
(merge2(car(gimp-image-merge-down inimage copy 2)))
(layerCopy 1)
)
(gimp-invert merge2)
(gimp-layer-set-mode merge2 4)
(while (< layerCopy nocopy)
(let* (
(copy (car(gimp-layer-copy merge2 1)))
)
(gimp-image-add-layer inimage copy -1)
(set! layerCopy (+ layerCopy 1))
))
(gimp-displays-flush)
(gimp-image-undo-group-end inimage)
)
)
)
)
)
(script-fu-register "plasti-wrap"
"<Image>/Filters/Light and Shadow/plasti-wrap..."
"This Filter attempts to do the same as the pastic wrap PS Filter (taken from tutorial at
http://guicon.110mb.com
)"
"Karl Ward"
"Karl Ward"
"SEPT 2007"
"Licence GPL -http://www.gnu.org/licenses/gpl-3.0.txt"
SF-IMAGE "SF-IMAGE" 0
SF-DRAWABLE "SF-DRAWABLE" 0
SF-ADJUSTMENT "Neon Radius (10 recommended)" '(10 1 100 1 2 0 1)
SF-ADJUSTMENT "final layer Copy" '(1 1 10 1 2 0 1)
)