Commit 45814baa authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

Also write out the graphic notehead instead of only the duration

parent 133b763f
......@@ -60,6 +60,7 @@ handle_options ();
$divisions = 960;
$old_duration = $divisions;
$old_type = "";
$old_octave = 4;
($mday, $mon, $year) = (localtime()) [3..5];
......@@ -514,6 +515,9 @@ sub parse_note {
}
}
# Determine graphic notehead:
print OUT notehead ($dur, $dot);
print OUT $addition;
my $notationbracket = $fermata || $tienotation || ($trill eq "t") || ($notation ne "");
......@@ -568,6 +572,20 @@ sub alter {
return "";
}
sub notehead {
my ($duration, $dots) = @_;
if ($duration.$dots ne "") {
my %du=("0", "long", "9", "breve", "1", "whole", "2", "half", "4", "quarter",
"8", "eighth", "6", "16th", "3", "32nd", "5", "64th", "7", "128th");
my $res = " <type>$du{$duration}</type>\n";
$res .= repeat (" <dot/>\n", length ($dots));
$old_type = $res;
}
return $old_type;
}
sub duration {
my ($duration, $dots) = @_;
......
Test Composer
Test case for dotted durations
1.1.1: S dotted durations
plain&easy: %G-2@8/2$ '1.CD1-/1..CD2-/2.EF2..EF4-2-/4.GA4..GA4...GA6-4.-1-/8.BA8..BA6.DE6..DE3.FG3..FG3.-6.-8.-2.-1.-/1C
Test Library
00000000
\ No newline at end of file
Test Composer
Test case for durations
1.1.1: S durations
plain&easy: %G-2@8/2$ '1CD2EF4GA8BC6DE3FG5AB7CD5-/1-2-4-8-6-3-5-7--1--/0C/0-/9D-/
Test Library
00000000
\ No newline at end of file
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment