Permalink
Browse files

Add simple trills.

  • Loading branch information...
1 parent 42ff51a commit 772d93936a91032e227c17004063d4dfcc00b30f @colomon committed May 10, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 bin/abc2ly.pl
View
@@ -231,9 +231,10 @@ (ABC::Header $header, $out)
when "~" { $suffix ~= "\\turn"; }
when "." { $suffix ~= "\\staccato"; }
when "fermata" { $suffix ~= "\\fermata"; }
+ when "trill" { $suffix ~= "\\trill"; }
when /^p+$/ | "mp" | "mf" | /^f+$/
{ $suffix ~= "\\" ~ $element.value; }
- $*ERR.say: "Unrecognized gracing: " ~ $element.perl;
+ $*ERR.say: "Unrecognized gracing: " ~ $element.value.perl;
}
}
when "barline" {

0 comments on commit 772d939

Please sign in to comment.