Tk::Animation - Display sequence of Tk::Photo images
use Tk::Animation
my $img = $widget->Animation('-format' => 'gif', -file => 'somefile.gif');
$img->add_frame(@images);
$img->start_animation;
$img->start_animation( $period );
$img->next_image;
$img->prev_image;
$img->set_image( 0 .. $#frames );
$img->pause_animation;
$img->resume_animation( $period );
$img->fast_forward( $multiplier );
$img->fast_reverse( $multiplier );
$img->stop_animation;
$img->set_disposal_method( $boolean );
User Contributed Perl Documentation Animation(3)
NAME
Tk::Animation - Display sequence of Tk::Photo images
SYNOPSIS
use Tk::Animation
my $img = $widget->Animation('-format' => 'gif', -file => 'somefile.gif');
$img->add_frame(@images);
$img->start_animation;
$img->start_animation( $period );
$img->next_image;
$img->prev_image;
$img->set_image( 0 .. $#frames );
$img->pause_animation;
$img->resume_animation( $period );
$img->fast_forward( $multiplier );
$img->fast_reverse( $multiplier );
$img->stop_animation;
$img->set_disposal_method( $boolean );
DESCRIPTION
In the simple case when "Animation" is passed a GIF89 style GIF with
multiple 'frames', it will build an internal array of "Photo" images.
The "add_frame" method adds images to the sequence. It is provided to
allow animations to be constructed from separate images. All images
must be "Photo"s and should all be the same size.
"start_animation($period)" then initiates a "repeat" with specified
$period to sequence through these images. As for raw "repeat" $period
is in milliseconds, for a 50Hz monitor it should be at least 20ms. If
$period is omitted it is determined from the GIF metadata (see below),
or if this is not possible it defaults to 100 milliseconds.
"stop_animation" cancels the "repeat" and resets the image to the first
image in the sequence.
For fine-grained control "next_image" and "prev_image" move one frame
forward or backward. "set_image" randomly positions the animation to a
particular frame.
"pause_animation" pauses the movie and "resume_animation" continues
from the pause point.
"fast_forward" and "fast_reverse" speed through the movie either
forwards or backwards. $multiplier specifies how much faster the
animation moves.
If Image::Info is installed, then the repeat period time and disposal
method of GIF animations are determined from the GIF metadata directly.
Otherwise the disposal method must be set manually by using
"set_disposal_method" (1 for blanking the previous images, 0 for
leaving the previous images as is). The repeat period time may be given
in the "start_animation" method.
ATTRIBUTES
See attributes(7) for descriptions of the following attributes:
+---------------+----------------------------+
|ATTRIBUTE TYPE | ATTRIBUTE VALUE |
+---------------+----------------------------+
|Availability | library/perl-5/perl-tk-532 |
+---------------+----------------------------+
|Stability | Volatile |
+---------------+----------------------------+
NOTES
"set_disposal_method" was formerly known as "blank" method, but the
naming of this method was a mistake.
If the disposal method is not set correctly, either by
"set_disposal_method" or by determining from the GIF metadata, then the
following may happen: By default Animation leaves the previous movie
frame in the animation photo. Many times overlaying subsequent frames
produces a composite that looks blurred.
Source code for open source software components in Oracle Solaris can
be found at https://www.oracle.com/downloads/opensource/solaris-source-
code-downloads.html.
This software was built from source available at
https://github.com/oracle/solaris-userland. The original community
source was downloaded from
http://search.cpan.org/CPAN/authors/id/S/SR/SREZIC/Tk-804.036.tar.gz.
Further information about this software can be found on the open source
community website at http://search.cpan.org/~srezic/Tk.
BUGS
This module should not depend on a module which is not declared as a
dependency (Image::Info).
The delays between images may vary in a GIF animation. This cannot be
handled by this module yet.
The handling of the various disposal methods is not correct.
perl v5.32.0 2013-11-15 Animation(3)