Permalink
Browse files

Get the current duration for multi-note stems.

  • Loading branch information...
colomon committed May 15, 2012
1 parent 83d7ac7 commit d0697183567ff31da4395522f5c40f49f4f092a3
Showing with 2 additions and 2 deletions.
  1. +2 −2 bin/abc2ly.pl
View
@@ -167,8 +167,8 @@ (ABC::Header $header, $out)
when ABC::Stem {
" <" ~ $stem.notes.map({ $.context.get-Lilypond-pitch($_.pitch) }).join(' ') ~ ">"
- ~ $.context.get-Lilypond-duration($stem.notes[0])
- ~ ($stem.notes[0].is-tie ?? '~' !! '')
+ ~ $.context.get-Lilypond-duration($stem)
+ ~ ($stem.is-tie ?? '~' !! '')
~ $suffix
~ " ";
}

0 comments on commit d069718

Please sign in to comment.