hello,

can anybody help me to center the text? thank you :)

andrei

; cronometro.scm ;
; a idéia básica é ter um script que gere imagens com textos ; para posterior realização de vídeos. ;

(define (script-fu-cronometro1 cronometro1_numFrames cronometro1_Fonte cronometro1_tamanhoFonte
cronometro1_corTexto cronometro1_corFundo )

(set! cronometro1_nFrame 0) (set! cronometro1_largura 100)
(set! cronometro1_altura 100)
(set! cronometro1_layerTexto 0)

(while (< cronometro1_nFrame cronometro1_numFrames)

(gimp-palette-set-background cronometro1_corFundo) (gimp-palette-set-foreground cronometro1_corTexto)

(set! cronometro1_imagem (car (gimp-image-new cronometro1_altura cronometro1_largura RGB)) )

(set! cronometro1_layerTexto (car (gimp-layer-new cronometro1_imagem cronometro1_largura cronometro1_altura RGB_IMAGE "Texto" 100 NORMAL))) (gimp-image-add-layer cronometro1_imagem cronometro1_layerTexto NORMAL)

(gimp-selection-all cronometro1_imagem) (gimp-selection-clear cronometro1_imagem) (gimp-selection-none cronometro1_imagem)

(set! cronometro1_textoFrame (number->string cronometro1_nFrame))

(set! cronometro1_textoTamanho (gimp-text-get-extents-fontname cronometro1_textoFrame cronometro1_tamanhoFonte PIXELS cronometro1_Fonte) )

(set! cronometro1_textoY ( -
(/ (car (gimp-image-height cronometro1_imagem)) 2) (/ (get-text-height cronometro1_textoTamanho) 2) )
)
(set! cronometro1_textoX
( -
(/ (car (gimp-image-width cronometro1_imagem)) 2) (/ (get-text-width cronometro1_textoTamanho) 2) )
)

(gimp-text-fontname cronometro1_imagem cronometro1_layerTexto cronometro1_textoX cronometro1_textoY cronometro1_textoFrame 0 TRUE cronometro1_tamanhoFonte PIXELS cronometro1_Fonte) (gimp-display-new cronometro1_imagem) (set! cronometro1_nFrame (+ cronometro1_nFrame 1)) )
)

(script-fu-register "script-fu-cronometro1" _"/Xtns/Script-Fu/Animadores/Cronometro1" "Cronometro"
"Andrei Rubina Thomaz"
"andreithomaz@hotmail.com"
"Abril 2002"
"RGB*"
SF-VALUE "Numero de quadros" "24"
SF-FONT "Fonte" "-*-*-*-r-*-*-24-*-*-*-p-*-*-*" SF-ADJUSTMENT "Tamanho da Fonte" '(24 2 100 1 1 0 1) SF-COLOR "Cor do Texto" '(255 0 0)
SF-COLOR "Cor do Fundo" '(0 0 0)
)

__________________