Am Mi., 5. Dez. 2018 um 10:26 Uhr schrieb Pierre Perol-Schneider <[email protected]>: > > Hi All, > > I'm looking for a function that'll do: > > { > \clef "G_8" > \override Fingering.staff-padding = #'() > <a-\tweak X-offset #'-.2 ^1>4 > <b-\tweak X-offset #'.2 _2> > } > > As a first step, I've tried to adapt Harm's function found here: > http://lilypond.1069038.n5.nabble.com/position-text-opposite-stem-direction-td51758.html#a51759 > without succes: > > %% After Harm: > #(define (forced-dir grob) > (let* ((x-parent (ly:grob-parent grob X)) > (elts (ly:grob-object x-parent 'elements)) > (grob-name (lambda (x) (assq-ref (ly:grob-property x 'meta) 'name))) > (stems (filter (lambda (x) (eq? 'Stem (grob-name x))) > (ly:grob-array->list elts))) > (stem (list-ref stems 0)) > (stem-dir (ly:grob-property stem 'direction))) > > (if (= stem-dir 1) > (ly:grob-set-property! grob 'direction up) > (ly:grob-set-property! grob 'direction down)))) > > > { > \clef "G_8" > \set fingeringOrientations = #'(forced-dir) > \override Fingering.staff-padding = #'() > <a-1>4 > <b-2> > } > > Thanks in advance for any help, > Cheers, > Pierre >
Hi Pierre, this will not work here for several reasons. Can't look deeper into it right now (have to run for my regular job). Probably in the evening. Though, how do you want the fingerings, if you have real chords (more than one note)? Cheers, Harm _______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
