; Beveled -- Effetto lieve per GIMP 2.0
; Questo script automatizza il procedimento che illustro
; su http://www.volalibero.it/beveled1.html
; non sono sicuro che sia scritto in maniera corretta e nel modo più efficace,
; ma funziona e allora... :-)
; P.S. e' il mio primo script!!! " Ciao MONDO!!!"

; Funzione principale

(define (script-fu-beveled-volalibero testo dimensione carattere colore colore2 appiattisci)

	; creiamo una nuova immagine e un livello di tipo testo
	(set! immagine (car (gimp-image-new 256 256 RGB ) ) )
	(set! text-layer (car (gimp-text-fontname immagine -1 0 0 testo 10 1 dimensione 0 carattere ) ) )

	;disabilito la possibilità di annullare le operazioni per risparmiare memoria
	(gimp-image-undo-disable immagine)

	; chiamo il livello text-layer, creato prima, Testo
	(gimp-drawable-set-name text-layer "Testo")

	; imposto il colore di primo piano al colore scelto dall'utente
	(gimp-palette-set-foreground colore)

	; imposta il colore di sfondo a quello scelto dall'utente
	(gimp-palette-set-background colore2)

	; proteggo la trasparenza del livello testo
	(gimp-layer-set-preserve-trans text-layer TRUE)

	; riempio il livello text-layer con il gradiente shapeburst dei
	; colori scelti dall'utente. Verrà riempito solo il testo perché prima
	; è stata attivata la protezione della trasparenza
	(gimp-edit-blend text-layer 0 0 6 100 0 0 FALSE FALSE 1 1 1 0 0 40 40)

	; misuro la larghezza e l'altezza del livello testo
	(set! width (car (gimp-drawable-width text-layer)))
	(set! height (car (gimp-drawable-height text-layer)))

	; ridimensiono l'immagine a quella del livello
	(gimp-image-resize immagine width height 0 0)

	; creo un nuovo livello chiamato Sfondo con la stessa larghezza e altezza
	; del livello testo che ho misusrato due funzioni fa.
	(set! sfondo (car (gimp-layer-new immagine width height 0 "Sfondo" 100 0)))

	; aggiungo il livello sfondo all'immagine
	(gimp-image-add-layer immagine sfondo 0)

	;seleziono tutta l'immagine e la riempio con il colore bianco
	(gimp-selection-all immagine)
	(gimp-edit-fill sfondo 2)

	; rimuovo la selezione
	(gimp-selection-none immagine)

	; abbasso il livello sfondo sotto a quello testo
	(gimp-image-lower-layer immagine sfondo)

	; appiattisci immagine e salva per il web in png (64 colori senza dithering)
	(if (= appiattisci TRUE) (gimp-image-flatten immagine) () )

	; disegno l'immagine e riabilito la possibilità di annullare le operazioni fatte
	(gimp-display-new immagine)
	(gimp-image-undo-enable immagine)
)

; ----------------------------------------------------------
;                     Funzione di registrazione
; ----------------------------------------------------------
(script-fu-register "script-fu-beveled-volalibero"
    _"<Toolbox>/Xtns/Script-Fu/Logos/Volalibero/Bevel (Effetto lieve)"
    "Crea un semplice effetto tridimensionale. Maggiori info su http://www.volalibero.it/beveled1.html"
    "Mike Vargas"
    "Mike Vargas, http://www.volalibero.it/contatti.html"
    "2003"
    ""
    SF-STRING	_"Testo" "Bevel"
    SF-ADJUSTMENT _"Dimensione (pixels)" '(60 2 1000 1 10 0 1)
    SF-FONT	_"Carattere"		"Ikarus Vulture Italic"
    SF-COLOR	_"Colore carattere"	'(255 0 0)
    SF-COLOR	_"Colore secondario"	'(74 0 0)
    SF-TOGGLE	_"Appiattisci?"		FALSE
)