Perl SWF:: Builder se desvanece en la imagen

actionscript flash

Question

Estoy trabajando en un script para crear archivos swf con imágenes fundidas de entrada / salida.

Este es mi código hasta ahora:

my %CONFIG = (
    ''scriptURI'' => "data.js",
    ''imageFolder'' => "images/",
    ''outputFileName'' => ''testImg.swf'',
    ''delay'' => 3,                       # delay between images
    ''fps''   => 10,
    ''fadeFrame'' => 10                   # 1 second fade in/out
);

sub addImgToMovie {
    my $img = shift;
    my $frameNo = shift;
    my $movie = shift;
    my $movieClip = $movie -> new_mc();
    my $jpeg = $movieClip -> new_jpeg($img);
    $jpeg -> place(Frame => 1);

    my $mc_i = $movieClip -> place(Frame => $frameNo);  

    my $onloadScript = sprintf("
        this._alpha = %d;
        this.apf = %f;
        this.frameIndex = %d;
        this.fadeOutFrameIndex = %d;
        ", 0, 100 / $CONFIG{''fadeFrame''}, 1, $CONFIG{''delay''} * $CONFIG{''fps''} - $CONFIG{''fadeFrame''});
    $mc_i -> onClipEvent(''Load'') -> compile($onloadScript);

    my $onEnterFrameScript = "
        this.frameIndex += 1;
        if ((this._alpha < 100) && (this.frameIndex < this.fadeOutFrameIndex)) {
            this._alpha += this.apf;
        } else if (this.frameIndex > this.fadeOutFrameIndex) {
            this._alpha -= this.apf;
        }
    ";
    $mc_i -> onClipEvent(''EnterFrame'') -> compile($onEnterFrameScript);
    return $movie;
}

my $movie = SWF::Builder -> new(
    FrameRate => $CONFIG{''fps''},
    FrameSize => [0, 0, 180, 163],
    BackgroundColor => ''ffffff''
);

my $img = $CONFIG{''imageFolder''} . "adimage1.jpg";
$movie = addImgToMovie($img, 1, $movie);
$movie -> save($CONFIG{''outputFileName''});

La secuencia de comandos genera un archivo SWF, pero solo aparece y desaparece una vez, luego tengo una imagen en blanco.

De alguna manera depuré el archivo y descubrí que frameIndex sigue aumentando una y otra vez, así que sospecho que onEnterFrame sigue reproduciéndose, por lo tanto, el clip de película nunca se detiene.

¿Alguien podría ayudarme a resolver este problema? Me gustaría que el clip de película se detenga después de que la imagen se desvanezca por completo.

Answer 1

Creo que falta la llamada para finalizar el script una vez que esté completo. ¿Qué pasa si haces lo siguiente?

    my $onEnterFrameScript = "
    this.frameIndex += 1;
    if ((this._alpha < 100) && (this.frameIndex < this.fadeOutFrameIndex)) {
        this._alpha += this.apf;
    } else if (this.frameIndex > this.fadeOutFrameIndex) {
        this._alpha -= this.apf;
        if (this._alpha <= 0){
            this._visible=false;
            delete this.onEnterFrame;
        }
    }
";

Observe la llamada "delete this.onEnterFrame"