#!/usr/bin/perl
# freq - show the frequencies of a Scala scale file using some reference
# concert pitch
use 5.38.0;
use Music::Scala;
my $file = shift // die "Usage: $0 scala-scale-file\n";
my $scl  = Music::Scala->new(
    binmode => ':encoding(iso-8859-1):crlf',
    file    => $file,
);
# default is A440
#$scl->set_concertfreq(422.5);
my $count = $scl->get_ratios;
for my $i ( 0 .. $count - 1 ) {
    say $scl->interval2freq($i);
}