Permalink
Browse files

Support slurs, too.

  • Loading branch information...
colomon committed Apr 17, 2012
1 parent f1f1c11 commit a63e6e65c3ef63be5d7e6a0b9a6882c10adfd1b1
Showing with 14 additions and 0 deletions.
  1. +6 −0 bin/abc2ly.pl
  2. +8 −0 lib/ABC/Actions.pm
View
@@ -242,6 +242,12 @@ (ABC::Header $header)
}
}
}
+ when "slur_begin" {
+ $suffix ~= "(";
+ }
+ when "slur_end" {
+ $lilypond .= subst(/(\s+)$/, { ")$0" });
+ }
# .say;
}
}
View
@@ -72,6 +72,14 @@ class ABC::Actions {
make $/<long_gracing> ?? $/<long_gracing>.ast !! ~$/;
}
+ method slur_begin($/) {
+ make ~$/<slur_begin>;
+ }
+
+ method slur_end($/) {
+ make ~$/<slur_end>;
+ }
+
method chord($/) {
# say "hello?";
# say $/<chord_accidental>[0].WHAT;

0 comments on commit a63e6e6

Please sign in to comment.