; le righe che iniziano con ; sono commenti

(define (script-fu-demolivelligruppo img drawable)
  (let*
         (
	 ; dichiarare tutte qui le variabili usate

         	; crea il nuovo gruppo senza visualizzarlo
		; e ottiene l'id nella variabile miogruppo
         	(miogruppo (car(gimp-layer-group-new img)))
	 )

  ; qui ci saranno tutte le operazioni da compiere

	; fai partire l'undo unico per tutte le operazioni
	; successive fino a gimp-image-undo-group-end
	(gimp-image-undo-group-start img)

	; deseleziona qualsiasi selezione impostata
	(gimp-selection-none img)


  ; qui ci saranno le nostre operazioni da compiere

	; parte 3 ----------------------------------------------------

	;Imposta ad "Originale" in nome del layer di base
	(gimp-item-set-name
		(car (gimp-image-get-active-layer img))
		"Originale"
	)

       	; inserisce il gruppo miogruppo nell'immagine
       	(gimp-image-insert-layer img miogruppo -1 0)

	; da il nome "Script" al gruppo
    	(gimp-item-set-name miogruppo "Script")

	; fine parte 3 -----------------------------------------------

	; ferma l'undo unico
	(gimp-image-undo-group-end img)

	; conclude tutte le operazioni in corso
	; e rigenera il display
        (gimp-displays-flush)

  )
)

; ------------------------------
;   Funzione di registrazione
; ------------------------------
(script-fu-register "script-fu-demolivelligruppo"
                    _"<Image>/Filters/Personali/demo livelli gruppo"
                    "demo livelli gruppo"
                    "MC"
                    ""
  		    "2012, apr"
  		    "RGB* GRAY*"
  SF-IMAGE      "Image"	            0
  SF-DRAWABLE   "Drawable"          0
)