(define (script-fu-my_refocus image drawable)
	(let*
		(
			(theImage (plug-in-decompose 1 image drawable "LAB" 0))
			(theImageNumberL (car theImage))
			(theImageNumberA (+ theImageNumberL 1))
			(theImageNumberB (+ theImageNumberL 2))
			(theLayers (gimp-image-get-layers theImageNumberL))
			(theLayersArray (cadr theLayers))
			(theLayerL (aref theLayersArray 0))
			(theNullVar (plug-in-refocus 1 theImageNumberL theLayerL 25 1.0 0.0 0.5 0.01))
			(theNewImage (car (plug-in-compose 1 theImageNumberL drawable theImageNumberA theImageNumberB -1 "LAB")))
			(theDisplay (gimp-display-new theNewImage))
		)
	)
)


(script-fu-register "script-fu-my_refocus"
	"<Image>/Script-Fu/Utils/My Refocus..."
	"Decomposition en mode LAB, puis refocus sur la couche L, puis recomposition"
	"Stephan Peccini (stephan@photonature.fr)"
	"Stephan Peccini"
	"April 2005"
	"RGB* GRAY*"
	SF-IMAGE "Input Image" 0
	SF-DRAWABLE "Input Drawable" 0
)