RE:Arrastres: function scheme question - Built from ideas of Simon and David -- Dynamic mark at the end of a bar

[Stephen MacNeil]

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