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

[Jacques Menu]

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 <address@hidden> 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
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user