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

use Data::Dumper::Concise;
use Music::Intervals;

my @notes = @ARGV ? @ARGV : qw(C E G);

my $m = Music::Intervals->new(
    notes    => \@notes,
#    semitones => 15,
    justin   => 1,
    equalt   => 1,
    chords   => 1,
    cents    => 1,
    interval => 1,
    freqs    => 1,
    prime    => 1,
);
$m->process;
print Dumper
#    $m->notes,
#    $m->chord_names,
#    $m->natural_frequencies,
    $m->natural_intervals,
    $m->natural_cents,
    $m->natural_prime_factors,
#    $m->eq_tempered_frequencies,
#    $m->eq_tempered_intervals,
    $m->eq_tempered_cents,
;
