#!/usr/bin/env perl
use strict;
use warnings;

use Data::Dumper::Compact 'ddc';
use MIDI::Util qw(setup_score midi_format);
use Music::Chord::Progression;

my $score = setup_score();

my $prog = Music::Chord::Progression->new(
#    chord_map => [qw(M7 m7 m7 M7 7 m7 dim7)],
    chord_map => ['', 'm', 'm', '', '', 'm', 'm'],
#    substitute => 1,
#    resolve => 0,
    verbose => 1,
);
my $chords = $prog->generate;

for my $chord (@$chords) {
    $score->n('wn', midi_format(@$chord));
}

$score->write_score("$0.mid");
