NAME

Gesture::Simple - the $1 (mouse) gesture recognizer

SYNOPSIS

            

              
              
my $recognizer = Gesture::Simple->new;
my @points = read_mouse_coordinates();
my $gesture = Gesture::Simple::Gesture->new(
    points => \@points,
);
my $match = $recognizer->match($gesture);
if ($match) {
    print $match->template->name;
}
else {
    $recognizer->add_template(
        Gesture::Simple::Template->new(
            points => \@points,
            name   => readline(),
        ),
    );
}
            
          

AUTHOR

Shawn M Moore, sartak@gmail.com

WARNING

This module is alpha quality. Use it at your own risk.

SEE ALSO

http://faculty.washington.edu/wobbrock/pubs/uist-07.1.pdf - Paper describing the algorithm

http://depts.washington.edu/aimgroup/proj/dollar/ - Javascript example of the algorithm

COPYRIGHT AND LICENSE

Copyright 2009 Shawn M Moore.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.