Commit 89145506 authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

Ties need to add a notation element, too

parent 62748c25
......@@ -494,7 +494,12 @@ sub parse_note {
';
}
$tienotation = "";
if ($tie eq "+") {
if ($TIE) {
$tienotation = " <tied type=\"stop\"/>\n";
}
$tienotation .= " <tied type=\"start\"/>\n";
if (!$TIE) {
$TIE = 1;
print OUT ' <tie type="start"/>
......@@ -504,23 +509,29 @@ sub parse_note {
if ($TIE) {
print OUT ' <tie type="stop"/>
';
$tienotation = " <tied type=\"stop\"/>\n";
$TIE = 0;
}
}
print OUT $addition;
my $notationbracket = $fermata || ($trill eq "t") || ($notation ne "");
my $notationbracket = $fermata || $tienotation || ($trill eq "t") || ($notation ne "");
if ($notationbracket) {
print OUT " <notations>\n";
}
if ($fermata) { print OUT '
if ($tienotation) {
print OUT $tienotation;
}
if ($fermata) {
print OUT '
<fermata type="upright"/>'."\n"; }
if ($trill eq "t") { print OUT ' <ornaments>
if ($trill eq "t") {
print OUT ' <ornaments>
<trill-mark/>
</ornaments>
';
}
}
if ($notation ne "") {
print OUT " $notation\n";
}
......
Test Composer
Test case for Ties
1.1.1: S Ties
plain&easy: %G-2@c$bB '4C+C+CD/8DD+DC2A/
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