Algorithm-Easing
view release on metacpan or search on metacpan
lib/Algorithm/Easing.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 0;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation_mediator->ease_out($t,$b,$c,$d)
# plot
...
}
lib/Algorithm/Easing/Backdraft.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Bounce.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Circular.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Cubic.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Exponential.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Linear.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Quadratic.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Quartinion.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Quintonion.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
lib/Algorithm/Easing/Sinusoidal.pm view on Meta::CPAN
# total time for eased translation as a real positive integer value
my $d = 2.5;
# begin
my $b = 0;
# change
my $c = 240;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0625;
my @p = [319,0];
for(my $t = 0; $t < 2.5; $t += 0.0625) {
$p[1] = $translation->ease_out($t,$b,$c,$d)
# plot
...;
}
my ($name, $ease, $max) = @_;
# total time for eased translation as a real positive integer value
my $d = 1.0;
# begin
my $b = 0;
# change
my $c = 80;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0025;
my ($mediator,$x,$old_x) = (Algorithm::Easing::Mediator->new(kind => $ease),0,-1);
print "\nTesting ${name} ease in.";
print "\n";
for (my $t = 0; $t <= $d + $frame_time; $t += $frame_time) {
$x = $mediator->ease_in($t,$b,$c,$d);
$x += 80 - $max;
# total time for eased translation as a real positive integer value
my $d = 1.0;
# begin
my $b = 0;
# change
my $c = 80;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0025;
my ($mediator,$x,$old_x) = (Algorithm::Easing::Mediator->new(kind => $ease),0,-1);
print "\nTesting ${name} ease in and out.";
print "\n";
for (my $t = 0; $t <= $d + $frame_time; $t += $frame_time) {
$x = $mediator->ease_both($t,$b,$c,$d);
$x += 80 - $max;
my ($name, $ease, $max) = @_;
# total time for eased translation as a real positive integer value
my $d = 1.0;
# begin
my $b = 0;
# change
my $c = 80;
# time passed in seconds as a real positive integer between each frame
my $frame_time = 0.0025;
my ($mediator,$x,$old_x) = (Algorithm::Easing::Mediator->new(kind => $ease),0,-1);
print "\nTesting ${name} ease out.";
print "\n";
for (my $t = 0; $t <= $d + $frame_time; $t += $frame_time) {
$x = $mediator->ease_out($t,$b,$c,$d);
$x += 80 - $max;
( run in 1.027 second using v1.01-cache-2.11-cpan-39bf76dae61 )