NAME

Video::Delay::Func - Video::Delay class for delays defined by math function.

SYNOPSIS

 use Video::Delay::Func;

 my $obj = Video::Delay::Func->new(%parameters);
 my $delay = $obj->delay;

METHODS

new(%parameters)
 Constructor
  • func

     Math function in string with 't' time variable.
     Or callback with one input argument as time variable.
     Default value is reference to subroutine:
       sub {
         my $t = shift;
         return 1000 * sin($t);
       };
  • incr

     Counter increment.
     Default value is 0.1.
delay()
 Returns delay defined by function in miliseconds.
 Time si affected by 'incr' increment parameter.

ERRORS

 new():
         Parameter 'func' must be scalar or code.
         From Class::Utils::set_params():
                 Unknown parameter '%s'.

 delay():
         Error in function.
                 Error, %s

EXAMPLE1

 use strict;
 use warnings;

 use Video::Delay::Func;

 # Object.
 my $obj = Video::Delay::Func->new(
         'func' => sub {
                 my $t = shift;
                 return 1000 * sin($t);
         },
         'incr' => 0.1,
 );

 # Print delay.
 print $obj->delay."\n";
 print $obj->delay."\n";
 print $obj->delay."\n";

 # Output:
 # 99.8334166468282
 # 198.669330795061
 # 295.52020666134

EXAMPLE2

 use strict;
 use warnings;

 use Video::Delay::Func;

 # Object.
 my $obj = Video::Delay::Func->new(
         'func' => '1000 * sin(t)',
         'incr' => 0.1,
 );

 # Print delay.
 print $obj->delay."\n";
 print $obj->delay."\n";
 print $obj->delay."\n";

 # Output:
 # 99.8334166468282
 # 198.669330795061
 # 295.52020666134

DEPENDENCIES

Class::Utils, English, Error::Pure.

SEE ALSO

Video::Delay

Perl classes for delays between frames generation.

REPOSITORY

https://github.com/michal-josef-spacek/Video-Delay

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

 © 2012-2020 Michal Josef Špaček
 BSD 2-Clause License

VERSION

0.07