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"
_"<Toolbox>/Xtns/Script-Fu/Animadores/Cronometro1"
"Cronometro"
"Andrei Rubina Thomaz"
"[EMAIL PROTECTED]"
"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)
)
_________________________________________________________________
Chegou o novo MSN Explorer. Instale já. É gratuito:
http://explorer.msn.com.br
_______________________________________________
Gimp-user mailing list
[EMAIL PROTECTED]
http://lists.xcf.berkeley.edu/mailman/listinfo/gimp-user
