(define (script-fu-calques-crobards inImage inCalque) ; introduction de la fonction

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

		(if (not (= RGB (car (gimp-image-base-type inImage))))
			(gimp-image-convert-rgb inImage))

		; Layer courant:
		(define calque_courant (car (gimp-image-get-active-layer inImage)))

		; Ajout du calque dans l'image
		; gimp-image-insert-layer 
		; Parametres : 	identifiant_image 
		;			identifiant_calque Ce n'est pas le nom du calque
		;			parent(groupe ?) Pas clair... sans groupe créé, laisser 0
		;			position_relative_du_calque 0 pour au-dessus du calque courant et 1 pour en-dessous

		;(gimp-image-insert-layer inImage nom_du_calque 0 0)
		;(gimp-image-insert-layer inImage "Cadres" 0 0)
		;(gimp-image-insert-layer inImage "Cadres" 1 0)
		;(gimp-image-insert-layer inImage inCalque  0)
		;(gimp-image-insert-layer inImage nom_du_calque calque_courant 0)
		; Invalid type for argument 2 gimp-image-insert-layer

		;gimp-layer-new image width height type(RGB 0) name opacity(0-100) mode(normal 0)

		;gimp-drawable-fill layer puis 0:foreground 1:background 2:blanc 3:transparent 4:pattern

		(define imgWidth (car (gimp-image-width inImage)))
		(define imgHeight (car (gimp-image-height inImage)))

		; Creation d'un nouveau calque
		(define calque_ajoute (car (gimp-layer-new inImage imgWidth imgHeight 0 "Cadres" 100 0)))
		(gimp-layer-add-alpha calque_ajoute)
		(gimp-drawable-fill calque_ajoute 3)
		; Le calque se positionne par rapport au calque actif: Avec 0, on est un au-dessus du claque courant
		(gimp-image-insert-layer inImage calque_ajoute 0 0)
		;(gimp-image-insert-layer inImage calque_ajoute calque_courant 0)
		; calque_ajoute ne peut être utilisé comme parent parce que ce n'est pas un élément groupe

		(define calque_ajoute (car (gimp-layer-new inImage imgWidth imgHeight 0 "Bulles" 100 0)))
		(gimp-layer-add-alpha calque_ajoute)
		(gimp-drawable-fill calque_ajoute 3)
		(gimp-image-insert-layer inImage calque_ajoute 0 0)
		;(gimp-image-insert-layer inImage calque_ajoute calque_courant -1)

		; Le calque se positionne par rapport au calque actif: Avec 1, on est un en-dessous
		(define calque_ajoute (car (gimp-layer-new inImage imgWidth imgHeight 0 "Fond" 100 0)))
		(gimp-drawable-fill calque_ajoute 2)
		(gimp-image-insert-layer inImage calque_ajoute 0 3)
		;(gimp-image-insert-layer inImage calque_ajoute calque_courant 1)

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

;      "<Image>/Filters/Tests/Calques crobards..."

(script-fu-register
      "script-fu-calques-crobards"
      "<Image>/MesScripts/Calques crobards..."
      "Ajout des calques classiques pour les crobards"
      "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
)