input/regression/new-slur.ly

   1
   2 \header {
   3     texidoc = "Scoring based slur formatting."
   4 }
   5
   6 \version "2.3.16"
   7 \paper {
   8     raggedright = ##t
   9 %    #(define debug-slur-scoring #t)
  10 }
  11
  12 %% help lilypond-book
  13 %% \score
  14
  15 \relative {
  16
  17     \grace e=''16( d8.[) c16]
  18     d=''8.[ \grace f16( e16)]
  19     s2
  20     << {c=''8.([ es16] bes4~bes )}
  21        \\
  22        {r8  <as es> r <f des> r }
  23     >>
  24     s4
  25
  26     g='8[( a b b! ]  c4  bes)
  27     bes='8( f' des bes) as4( bes)
  28     r8 d( f e d c b a)
  29     cis=''4( d)  f'=''16( e)    d( c)
  30     s4
  31
  32     c'=''2(~c8 d16 c b8 a)
  33
  34     <c=' g>4 ( f <g b>) f
  35     <c g>^( f <g b>) f
  36     <c g>_( f <g b>)
  37     <g b>_( g  <b d>)
  38     <g b>_( \stemDown g \stemBoth  <b d>)
  39     c,^( c'' c)
  40     c,,^( c'')
  41     c,,^( c')
  42     | b='2( a4) s4
  43     | b='4.( c8) s2
  44     | << c=''1_(
  45        { s2 \grace { b16[ c] } } >>
  46     \break
  47     b4)
  48     e=''4.( c8) s4
  49     | << { b='8[( c]) } \\
  50          { b='8[( c]) }>>
  51
  52
  53     s2.|
  54     e4( dis4)
  55     e4( dis4)
  56     g='16( b d fis)
  57     \clef bass a=8[ e16(f] g[ a bes d,)]  s4 | \break
  58
  59     \clef treble
  60     \relative c'' {
  61         \slurDown f2( d4 f | g c a f | d c f2 | f1) |
  62     }
  63
  64 }
  65