; le righe che iniziano con ; sono commenti

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


		; ottiene l'id del gruppo, se esiste 
		; del livello originale nella variabile gruppoattuale
         	(gruppoattuale (car(gimp-item-get-parent drawable)))
		; questo consente di restare ll'interno del gruppo
		; del livello originale se questo esiste
	
	 )

  ; 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 

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



	; crea un nuovo livello nel gruppo livelli id gruppoattuale
	; col nome "Color" modalita COLOR-MODE
	(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)) 
		     "Color"  
		     100
		     COLOR-MODE
		     )
		) 
		gruppoattuale
 		0
	)

	; copia il livello "Originale" nel buffer ...
   	(gimp-edit-copy 
		(car (gimp-image-get-layer-by-name img 
			"Originale"
		      )
		)

	)


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


	; applichiamo la sfocatura gaussiana al livello "Color"
	(plug-in-gauss-rle2
		1
		img 
		(car (gimp-image-get-layer-by-name img 
			"Color"
		     )
		)
		9.0
		9.0 
	)




	; crea e aggiungi una mask nera al livello "Color"

	(gimp-layer-add-mask 
		(car 
			(gimp-image-get-layer-by-name img 
			"Color"
		      	)
		)
		(car
			(gimp-layer-create-mask 
				(car 
					(gimp-image-get-layer-by-name img 
					"Color"
				      	)
				)	 
				ADD-BLACK-MASK
			)
		)
	)
	






	; 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-demomask"
                    _"<Image>/Filters/Personali/demo mask"
                    "demo2"
                    "MC"
                    ""
  		    "2012, apr"
  		    "RGB* GRAY*"
  SF-IMAGE      "Image"	            0
  SF-DRAWABLE   "Drawable"          0
)