File Coverage

blib/lib/Text/Chord/Piano.pm

Criterion	Covered	Total	%
statement	57	57	100.0
branch	14	14	100.0
condition	2	2	100.0
subroutine	13	13	100.0
pod	6	6	100.0
total	92	92	100.0

package Text::Chord::Piano;

use warnings;
use strict;
use Carp qw(croak);

use Music::Chord::Note;

use base qw(Class::Accessor::Fast);
__PACKAGE__->mk_accessors( qw(finger) );

our $VERSION = '0.061';

my $cn = Music::Chord::Note->new();

my $black_keys;
for my $black_key (qw(1 3 6 8 10 13 15 18 20 22)){
    $black_keys->{$black_key} = 2;
}

my @white_keys = (
#   C   C#  D   D#  E   F   F#  G   G#  A   A#  B
     2,  4,  6,  8, 10, 14, 16, 18, 20, 22, 24, 26,
    30, 32, 34, 36, 38, 42, 44, 46, 48, 50, 52, 54,
);


sub new {
    my $class = shift;
    bless {
        finger => '*',
    }, $class;
}

sub chord {
    my ($self, $chord_name) = @_;
    return $self->generate($chord_name, $self->_get_keys($chord_name));
}

sub gen {
    my ($self, $chord_name, @keys) = @_;
    return $self->generate($chord_name, @keys);
}
sub generate {
    my ($self, $chord_name, @keys) = @_;
    my $keyboard = $self->_draw_keyboard;
    for my $key (0..23){
        my $play = 0;
        for my $i (@keys){
            $play = 1 if $i == $key;
        }
        if($play){
            my $y = $black_keys->{$key} || 5;
            $keyboard->[$y]->[$white_keys[$key]] = $self->finger;
        }
    }
    return $self->put_keyboard($keyboard)."$chord_name\n";
}

sub put_keyboard {
    my $self     = shift;
    my $keyboard = shift;
    $keyboard = $self->_draw_keyboard if ref $keyboard ne 'ARRAY';
    my $text;
    for my $line (@{$keyboard}){
        for my $char (@{$line}){
            $text .= $char;
        }
    }
    return $text;
}

sub all_chords {
    my $self = shift;
    return $cn->all_chords_list;
}

sub _get_keys {
    my ($self, $chord_name) = @_;
    croak "no chord" unless $chord_name;
    my ($tonic, $kind) = ($chord_name =~ /([A-G][b#]?)(.+)?/);
    $kind = 'base' unless $kind;
    croak "undefined chord $chord_name" unless defined $tonic;
    my $scalic = $cn->scale($tonic);
    my @keys;
    for my $scale ( $cn->chord_num($kind) ){
        my $tone = $scale + $scalic;
        $tone = int($tone % 24) + 12 if $tone > 23;
        push(@keys, $tone);
    }
    return @keys;
}

sub _draw_keyboard {
    my $self = shift;
    return [
		[split(//, "|  | | | |  |  | | | | | |  |  | | | |  |  | | | | | |  |\n")],
		[split(//, "|  | | | |  |  | | | | | |  |  | | | |  |  | | | | | |  |\n")],
		[split(//, "|  | | | |  |  | | | | | |  |  | | | |  |  | | | | | |  |\n")],
		[split(//, "|  |_| |_|  |  |_| |_| |_|  |  |_| |_|  |  |_| |_| |_|  |\n")],
		[split(//, "|   |   |   |   |   |   |   |   |   |   |   |   |   |   |\n")],
		[split(//, "|   |   |   |   |   |   |   |   |   |   |   |   |   |   |\n")],
		[split(//, "|___|___|___|___|___|___|___|___|___|___|___|___|___|___|\n")],
	];
}

1;

__END__