input/mutopia/J.S.Bach/baerenreiter-sarabande.ly

   1
   2
   3 #(set! point-and-click line-column-location)
   4
   5 forcedBreak = \notes { }
   6 %%forcedBreak = \notes { \break }
   7 forcedLastBreak = \notes { \break }
   8 %%forcedLastBreak = \notes { }
   9
  10 %% We want this to perfectly match the Baerenreiter spacing.
  11 %% If we're not using 6 systems, there's definately a problem.
  12 #(define (assert-system-count smob n)
  13   (let ((systems (length (get-broken-into
  14                           (get-original
  15                            (get-system smob))))))
  16     (if (not (equal? n systems))
  17         ;; Can't use error yet, as we know that we're not using 6...
  18         ;;(error
  19         (warn
  20         (string-append "Got " (number->string systems)
  21                              " systems (expecting " (number->string n))))))
  22
  23
  24 \header {
  25   title = "Solo Cello Suite II"
  26   piece ="Sarabande"
  27   composer = "J.S.Bach"
  28   editor = "August Wenzinger"
  29   source= "B\\\"arenreiter Urtext"
  30
  31   texidoc = "The B\\\"arenreiter edition of the Cello Suites is the
  32 most beautifully typeset piece of music in our collection of music (we
  33 both own one. It is also lovely on French Horn). This piece does not
  34 include articulation, but it does follows the same beaming and
  35 linebreaking as the printed edition. This is done in order to
  36 benchmark the quality of the LilyPond output.
  37
  38 As of lilypond 1.5.42, the spacing and beam quanting is almost
  39 identical.
  40
  41 There are two tweaks in this file: a line-break was forced before
  42 measure 25, we get back the linebreaking of Baerenreiter.  The stem
  43 direction is forced in measure 24. The last beam of that measure is up
  44 in Baerenreiter because of context. We don't detect that yet.
  45
  46 Note that the Barenreiter edition contains a few engraving
  47 mistakes. The second line begins with measure 6 (but prints 5). The |:
  48 half way in measure 13 has been forgotten.
  49  "
  50 }
  51
  52
  53 \version "1.5.68"
  54
  55
  56 sarabandeA =  \context Voice \notes \relative c {
  57   \property Staff.NoteCollision \set #'merge-differently-dotted = ##t
  58   < { d8. e16 e4.-\trill d16 e } \\
  59     { d4 a2 } >
  60   f4.  [e8 d c] |
  61   [bes g'] [f e16(f] [g a bes)d,] |
  62   cis4.-\trill [b8 a g] |
  63
  64   %% check spacing without accs:
  65   %%    c4.-\trill [bes8 a g] |
  66
  67   < { d'8. e16 f4.-\trill d16 e |
  68       f4. [d8 e f] }
  69     \\
  70     { <a,4 f> a2 <a4. d,4.>  } > |
  71
  72   %%7
  73   g8 bes16()a c()bes a()g d'8 f, |
  74   <  e4.-\trill
  75   \\ <c,4 g'> >
  76   [d8 c bes]
  77
  78   %%9
  79   < { f'8 g16()a a4. g16()f  |
  80       g8 a16()bes bes4. c16()d }
  81     \\
  82     { a,4 <bes4. d4. > r8 bes4 <g2 f'2>  }
  83   > |
  84   \forcedBreak
  85
  86   %% 11
  87   [e,8 f] [c, g'] [f' e] |
  88   f4 f,2 |
  89   < {  a'4 a4.-\trill bes8
  90        c bes16 a } \\
  91     { [f8 es] es4. r8 d4 } >
  92
  93   fis8.-\trill es16 d8 c |
  94   [bes g']
  95   [a, fis']
  96   [es' d] |
  97   \forcedBreak
  98
  99   %%16
 100   < bes4.-\trill d, g, > [a8 g f!] |
 101   e bes a f' g a |
 102   d, as g es' f g |
 103   [cis, bes'] [a g16 f] [e!8 f16 d] |
 104   cis8 e16 a a,8. g'16 f8()e |
 105   \forcedBreak
 106
 107   %%21
 108   < { d e16()f f4. e16()d |
 109       e8 f16()g g4. a16()bes |
 110       a8 cis16 d d,8 e16 f32 g f8-\trill e16()d } \\
 111     { bes4 g2 |
 112       g4 <bes4. cis,> s8 |
 113       <d8 a f> r r g, a4 } >
 114   |
 115   \stemUp
 116   d4 d,16 a'( b cis d e f )g |
 117   \stemBoth
 118   \forcedLastBreak
 119   %%25
 120   < { a16(b c)b c4. b16()a |
 121       b cis d cis d4. e16()f | }
 122     \\
 123     { f,4 fis4. s8 |
 124       <d4 g,> gis4.   } >
 125   \voiceOne
 126   d16(cis)d f,
 127   [a,8 e']
 128   \oneVoice
 129   [d' cis] |
 130   %%  d4 d,,2 |
 131   d4
 132   \property Thread.NoteHead
 133   \override #'after-line-breaking-callback
 134   = #(lambda (smob) (assert-system-count smob 6.1))
 135   d,,2 |
 136 }
 137
 138
 139 sarabande =  \context Staff \notes<
 140   \apply #voicify-music \sarabandeA
 141
 142 >
 143
 144 \version "1.5.68"
 145
 146 sarabandeCelloGlobal =  \notes{
 147   \time 3/4
 148   \key f \major
 149   \clef bass
 150   \repeat "volta" 2 {
 151     s2.*12
 152   } \repeat "volta" 2 {
 153     s2.*16
 154   }
 155 }
 156
 157 sarabandeCelloScripts =  \notes{
 158 }
 159
 160 sarabandeCelloStaff =  \context Staff <
 161   \sarabande
 162   \sarabandeCelloGlobal
 163   \sarabandeCelloScripts
 164 >
 165
 166 % size perversions
 167 smallerPaper = \paper {
 168     \translator { \StaffContext
 169                   fontSize = #-1
 170                   StaffSymbol \override  #'staff-space = #0.8
 171                   }
 172     \translator { \ScoreContext
 173                    SpacingSpanner \override #'spacing-increment = #0.96
 174                 }
 175
 176     indent = 5.6 \mm
 177     linewidth = 146.8 \mm
 178 }
 179
 180 baerPaper = \paper {
 181     indent = 7. \mm
 182     linewidth =183.5 \mm
 183     interscoreline=4.0\mm
 184     \translator {
 185              \ScoreContext
 186 %            System \override #'molecule-callback = #box-grob-molecule
 187     }
 188 }
 189
 190
 191 \score{
 192   \sarabandeCelloStaff
 193   \paper{
 194     \baerPaper
 195   }
 196   \midi{ \tempo 4 = 40 }
 197   \header{
 198     opus= ""
 199     piece ="Sarabande" }
 200 }
 201
 202 %%% Local variables:
 203 %%% LilyPond-indent-level:2
 204 %%% End: