Fix trills and fermatas (trill indicator allowed/required outside the fermata parentheses...)

pae2xml.pl

@@ -296,7 +296,7 @@ sub parse_notes {
     } elsif ($notes =~ /^((\,|\')*(x|xx|b|bb|n)?\d*\.*(g|q)?(\-|A|B|C|D|E|F|G)t?\+?)(.*)$/) {  # a note
       ($note, $notes) = ($1,$6);
       parse_note($note, $keysig, "", "", $qq);
-    } elsif ($notes =~ /^(\((\,|\')*(x|xx|b|bb|n)?\d*\.*(g|q)?(\-|A|B|C|D|E|F|G)t?\+?\))(.*)$/) {  # one note with a fermata
+    } elsif ($notes =~ /^(\((\,|\')*(x|xx|b|bb|n)?\d*\.*(g|q)?(\-|A|B|C|D|E|F|G)[t\+]*\)[t\+]*)(.*)$/) {  # one note with a fermata
       ($note, $notes) = ($1,$6);
       parse_note($note, $keysig, "", "", $qq);
     } elsif ($notes =~ /^(\(((\,|\')*(x|xx|b|bb|n)?\d*\.*(g|q)?(\-|A|B|C|D|E|F|G)t?\+?){3}\))(.*)$/) {  # a triplet
@@ -456,8 +456,8 @@ sub parse_note {
     ($actualnotes, $normalnotes) = ($1, $2);
   }
 
-  if ($note =~ /^\((.*)\)$/) {
-    $note = $1;
+  if ($note =~ /^\((.*)\)(.*)$/) {
+    $note = "$1$2";
     $fermata = 1;
   }
 
@@ -522,8 +522,8 @@ sub parse_note {
     print OUT $tienotation;
   }
   if ($fermata) {
-    print OUT '
-					<fermata type="upright"/>'."\n"; }
+    print OUT "					<fermata type=\"upright\"/>\n";
+  }
   if ($trill eq "t") {
     print OUT '					<ornaments>
 						<trill-mark/>

sample_files/Articulations.pae

+Test Composer
+Test case for articulations
+1.1.1: S articulations
+plain&easy: %G-2@c$ '4CCt(D)8(E)(F)t/
+
+Test Library
+00000000
\ No newline at end of file