the second didn't work correctly so i changed it
\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
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
