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

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