; 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 -----------------------------------------------


	; parte 4 ----------------------------------------------------

	; crea un nuovo livello nel gruppo livelli id miogruppo
	; col nome "Prova"
	(gimp-image-insert-layer img
		(car (gimp-layer-new img
			(car (gimp-drawable-width drawable))
			(car (gimp-drawable-height drawable))
			(car (gimp-drawable-type drawable))
		     "Prova"
		     100
		     NORMAL-MODE
		     )
		)
		miogruppo
 		0
	)

	; seleziona del layer col nome "Originale"
	(gimp-image-set-active-layer img
		(car (gimp-image-get-layer-by-name img
			"Originale"
		      )
		)
	)


	; copia il livello selezionato nel buffer ...
   	(gimp-edit-copy drawable)


	; e incollalo nel livello col nome "Prova"
	(gimp-floating-sel-anchor
		(car (gimp-edit-paste
			(car (gimp-image-get-layer-by-name img
			     "Prova"
			      )
			)
		      0
		      )
		)
	)


	; fine parte 4 -----------------------------------------------

	; parte 5 ----------------------------------------------------

	; crea un nuovo livello nel gruppo livelli id miogruppo
	; col nome "Colori-Livelli"
	(gimp-image-insert-layer img
		(car (gimp-layer-new img
			(car (gimp-drawable-width drawable))
			(car (gimp-drawable-height drawable))
			(car (gimp-drawable-type drawable))
		     "Colori-Livelli"
		     100
		     NORMAL-MODE
		     )
		)
		miogruppo
 		0
	)


	; seleziona del layer col nome "Prova"
	(gimp-image-set-active-layer img
		(car (gimp-image-get-layer-by-name img
			"Prova"
		      )
		)
	)

	; copia il livello selezionato nel buffer ...
   	(gimp-edit-copy drawable)


	; e incollalo nel livello col nome "Colori-Livelli"
	(gimp-floating-sel-anchor
		(car (gimp-edit-paste
			(car (gimp-image-get-layer-by-name img
			     "Colori-Livelli"
			      )
			)
		      0
		      )
		)
	)

	; applica colori-livelli 12 1.22 222 0 255
	; al livello col nome "Colori-Livelli"
	(gimp-levels
		(car (gimp-image-get-layer-by-name img
			"Colori-Livelli"
		     )
		)
		0 12 222 1.22 0 255
	)

	; fine parte 5 -----------------------------------------------



	; appendice parte 5  colori-livelli-auto ----------------------


	; crea un nuovo livello nel gruppo livelli id miogruppo
	; col nome "Colori-Livelli-Auto"
	(gimp-image-insert-layer img
		(car (gimp-layer-new img
			(car (gimp-drawable-width drawable))
			(car (gimp-drawable-height drawable))
			(car (gimp-drawable-type drawable))
		     "Colori-Livelli-Auto"
		     100
		     NORMAL-MODE
		     )
		)
		miogruppo
 		0
	)


	; seleziona del layer col nome "Prova"
	(gimp-image-set-active-layer img
		(car (gimp-image-get-layer-by-name img
			"Prova"
		      )
		)
	)

	; copia il livello selezionato nel buffer ...
   	(gimp-edit-copy drawable)


	; e incollalo nel livello col nome "Colori-Livelli-Auto"
	(gimp-floating-sel-anchor
		(car (gimp-edit-paste
			(car (gimp-image-get-layer-by-name img
			     "Colori-Livelli-Auto"
			      )
			)
		      0
		      )
		)
	)

	; applica colori-livelli AUTO
	; al livello col nome "Colori-Livelli-Auto"
	(gimp-levels-stretch
		(car (gimp-image-get-layer-by-name img
			"Colori-Livelli-Auto"
		     )
		)
	)


	; fine appendice parte 5  colori-livelli-auto -----------------



	; parte 6 -----------------------------------------------

	; crea un nuovo livello nel gruppo livelli id miogruppo
	; col nome "Colori-Curve"
	(gimp-image-insert-layer img
		(car (gimp-layer-new img
			(car (gimp-drawable-width drawable))
			(car (gimp-drawable-height drawable))
			(car (gimp-drawable-type drawable))
		     "Colori-Curve"
		     100
		     NORMAL-MODE
		     )
		)
		miogruppo
 		0
	)


	; seleziona del layer col nome "Prova"
	(gimp-image-set-active-layer img
		(car (gimp-image-get-layer-by-name img
			"Prova"
		      )
		)
	)

	; copia il livello selezionato nel buffer ...
   	(gimp-edit-copy drawable)


	; e incollalo nel livello col nome "Colori-Curve"
	(gimp-floating-sel-anchor
		(car (gimp-edit-paste
			(car (gimp-image-get-layer-by-name img
			     "Colori-Curve"
			      )
			)
		      0
		      )
		)
	)


	; aapplichiamo Colori-Curve al livello "Colori-Curve"
	(gimp-curves-spline
		(car (gimp-image-get-layer-by-name img
			"Colori-Curve"
		     )
		)
		0
		10
		#(
			18 0 59 83 119 170 206 208 255 255
		)
	)

	; fine parte 6 -----------------------------------------------



	; 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
)