Author image Piero Bugoni
and 1 contributors

NAME

Guitar::Tuner - A Module That Plays Sampled Guitar Sound, To Help You Tune.

VERSION

Version 0.01

SYNOPSIS

use Guitar::Tuner; use Term::ReadKey;

print "Use Space Bar To Play String. \r";

while() { ReadMode 3; # Will Trap One Character, Allows Control Characters

        while (not defined ($keypressed = ReadKey(-1)))
        {
         # No key yet
        }

        # print "Got key $keypressed\r";
        print "Use Space Bar To Play String. \r";

        if ($keypressed =~ / /)  # Spacebar
        {
                my @stringtoplay=($child-pid-to-kill, "EString"); # PID of String Playing, Next String.
                my @returnarray=Tuner->PlayString(@stringtoplay);
        }

}

ReadMode 0; # Reset tty mode before exiting

EXPORT

PlayString: Subroutine To Play String

SUBROUTINES/METHODS

PlayString() Function To Play String Note

EString() Returns Base-64 Decoded Binary Audio, Stored Plain Text <<HERE

AString() Returns Base-64 Decoded Binary Audio Strored Plain Text <<HERE

DString() Returns Base-64 Decoded Binary Audio Strored Plain Text <<HERE

GString() Returns Base-64 Decoded Binary Audio Strored Plain Text <<HERE

BString() Returns Base-64 Decoded Binary Audio Strored Plain Text <<HERE

eString() Returns Base-64 Decoded Binary Audio Strored Plain Text <<HERE

ProtoString() Empty ProtoType of Encoded Guitar-String Sample.

AUTHOR

Piero Bugoni, <Bugoni at cpan.org>

BUGS

Please report any bugs or feature requests to bug-guitar-tuner at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Guitar-Tuner. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Guitar::Tuner

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

Copyright 2011 Piero Bugoni.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.