input/regression/slur-scoring.ly

   1
   2 \header {
   3
   4     texidoc = "Slur formatting is based on scoring. A large number of
   5     slurs are generated. Each esthetic aspect gets demerits, the best
   6     configuration (with least demerits) wins. This must be tested in
   7     one big file, since changing one score parameter for one situation
   8     may affect several other situations.
   9
  10     Tunable parameters are in @file{scm/slur.scm}.
  11 "
  12
  13 }
  14
  15 \version "2.14.0"
  16 \layout {
  17     ragged-right = ##t
  18 %    #(define debug-slur-scoring #t)
  19 }
  20
  21 \relative c'' {
  22
  23     \grace e=''16( d8.[) c16]
  24     d=''8.[ \grace f16( e16)]
  25     s2
  26     << {c=''8.([ es16] bes4~bes )}
  27        \\
  28        {r8  <as es> r <f des> r }
  29     >>
  30     \new Voice { \voiceOne b='8[ c16( d])  }
  31     g,='8[( a b b! ]  c4  bes)
  32     bes='8( f' des bes) as4( bes)
  33     r8 d( f e d c b a)
  34     cis=''4( d)  f=''16( e)    d( c)
  35     s4
  36
  37     c=''2(~c8 d16 c b8 a)
  38
  39     <c,=' g>4 ( f <g b>) f
  40     <c g>^( f <g b>) f
  41     <c g>_( f <g b>)
  42     <g b>_( g  <b d>)
  43     <g b>_( \stemDown g \stemNeutral  <b d>)
  44     c,='^( c'' c)
  45     c,,^( c'')
  46     c,,^( c')
  47     | b='2( a4) s4
  48     | b='4.( c8) s2
  49     | << c=''1_(
  50        { s2 \grace { b16[ c] } } >>
  51     \break
  52     b4)
  53     e=''4.( c8) s4
  54     | << { b='8[( c]) } \\
  55          { b='8[( c]) }>>
  56
  57
  58     s2.|
  59     e4( dis4)
  60     e4( dis4)
  61     g,='16( b d fis)
  62     \clef bass a,,=8[ e16(f] g[ a b d,)]  s4 | \break
  63     e=8[( f] g[ a b d,)]  s4 |
  64
  65     \clef treble
  66     \new Voice {
  67         \slurDown
  68         c''=''4(^"slurs forced down"  d, c') s4
  69         f=''2( d4 f | g c a f | d c f2 | f1) |
  70     }
  71
  72 %    \override Slur #'eccentricity = #-2
  73     c=''8 ( d[ b f d] a'[ c])
  74 }
  75