(define (script-fu-my_4323_workflow image drawable)
	(set! theImageWidth  (car  (gimp-image-width image)))
	(set! theImageHeight (car  (gimp-image-height image)))
	(if (> theImageWidth theImageHeight)
		(begin
			(set! theNewImageWidth theImageWidth)
			(set! theNewImageHeight (* theImageWidth (/ 2 3)))
			(set! theX 0)
			(set! theY (/ (- theImageHeight theNewImageHeight) 2))
		)
		(begin
			(set! theNewImageHeight theImageHeight)
			(set! theNewImageWidth (* theImageHeight (/ 2 3)))
			(set! theY 0)
			(set! theX (/ (- theImageWidth theNewImageWidth) 2))
		)
	)
	(gimp-rect-select  image  theX theY theNewImageWidth theNewImageHeight 0 0 0)
	(gimp-displays-flush)
)

(script-fu-register "script-fu-my_4323_workflow"
	"<Image>/Script-Fu/Utils/My 4323 Workflow..."
	"Workflow de traitement pour transformation du format 4/3 en 2/3"
	"Stephan Peccini (stephan@photonature.fr)"
	"Stephan Peccini"
	"May 2005"
	"RGB* GRAY*"
	SF-IMAGE "Input Image" 0
	SF-DRAWABLE "Input Drawable" 0
)