[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Fingering vs stem direction

From: Pierre Perol-Schneider
Subject: Fingering vs stem direction
Date: Wed, 5 Dec 2018 10:25:55 +0100

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:
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 = #'()

Thanks in advance for any help,

reply via email to

[Prev in Thread] Current Thread [Next in Thread]