; kdenlive (Script-Fu)
; Script para adecuar las fotos al formato PAL.
; Si añadimos las fotos tal cual estan en al kdenlive este intenta
; incrustarlas en el formato que escojamos (PAL=720x576),
; este script las convierte a un formato proporcional.
;
; Requiere Gimp 2.0(igual tambien funciona en 1.3).
;
; Ver 0.1
;
;(c) kurtsik - Licencia: GNU-GPL.
;
;
(define (kdenlive img drawable)

(set! sizeX 720) ;Ancho de la imagen.
(set! sizeY 576) ;Alto de la imagen.

; Variables varias.
; Dimensiones de la imagen final.
(set! final_sizeX 720)
(set! final_sizeY 576)
(set! offset_X 0)
(set! offset_Y 0)

; Setea el color de fondo:
(set! negro '(0 0 0))
(set! blanco  '(255 255 255))
(set! color negro)


(gimp-image-undo-group-start img)
 

; Conseguir dimensiones.
(set! initial_sizeX  (car (gimp-image-width img) ))
(set! initial_sizeY  (car (gimp-image-height img) ))


; Determinar si es horizontal o vertical.
(if 
(> initial_sizeX initial_sizeY)
(begin
	(set! final_sizeY (/ (*  initial_sizeY final_sizeX) initial_sizeX))
	(set! offset_X 0)
	(set! offset_Y (/ (- sizeY final_sizeY) 2))
)
)

(if
	(< initial_sizeX initial_sizeY)
(begin
	(set! final_sizeX (/ (* initial_sizeX final_sizeY) initial_sizeY ))
	(set! offset_X (/ (- sizeX final_sizeX) 2))
	(set! offset_Y 0)
)
)




; Paso 1 - redimensionar
(gimp-image-scale img final_sizeX final_sizeY)



; Paso 2 - crear el fondo.
(set! kapaBerria (car (gimp-layer-new img final_sizeX final_sizeY 0 "fondo" 100 0)))
(gimp-image-add-layer img kapaBerria 1)


(gimp-layer-resize kapaBerria sizeX sizeY offset_X offset_Y)
(gimp-image-resize-to-layers img)

(gimp-context-set-foreground color)     ; Setear el color frontal.
(gimp-edit-fill kapaBerria 0)   ; Rellenar de color frontal.










; Paso 3 - acoplar imagen
;(gimp-image-flatten img)

; Paso 4 - enfocar.
;(script-fu-smart-sharpening img drawable 0.50 0.50 0.50)

(gimp-image-undo-group-end img)
(gimp-displays-flush)

)

; Registrar el script.
(script-fu-register "kdenlive"
                    "<Image>/Script-Fu/Photo/Kdenlive"
                    "Integra las fotos dentro de un lienzo de color \
                     blanco o negro, para poder usar las imagenes en \
                     Kdenlive sin que las deforme al redimensionar."
                    "kurtsik"
                    "GNU-GPL"
                    "2007/08/05 - v1.0"
                    ""
                    SF-IMAGE "Image" 0
                    SF-DRAWABLE "Drawable" 0
)