Permalink
Browse files

Add crescendos and diminuendos, clean up other long graces a bit.

  • Loading branch information...
1 parent 664f368 commit 738a897935151d8356a6eca8ca30fa0236eb775a @colomon committed May 21, 2012
Showing with 5 additions and 3 deletions.
  1. +5 −3 bin/abc2ly.pl
View
@@ -225,9 +225,11 @@ (ABC::Header $header, $out)
given $element.value {
when "~" { $suffix ~= "\\turn"; }
when "." { $suffix ~= "\\staccato"; }
- when "fermata" { $suffix ~= "\\fermata"; }
- when "trill" { $suffix ~= "\\trill"; }
- when /^p+$/ | "mp" | "mf" | /^f+$/
+ when "crescendo(" | "<(" { $suffix ~= "\\<"; }
+ when "crescendo)" | "<)" { $suffix ~= "\\!"; }
+ when "diminuendo(" | ">(" { $suffix ~= "\\>"; }
+ when "diminuendo)" | ">)" { $suffix ~= "\\!"; }
+ when /^p+$/ | "mp" | "mf" | /^f+$/ | "fermata" | "accent" | "trill"
{ $suffix ~= "\\" ~ $element.value; }
$*ERR.say: "Unrecognized gracing: " ~ $element.value.perl;
}

0 comments on commit 738a897

Please sign in to comment.