#!/usr/bin/perl -w


package Guitar;

use strict;
use Data::Dumper;

select STDERR; $|++;
select STDOUT; $|++;

use vars qw( $VERSION @ISA %TUNINGS 
);

use Scales;

@ISA = ( 'Scales' );

%TUNINGS =
(
	standard => [ qw( e a d g b e ) ],
	keithr   => [ qw( g d g b d )  ],
	rainsong => [ qw( g c g c d ) ],
	dropd    => [ qw( d a d g b e ) ],
);


sub get_tuning
{
	my ($self, $req ) = @_;
	return ( (exists $TUNINGS{$req}) ? $TUNINGS{$req} : '' );
}

sub get_all_tunings
{
	return \%TUNINGS;
}