Re: vertical spacing of footnotes

[Jean Abou Samra]

Le mardi 14 février 2023 à 15:13 +0000, Werner LEMBERG a écrit :

Excellent, thanks!  I slowly arrive at some nice results, see attached code and image.  However, there is one problem that I don't understand: Why is the space between footnotes 3 and 4 (and 4 and 5) larger than between 1 and 2 (and 2 and 3)?

Well, in footnotes 1 and 2, there is only one strut for the two lines. Try this, but I'm tired and have other things to do, so there may still be oddities.

\version "2.24.0"

#(set-default-paper-size "a7landscape")

#(define-markup-command (footnote-strut layout props)
   ()
   #:properties ((baseline-skip))
   (let ((yext (cons (* -0.3 baseline-skip)
                     (* 0.7 baseline-skip))))
     (ly:make-stencil
      (ly:stencil-expr (make-transparent-box-stencil '(0 . 0.05) yext))
      empty-interval
      yext)))

#(define-markup-command (footnote-strut-on-all-lines layout props elts) (markup-list?)
   #:properties ((baseline-skip))
   (let* ((stils (interpret-markup-list layout props elts))
          (new-mkups (map (lambda (stil)
                            #{ \markup { \override #`(baseline-skip . ,baseline-skip) \footnote-strut \stencil #stil } #})
                          stils)))
     (interpret-markup layout props #{ \markup \override #'(baseline-skip . 0) \column #new-mkups #})))

#(define (markup-list-or-markup? x)
   (or (markup-list? x) (markup? x)))

myFootnote =
#(define-music-function (mark offset text item)
   ((markup?) number-pair? markup-list-or-markup? symbol-list-or-music?)
   (let ((text (if (markup? text) (list text) text)))
     (if mark
         #{ \footnote #mark #offset \markup \footnote-strut-on-all-lines #text #item #}
         #{ \footnote #offset \markup \footnote-strut-on-all-lines #text #item #})))

\book {
  \header { tagline = ##f }

  \paper {
   text-font-defaults.baseline-skip = 2
   footnote-padding = 0\mm
   footnote-separator-markup =
     \markup \column {
       \line { \override #'(span-factor . 1/3) \draw-hline }
       \vspace #0.2
     }
   footnote-number-raise = 0
   footnote-numbering-function =
     #(lambda (n)
        (let ((text (numbered-footnotes n)))
          #{
            \markup \with-dimension #Y #'(0 . 0)
            \raise #0.5 % 0.5 is default footnote-number-raise
            \general-align #Y #UP #text #}))
  }

  \markup "time-based footnotes"
  \score {
    \relative c'' {
      r1 |
      \myFootnote #'(-0.5 . -1)
        \markuplist {
          \line { + Meter change. This is a multi-line }
          \line { + footnote grob. }
        } Staff.TimeSignature
        \time 3/4
      \myFootnote #'(1 . -1)
        \markuplist {
          \override #'(line-width . 40)
          \wordwrap-lines {
            + Note stem. This is another multi-line
            + footnote grob.
          }
        } Stem
      <c e g>4
      \myFootnote #'(1 . -1) "+ Another stem." Stem
        q q |
      \myFootnote #'(-0.5 . 2) "+ Bar line." Staff.BarLine
        q q
      \myFootnote #'(0.5 . -1) "+ Key change." Staff.KeySignature
        \key c \minor q |
    }
  }
}

signature.asc
Description: This is a digitally signed message part