diff --git a/pae2xml.pl b/pae2xml.pl index 929a5767a32abd1227fffe5d7e99bc85f343f01a..7f82c91ea269ba05e18d3aa1efcdf3b45e2b064d 100755 --- a/pae2xml.pl +++ b/pae2xml.pl @@ -246,12 +246,6 @@ sub parse_notes { $notes =~ s/(xx|x|bb|b|n)\(/\($1/gs; # pull accidentals into tuplets or fermatas: $notes =~ s/(\d+)(xx|x|bb|b|n)(A|B|C|D|E|F|G)/$2$1$3/gs; # accidentals first, then duration -# $notes =~ s/x\(/\(x/gs; # pull accidentals into tuplets or fermatas -# $notes =~ s/bb\(/\(bb/gs; # pull accidentals into tuplets or fermatas -# $notes =~ s/b\(/\(b/gs; # pull accidentals into tuplets or fermatas -# $notes =~ s/n\(/\(n/gs; # pull accidentals into tuplets or fermatas - # $notes =~ s/(\'+|\,+)\(/\($1/g; # pull octave marks into tuplets or fermatas - $notes =~ s/(\.|\d|\,|\')qq/qq$1/gs; # pull beginning mark of group of grace notes in front of corresponding notes $notes =~ s/(xx|x|bb|b|n)qq/qq$1/gs; # qq first, then parts of notes