Very nice work. Is the problem caused by transparency? If so I can detect that and use your process to avoid the wait.

I mentioned a 22MB GIF that didn't load after 45 minutes. It's actually 28MB and your code loads it in ~7 seconds! A tremendous improvement.

The 28MB GIF I was working with is some gorgeous footage of Comet ISON grazing the sun taken with the Large Angle Coronagraph on NASA/ESA's Solar Heliospheric Observatory. This version of your script downloads and displays it (The minor glitches in the upper left corner are not part of the GIF. Maybe fixable by setting a proper DisposalMethod): 

#!/usr/bin/perl

use strict;
use warnings;

use HTTP::Tiny;
use MIME::Base64;
use Time::HiRes 'time';

use Imager ':handy';
use Tk;
use Tk::Animation;
use Tk::Photo;

my $file = 'http://web.archive.org/web/20131202114602if_/'.
'http://science.nasa.gov/media/medialibrary/2013/12/01/ghost_anim.gif'
+;

print "Downloading image $file \n";

my $path = HTTP::Tiny->new->get($file)->{content};

die 'Download failed!' unless $path;

my $size = length $path;

my $mw = MainWindow-> new;
$mw-> configure( -title => 'Comet ISON via SOHO LASCO C3' );
my $top = $mw-> Frame-> pack;

my $start = time;
my $backdrop;
my @frames = map {
    if ( $backdrop ) {              # not 1st?
        my $mask = $_-> copy;
        my @mask_plt = map NC( 255, 255, 255 ), $mask-> getcolors;
        my $trans_idx = $mask-> tags( name => 'gif_trans_index' );
        $mask_plt[ $trans_idx ] = NC( 0, 0, 0 ) if $trans_idx;
        $mask-> setcolors( colors => \@mask_plt );
        $backdrop-> compose( src => $_, mask => $mask );
    }
    else {
        $backdrop = $_
    }

    $backdrop-> write( data => \my $data, type => 'bmp' );
    $mw-> Photo( -data => encode_base64( $data ));
} Imager-> read_multi( data => $path );

my $image_2 = $mw-> Animation;
$image_2-> add_frame( @frames );

print "\nImager & Tk::Animation took ", time - $start,
    " seconds for $size bytes \n";

$top-> Label( -image => $image_2 )-> pack;
$image_2-> start_animation;

MainLoop;

__END__

Imager & Tk::Animation took 6.60826396942139 seconds for 28042970 byte
+s

[download]
Hopefully someone can use this information to figure out what's wrong with Tk::Photo and get it fixed!

In reply to Re^2: Why is Tk::Animation so slow? by Anonymous Monk
in thread Why is Tk::Animation so slow? by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.