input/baerenreiter-sarabande.ly

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