Am Mi., 5. Dez. 2018 um 10:26 Uhr schrieb Pierre Perol-Schneider
<pierre.schneider.pa...@gmail.com>:
>
> 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
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
