Am 05.12.18 um 10:56 schrieb Pierre
Perol-Schneider:
Thank you Harm,
In this particular case, there is no chord.
So why do you need chords at all?
And what are you actually trying to achieve, forcing the
fingering on the opposite side of the stem or apply the X-offset
tweaks?
Urs
Am Mi., 5.
Dez. 2018 um 10:26 Uhr schrieb Pierre Perol-Schneider
<address@hidden>:
>
> 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
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user
|