3 % #(ly:set-point-and-click 'line-column)
5 forcedLastBreak = \notes { \break }
7 %% We want this to perfectly match the Baerenreiter spacing.
8 %% If we're not using 6 systems, there's definately a problem.
9 #(define (assert-system-count smob n)
10 (let ((systems (length (ly:get-broken-into
12 (ly:get-system smob))))))
13 (if (not (equal? n systems))
16 (string-append "Got " (number->string systems)
17 " systems (expecting " (number->string n))))))
21 title = "Solo Cello Suite II"
23 composer = "J.S. Bach"
24 editor = "August Wenzinger"
25 source= "B\\\"arenreiter Urtext"
27 texidoc = "The B\\\"arenreiter edition of the Cello Suites is the
28 most beautifully typeset piece of music in our collection of music (we
29 both own one. It is also lovely on French Horn). This piece does not
30 include articulation, but it does follows the same beaming and
31 linebreaking as the printed edition. This is done in order to
32 benchmark the quality of the LilyPond output.
34 As of lilypond 1.5.42, the spacing and beam quanting is almost
37 There are two tweaks in this file: a line-break was forced before
38 measure 25, we get back the linebreaking of Baerenreiter. The stem
39 direction is forced in measure 24. The last beam of that measure is up
40 in Baerenreiter because of context. We don't detect that yet.
42 Note that the Barenreiter edition contains a few engraving
43 mistakes. The second line begins with measure 6 (but prints 5). The |:
44 half way in measure 13 has been forgotten.
49 sarabandeA = \context Voice \notes \relative c {
50 \override Staff.NoteCollision #'merge-differently-dotted = ##t
53 << { d8. e16 e4.\trill d16 e } \\
55 <d, a' f'>4. e'8[ d c] |
56 bes[ g'] f[ e16(f] g[ a bes d,)] |
57 cis4.\trill b8[ a g] |
59 %% check spacing without accs:
60 %% c4.\trill bes8[ a g] |
62 << { d'8. e16 e4.\trill d16 e |
65 { <a, f>4 a2 <a d,>4. } >> |
68 g'8 bes16(a) c(bes) a(g) d'8 f, |
74 << { f'8 g16(a) a4. g16(f) |
75 g8 a16(bes) bes4. c16(d) }
77 { a,4 <bes d >4. r8 bes4 <g f'>2 }
81 e'8[ f] c,[ g'] f'[ e] |
83 << { a'4 a4.\trill bes8
85 { f8[ es] es4. r8 d4 } >>
87 fis8.\trill es16 d8 c |
93 < bes d, g, >4.\trill a8[ g f!] |
96 cis,[ bes'] a[ g16 f] e!8[ f16 d] |
97 cis8 e16 a a,8. g'16 f8(e) |
100 << { d e16(f) f4. e16(d) |
101 e8 f16(g) g4. a16(bes) |
102 a8 cis16 d d,8 e16 f32 g f8\trill e16(d) } \\
105 <d a f>8 r r g, a4 } >>
108 d4 d,16 a'( b cis d e f g) |
112 << { a16(b c b) c4. b16(a) |
113 b cis d cis d4. e16(f) | }
125 #'after-line-breaking-callback
126 = #(lambda (smob) (assert-system-count smob 6))
131 sarabandeCelloGlobal = \notes{
137 } \repeat "volta" 2 {
142 sarabandeCelloScripts = \notes{
145 sarabandeCelloStaff = \context Staff <<
147 \sarabandeCelloGlobal
148 \sarabandeCelloScripts
152 smallerPaper = \paper {
153 \translator { \StaffContext
155 StaffSymbol \override #'staff-space = #0.8
157 \translator { \ScoreContext
158 SpacingSpanner \override #'spacing-increment = #0.96
162 linewidth = 146.8 \mm
168 interscoreline=4.0\mm
171 % System \override #'print-function = #box-grob-stencil
181 \midi{ \tempo 4 = 40 }
188 %%% LilyPond-indent-level:2