(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-insert-layer inimage flush-copy 0 -1)

(gimp-image-insert-layer inimage second-copy 0 -1)

(gimp-drawable-desaturate flush-copy DESATURATE-LIGHTNESS)

(gimp-drawable-desaturate second-copy DESATURATE-LIGHTNESS)

(gimp-drawable-invert second-copy TRUE)

(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)
(gimp-layer-set-mode second-copy LAYER-MODE-SCREEN)



(let*

     (

;          (merge(car(gimp-image-merge-down inimage second-copy 2)))
          (merge(car(gimp-image-merge-down inimage second-copy CLIP-TO-BOTTOM-LAYER)))

     )

(let* (

(copy(car(gimp-layer-copy merge FALSE)))

)

(gimp-image-insert-layer inimage copy 0 -1)


; (gimp-layer-set-mode copy 15)
(gimp-layer-set-mode copy LAYER-MODE-DIVIDE)

(let*

     (

          (merge2(car(gimp-image-merge-down inimage copy CLIP-TO-BOTTOM-LAYER)))

          (layerCopy 1)

     )



(gimp-drawable-invert merge2 TRUE)





; (gimp-layer-set-mode merge2 4)
(gimp-layer-set-mode merge2 LAYER-MODE-SCREEN)

(while (< layerCopy nocopy)

(let* (

     (copy (car(gimp-layer-copy merge2 FALSE)))

     )

(gimp-image-insert-layer inimage copy 0 -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)







)