3 texidoc = "This regtest makes sure that footnote numbers are laid out
4 in the correct vertical order.
8 #(define (make-footnote-numbering-assertion-function n)
11 (ly:error (_ "Expecting number ~a, got ~a") n x))))
13 #(define (simultaneous-footnote-numbering-assertion-function x y)
15 (let ((n (if (grob::has-interface (ly:grob-parent grob Y)
21 (ly:error (_ "Expecting number ~a, got ~a") n x))))))
24 reset-footnotes-on-new-page = ##f
27 #(set-default-paper-size "a6")
31 \new Staff \relative c' {
33 \once \override FootnoteItem #'numbering-assertion-function =
34 #(lambda (grob) (make-footnote-numbering-assertion-function 0))
35 < f a-\footnote #'(1 . -1) \markup { n } \default c >
36 \once \override FootnoteSpanner #'numbering-assertion-function =
37 #(simultaneous-footnote-numbering-assertion-function 2 4)
38 \footnote #'(1 . 1) #'Beam \markup { o } \default
39 \footnote #'(1 . 1) #'Hairpin \markup { p } \default
40 a8\< [ b c d ] a4 b c\f |
43 \once \override FootnoteItem #'numbering-assertion-function =
44 #(lambda (grob) (make-footnote-numbering-assertion-function 6))
45 < f a-\footnote #'(1 . -1) \markup { n } \default c >
46 \once \override FootnoteSpanner #'numbering-assertion-function =
47 #(simultaneous-footnote-numbering-assertion-function 8 10)
48 \footnote #'(1 . 1) #'Beam \markup { o } \default
49 \footnote #'(1 . 1) #'Hairpin \markup { p } \default
50 a8\< [ b c d ] a4 b c |
53 \once \override FootnoteItem #'numbering-assertion-function =
54 #(lambda (grob) (make-footnote-numbering-assertion-function 12))
55 < f a-\footnote #'(1 . -1) \markup { n } \default c >
56 \once \override FootnoteSpanner #'numbering-assertion-function =
57 #(simultaneous-footnote-numbering-assertion-function 14 16)
58 \footnote #'(1 . 1) #'Beam \markup { o } \default
59 \footnote #'(1 . 1) #'Hairpin \markup { p } \default
60 a8\< [ b c d ] a4 b c |
63 \new Staff \relative c' {
65 \once \override FootnoteItem #'numbering-assertion-function =
66 #(lambda (grob) (make-footnote-numbering-assertion-function 1))
67 < f a-\footnote #'(1 . -1) \markup { n } \default c >
68 \once \override FootnoteSpanner #'numbering-assertion-function =
69 #(simultaneous-footnote-numbering-assertion-function 3 5)
70 \footnote #'(1 . 1) #'Beam \markup { o } \default
71 \footnote #'(1 . 1) #'Hairpin \markup { p } \default
72 a8\< [ b c d ] a4 b c\f |
75 \once \override FootnoteItem #'numbering-assertion-function =
76 #(lambda (grob) (make-footnote-numbering-assertion-function 7))
77 < f a-\footnote #'(1 . -1) \markup { n } \default c >
78 \once \override FootnoteSpanner #'numbering-assertion-function =
79 #(simultaneous-footnote-numbering-assertion-function 9 11)
80 \footnote #'(1 . 1) #'Beam \markup { o } \default
81 \footnote #'(1 . 1) #'Hairpin \markup { p } \default
82 a8\< [ b c d ] a4 b c |
85 \once \override FootnoteItem #'numbering-assertion-function =
86 #(lambda (grob) (make-footnote-numbering-assertion-function 13))
87 < f a-\footnote #'(1 . -1) \markup { n } \default c >
88 \once \override FootnoteSpanner #'numbering-assertion-function =
89 #(simultaneous-footnote-numbering-assertion-function 15 17)
90 \footnote #'(1 . 1) #'Beam \markup { o } \default
91 \footnote #'(1 . 1) #'Hairpin \markup { p } \default
92 a8\< [ b c d ] a4 b c |