(Courriels de diversion: <reluiraient@accouplerons-punissable.com> <merlan@ambitionnes-sursauterons.com> <fonctionne@sous-secretaire-eclatons.com> <erigeant@synchronise-assoyez.com> <encartees@enregimentant-decouleraient.com> <essaimeras@reactualiserions-deplaisions.com> <concertez@verrouilleraient-empaquettera.com> <surregenerateur@invertebre-vacants.com> <copieurs@demandeuse-gaspillerent.com> <puiserais@dedirez-coexistence.com> )
Bonjour,
Voici mon problème :
J'arrive a faire un fichier gif animation à partir de
plusieurs fichiers gif. Mais comme je suis feignant je me suis
fait un script qui après avoir fait tout le travail refuse de
sauver l'animation au format gif !
Je suspecte un problème avec les couleurs ???
Voici le script :
(define (my-cree-animation image width height liste-nomfile)
(while liste-nomfile
(let* ((nomfile (car liste-nomfile))
(nomf (string-append (car liste-nomfile) " (200ms)"))
;; 3 tests que j'ai effectué
; (couche (car (gimp-layer-new image width height RGB_IMAGE
; nomf 100 0)))
; (couche (car (gimp-layer-new image width height INDEXED_IMAGE
; nomf 100 0)))
(couche (car (gimp-layer-new image width height
INDEXEDA_IMAGE
nomf 100 0)))
(nimage (car (gimp-file-load 1 nomfile nomfile)))
)
(gimp-image-add-layer image couche 0)
(gimp-edit-copy nimage (car (gimp-image-active-drawable nimage)))
(gimp-edit-paste image couche 0)
)
(set! liste-nomfile (cdr liste-nomfile))
)
)
(define (script-fu-my-anime)
(let ((nomfile "pipo0.gif")
(image_tmp (car (gimp-file-load 1 "pipo0.gif" "pipo0.gif")))
(width (car (gimp-image-width image_tmp)))
(height (car (gimp-image-height image_tmp)))
(image (car (gimp-image-new width height RGB)))
(liste-nomfile '( "pipo0.gif" "pipo1.gif" "pipo2.gif"
"pipo3.gif" "pipo4.gif"
"pipo5.gif" "pipo6.gif"
"pipo7.gif" "pipo8.gif"
"pipo9.gif" "pipo10.gif"
"pipo11.gif" "pipo12.gif"
"pipo13.gif" "pipo14.gif"
"pipo15.gif" "pipo16.gif"
"pipo17.gif" "pipo18.gif"
"pipo19.gif" "pipo20.gif"
"pipo21.gif" "pipo22.gif"
"pipo23.gif" "pipo24.gif"
"pipo25.gif" "pipo26.gif"
"pipo27.gif" "pipo28.gif"
"pipo29.gif" "pipo30.gif"
"pipo31.gif"))
)
(my-cree-animation image width height liste-nomfile)
(plug-in-animationoptimize 0 image
(car (gimp-image-active-drawable image)))
;; affichage d'une fenetre afin de pouvoir faire la sauvegarde en interactif
(plug-in-animationplay 0 image (car (gimp-image-active-drawable image)))
image
)
)
(script-fu-register "script-fu-my-anime"
"<Toolbox>/Xtns/Script-Fu/Misc/my-anime"
"Genere une animation a partir d'une liste de fichier .gif"
"Daniel SIDOBRE"
"Copyright 1999"
"Janvier 1999"
""
)
_______________________________________________________________________
Le CULTe sur le ouebe: http://savage.iut-blagnac.fr/