Hello Stephen,
Changing :
\once \override NoteHead.extra-spacing-width = #`(,len . 1)
to :
\once \override NoteHead.extra-spacing-width = #`(,(- len) . 1)
allows a positive number instead.
JM
> Le 31 mai 2015 à 02:47, Stephen MacNeil <classicalja...@gmail.com> a écrit :
>
> 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
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
