lilypond-user
[Top][All Lists]
Advanced

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

Re: Combine Text/Lyrics with bass figures


From: Lukas-Fabian Moser
Subject: Re: Combine Text/Lyrics with bass figures
Date: Fri, 26 Jun 2020 10:07:07 +0200
User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.8.0

Hi Urs,


Hey, that looks promising - I didn't know that.
Now I'd only need a way to properly do the vertical alignment against the baseline of the lowest markup:

\figures {
  <6 4 \markup { \circle \number 5 }>
  <3+ \markup { \circle \number 6 }>
}

This might be achieved using an inversed stacking direction. Harm's figure reversal function can then be used to enable the user to still enter bass figures in the "usual" way.

With a bit of syntactic sugar, this might look as below.

Problems so far:

1) The figures are still down-aligned. This might be remedied for instance by defining a "maximal" number of figures for which to leave space and inserting placeholders. (This reminds me of one of my long-time wishes, namely to have a dedicated "empty" figure for use in FiguredBass, which is sometimes needed to leave space for figures that are added later in a chord. I once patched my LilyPond to allow for this, but this was an ugly hack involving transparent figures...)

2) The "get-current-duration" function is simply awful: I didn't know how to find out which duration the parser would assign to a duration-less note/bass figure, so I just let it create a note and see what its duration becomes. There must be a decent way to achieve this. (I need to give the bassStufe-function a duration because otherwise it does not work with figure \none.)

Best
Lukas



\version "2.20.0"

\layout {
  \override BassFigureAlignment.stacking-dir = #UP
}

reverseFigures = % by Harm
#(define-music-function (mus)(ly:music?)
   (music-map
    (lambda (m)
      (if (music-is-of-type? m 'event-chord)
          (let ((ev-chrd-elts (ly:music-property m 'elements)))
            (ly:music-set-property! m 'elements
                                    (reverse
                                     (map
                                      (lambda (e)
                                        (cond ((and (eq? #t (ly:music-property e 'bracket-start))                                                     (eq? #t (ly:music-property e 'bracket-stop)))
                                               '())
                                              ((eq? #t (ly:music-property e 'bracket-start))
                                               (begin
(ly:music-set-property! e 'bracket-start '())
(ly:music-set-property! e 'bracket-stop #t)))
                                              ((eq? #t (ly:music-property e 'bracket-stop))
                                               (begin
(ly:music-set-property! e 'bracket-stop '())
(ly:music-set-property! e 'bracket-start #t))))
                                        e)
                                      ev-chrd-elts)))
            m)
          m))
    mus))

get-current-duration =
#(define-scheme-function () ()
   (let* ((tempmusic #{ {a} #})
          (els (ly:music-property tempmusic 'elements)))
     (ly:music-property (car els) 'duration)))

bassStufe =
#(define-music-function (num) (integer?)
   (let ((scale-markup
          (if (> num 0)
              #{ \markup \circle \small \number #(number->string num) #}
              (markup #:null))))

     (make-music
      'BassFigureEvent
      'duration
      (get-current-duration)
      'text
      #{ \markup
         \with-dimensions #'(0 . 1) #'(0 . 5)
         #scale-markup
      #})))

scaledeg =
#(define-music-function (num signatur) ((integer? 0) ly:music?)
   (let ((signatur-reversed (reverseFigures signatur)))
     (make-music
      'EventChord
      'elements
      (cons (bassStufe num)
            (ly:music-property signatur-reversed 'elements)))))

none = {}

<<
  \new Staff { \clef bass d2 e4 fis g2 a b cis' d' g2 fis1 }
  \figures {
    \scaledeg 1 <5 3>2
    \scaledeg 2 <6>4
    \scaledeg 3 <6>
    \scaledeg 4 <6 5>2
    \scaledeg 5 \none
    \scaledeg 6 <6>2
    \scaledeg 7 <6>4
    \scaledeg <6 5>
    \scaledeg 1 <5 3>2
    \scaledeg 4 <4 2>
    \scaledeg 3 <6>1
  }
>>






reply via email to

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