dr-kd / etdudomatic Goto Github PK

use strict;
use warnings;
package Music::Etudomatic;
use Mojo::Base -base;

=head2 NAME

Music::Etudomatic

An offline music sequencer to facilitate the production of chord patterns.


=head2 USAGE

    my $bot = Music::Etudomatic->new(key => 'd', mode => 'major', notes_per_chord => 3 );
    my $sequencer_data = $bot->sequences;
    my $sequence = $bot->sequence_for($pattern);

=head2 TODO

Assumption is that the current output is for lilypond score.

My next steps are to get some test coverage in t/01-basic.t

Implement the sequence_for method

=cut

use Music::Etudomatic::Sequences;

has key => sub { 'c' };
has mode => sub { 'major' };
has notes_per_chord => sub { 3 };

has asc => sub { [ 0 .. $_[0]->notes_per_chord - 1 ] };
has desc => sub {
    my ($self) = @_;
    my @d = @{$self->{asc}};
    unshift @d, pop @d;
    return \@d;
};

my @notes = ( [ 1 => 'c'], [ 2 => 'cis'],
	      [ 3 => 'd'], [ 4 => 'ees'],
	      [ 5 => 'e'],
	      [ 6 => 'f'], [ 7 => 'fis'],
	      [ 8 => 'g'], [ 9 => 'gis'],
	      [ 10 => 'a'], [ 11 => 'bes'],
	      [ 12 => 'b'], );

my @enh = (
    [ 1 => 'bis'],
    [ 4 => 'des'],
    [ 4 => 'dis'],
    [ 7 => 'ges'],
    [ 9 => 'aes'],
    [ 11 => 'ais' ],
);

has note2num => sub {
    return { map { $_->[1] => $_->[0] } ( @notes, @enh ) } # and enharmonics
};

has num2note => sub {
    my %n2n = map { $_->[0] => $_->[1] } ( @notes, ( $_[0]->key =~ /es$/ ? @enh : () ) );
    return \%n2n;
};

has nums => sub { Array::Circular->new(1 .. @notes ) };


has sequences => sub {
    return Music::Etudomatic::Sequences->new(config => $_[0]);
};

1;