Paolo Prete wrote
> Hello,
> in the snippet below how can I replace "4" (in the denominator of
> "\times") with the number of notes+rests (including "s") in $notes ?
> Thanks
>
> %%%%%%%%
> createTuplet = #(define-music-function (parser location notes)
> (ly:music?)#{ \times 2/4 $notes#})
> { \createTuplet {c' e' r g'}}
Well, you could do like below, but I can't believe the output is what you
want.
\version "2.18.2"
createTuplet = #(define-music-function (parser location notes) (ly:music?)
#{
\times
#(cons
2
(length (extract-named-music notes '(RestEvent SkipEvent NoteEvent))))
$notes
#})
{
\createTuplet { c'4 e' r g' }
\createTuplet { c'4 e' r <g' b'> }
\createTuplet { c'4 e' r s4 }
\createTuplet { c'4 e' r s16 s16 s16 s16 }
}
Cheers,
Harm
--
Sent from: http://lilypond.1069038.n5.nabble.com/User-f3.html
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
