#!/usr/bin/perl -w
use strict;
use Lutherie::FretCalc;
# Create new FretCalc object
my $fretcalc = Lutherie::FretCalc->new; # Default 25
# Config
$fretcalc->num_frets(24); # Default 24
$fretcalc->in_units('in'); # Default 'in'
$fretcalc->out_units('in'); # Default 'in'
$fretcalc->calc_method('t'); # Default 't'
$fretcalc->tet(12); # Default 12
my @chart = $fretcalc->fretcalc();
for my $fret(1..$#chart) {
$fret = sprintf("%3d",$fret);
print "Fret $fret: $chart[$fret]\n";
}
print "\n\n";
$fretcalc->fret_num(2);
my $fret = $fretcalc->fret();
my $fret_num = sprintf("%3d",$fretcalc->{fret_num});
print "Fret $fret_num: $fret\n";