(define (script-fu-resize-1000-2000_RGB inImage inCalque) ; introduction de la fonction

  (gimp-image-undo-group-start inImage)		; ouverture du groupe d'annulation

	(gimp-image-resize		; instruction Resize
		inImage		; image active
		1000	; new-width
		2000	; new-height
		0	; offx
		0	; offy
	)
	(gimp-layer-resize-to-image-size		; instruction Calque prend la taille de l image
		inCalque	; calque actif
	)

	(if (not (= RGB (car (gimp-image-base-type inImage))))
		(gimp-image-convert-rgb inImage))
	;(gimp-image-convert-rgb		; instruction Image en RGB
	;	inImage	; calque actif
	;)

  (gimp-image-undo-group-end inImage)		; fermeture du groupe d'annulation
  (gimp-displays-flush)				; rafraichissement de l'affichage

)

;      "<Image>/Filters/Tests/Resize 1000 2000..."
(script-fu-register
      "script-fu-resize-1000-2000_RGB"
      "<Image>/MesScripts/Resize 1000 2000..."
      "Redimensionner l image au format 1000 par 2000"
      "Stephane Boireau"
      "Ce script est sous licence de logiciel libre Cecill-C - Voir http://www.cecill.info/"
      "14 avril 2020"
      ""
      SF-IMAGE "Image active" 0
      SF-DRAWABLE "Calque actif" 0
)