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

use Music::Interval::Barycentric;

my @chords = ([3, 4, 5], [0, 4, 7]);

print 'Barycenter: ', join(', ', barycenter(3)), "\n";
printf "Distance: %.3f\n", distance($chords[0], $chords[1]);
print 'Evenness index: ', evenness_index($chords[0]), "\n";
print 'Orbit distance: ', orbit_distance(@chords), "\n";
print 'Forte distance: ', forte_distance(@chords), "\n";
