(define (script-fu-RGB-layers image layer 
            
         )
	
		(let* 
		   (
		   (width (car (gimp-image-width image)))
		   (height (car (gimp-image-height image)))
		   (active-vectors 0)
		   (new-layer 0)
		   (test 0)
		   )
			;(gimp-image-undo-disable image); DN = NO UNDO
			(gimp-context-push)
			(gimp-image-undo-group-start image)                   ;undo-group in one step
			
			(set! new-layer (car (gimp-layer-copy layer TRUE)))
			(gimp-image-insert-layer image new-layer 0 0) ;parent 0, insert layer on top position(0)	
			(gimp-item-set-name new-layer "Blue Layer")
			(gimp-levels new-layer HISTOGRAM-RED 0 255 1.0 0 0)
			(gimp-levels new-layer HISTOGRAM-GREEN 0 255 1.0 0 0)
			
			(set! new-layer (car (gimp-layer-copy layer TRUE)))
			(gimp-image-insert-layer image new-layer 0 0) ;parent 0, insert layer on top position(0)	
			(gimp-item-set-name new-layer "Green Layer")
			(gimp-levels new-layer HISTOGRAM-RED 0 255 1.0 0 0)
			(gimp-levels new-layer HISTOGRAM-BLUE 0 255 1.0 0 0)
			(gimp-layer-set-mode new-layer ADDITION-MODE)
			
			(set! new-layer (car (gimp-layer-copy layer TRUE)))
			(gimp-image-insert-layer image new-layer 0 0) ;parent 0, insert layer on top position(0)	
			(gimp-item-set-name new-layer "Red Layer")
			(gimp-levels new-layer HISTOGRAM-GREEN 0 255 1.0 0 0)
			(gimp-levels new-layer HISTOGRAM-BLUE 0 255 1.0 0 0)
			(gimp-layer-set-mode new-layer ADDITION-MODE)
			
			;(python-fu-apply-curve 1 image layer curvefilename)
		   ;(gimp-image-undo-enable image) ;DN = NO UNDO
			(gimp-image-undo-group-end image)                     ;undo group in one step
			(gimp-context-pop)
			(gimp-displays-flush)
	    )
	
	
    
) ;end of define
(script-fu-register
  "script-fu-RGB-layers"         ;function name
  "<Image>/Script-Fu/Create New/RGB Layers"    ;menu register
  "Create RGB Layers from active layer"       ;description
  "Tin Tran"                          ;author name
  "copyright info and description"         ;copyright info or description
  "2016"                          ;date
  "RGB*, GRAY*"                        ;mode
  SF-IMAGE      "Image" 0                   
  SF-DRAWABLE   "Layer" 0
  ;SF-OPTION     "Color Curves Preset" (strbreakup (car (python-fu-get-color-curves-presets-names 1)) ",")
  ;SF-OPTION     "Color Curves Preset" (set! local-get-it (strbreakup (car (python-fu-get-color-curves-presets-names 1)) ",")
)