|
From: | Stephen MacNeil |
Subject: | RE:Arrastres: function scheme question - Built from ideas of Simon and David -- Dynamic mark at the end of a bar |
Date: | Sat, 30 May 2015 20:47:11 -0400 |
\version "2.18.2"
Fraction = #(cons 6 8)
Arrastres =
#(define-music-function (parser location len main grace) (number? ly:music? ly:music?)
(_i "Create @var{grace} note(s) after a @var{main} music _expression_.")
(let ((main-length (ly:music-length main))
(fraction (ly:parser-lookup parser 'Fraction)))
(make-simultaneous-music
(list
main
(make-sequential-music
(list
(make-music 'SkipMusic
'duration (ly:make-duration
0 0
(* (ly:moment-main-numerator main-length)
(car fraction))
(* (ly:moment-main-denominator main-length)
(cdr fraction))))
#{
\once \override Flag.stroke-style = #"grace"
\once \override NoteHead.extra-spacing-width = #`(,len . 1)
#}
(make-music
'GraceMusic
'element grace)))
#{
\glissando
#}))))
\relative c' { \time 2/4 dis16 fis dis b c a g \Arrastres #-3 fis c' |
<a c>2~ q4 s4 |}
%%%%
but now it needs a negative number
stephen
[Prev in Thread] | Current Thread | [Next in Thread] |