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

use Music::MelodicDevice::Ornamentation;

my $note     = shift || 'C';
my $octave   = shift || 4;
my $scale    = shift || 'major';
my $ornament = shift || 'grace_note';
my $offset   = shift || 1;
my $number   = shift || 2;

my $md = Music::MelodicDevice::Ornamentation->new(
    scale_note => $note,
    scale_name => $scale,
    verbose => 1,
);

my @note = ('qn', $note . $octave);

my $spec;

if ($ornament eq 'trill') {
    $spec = $md->$ornament(@note, $number, $offset);
}
elsif ($ornament eq 'slide') {
    $spec = $md->$ornament(@note, 'C4');
}
else {
    $spec = $md->$ornament(@note, $offset);
}
