input/regression/new-slur.ly

   1
   2 \header {
   3     texidoc = "Scoring based slur formatting."
   4 }
   5
   6 \version "2.3.22"
   7 \layout {
   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     \new Voice { \voiceOne b='8[ c16( d])  }
  25     g='8[( a b b! ]  c4  bes)
  26     bes='8( f' des bes) as4( bes)
  27     r8 d( f e d c b a)
  28     cis=''4( d)  f'=''16( e)    d( c)
  29     s4
  30
  31     c'=''2(~c8 d16 c b8 a)
  32
  33     <c=' g>4 ( f <g b>) f
  34     <c g>^( f <g b>) f
  35     <c g>_( f <g b>)
  36     <g b>_( g  <b d>)
  37     <g b>_( \stemDown g \stemNeutral  <b d>)
  38     c,='^( c'' c)
  39     c,,^( c'')
  40     c,,^( c')
  41     | b='2( a4) s4
  42     | b='4.( c8) s2
  43     | << c=''1_(
  44        { s2 \grace { b16[ c] } } >>
  45     \break
  46     b4)
  47     e=''4.( c8) s4
  48     | << { b='8[( c]) } \\
  49          { b='8[( c]) }>>
  50
  51
  52     s2.|
  53     e4( dis4)
  54     e4( dis4)
  55     g='16( b d fis)
  56     \clef bass a=8[ e16(f] g[ a bes d,)]  s4 | \break
  57
  58     \clef treble
  59     \new Voice \relative c'' {
  60         \slurDown f2( d4 f | g c a f | d c f2 | f1) |
  61     }
  62
  63 %    \override Slur #'excentricity = #-2
  64     c=''8 ( d[ b f d] a'[ c])
  65 }
  66