input/regression/new-slur.ly

   1
   2 \header {
   3     texidoc = "Scoring based slur formatting."
   4 }
   5
   6 \paper {
   7     raggedright = ##t
   8 }
   9
  10 %% help lilypond-book
  11 %% \score
  12
  13 \relative {
  14     \override Slur #'after-line-breaking-callback = #New_slur::after_line_breaking
  15     \override Slur #'print-function = #New_slur::print
  16     \override Slur #'height = ##f
  17
  18     \grace e=''16( d8.[) c16]
  19     d8.[ \grace f16( e16)]
  20     s2
  21     << {c=''8.([ es16] bes4~bes )}
  22        \\
  23        {r8  <as es> r <f des> r }
  24    >>
  25     s4
  26
  27     g='8[( a b b! ]  c4  bes)
  28     bes='8( f' des bes) as4( bes)
  29     r8 d( f e d c b a)
  30     cis=''4( d)  f'=''16( e)    d( c)
  31     s4
  32
  33     c'=''2(~c8 d16 c b8 a)
  34
  35     <c=' g>4 ( f <g b>) f
  36     <c g>^( f <g b>) f
  37     <c g>_( f <g b>)
  38     <g b>_( g  <b d>)
  39     <g b>_( \stemDown g \stemBoth  <b d>)
  40     c,^( c'' c)
  41     c,,^( c'')
  42     c,,^( c')
  43     \once \override Script #'padding = #1.2
  44     b-.8( b-.
  45     \once \override Script #'padding = #1.2
  46
  47     b-.)
  48     b-.( b-.
  49     b-.)
  50     s4
  51     | b='2( a4) s4
  52     | b='4.( c8) s2
  53     | << c=''1_(
  54        { s2 \grace { b16[ c] } } >>
  55     \break
  56     b4)
  57     e=''4.( c8) s4
  58
  59
  60
  61 }
  62