input/test/slur-ugly.ly

   1
   2 \version "2.1.23"
   3
   4 \header { texidoc="@cindex Slur Ugly
   5 You can get ugly slurs, if you want. "
   6 }
   7
   8 baseWalk = \notes \relative c {
   9   d,8( a' d f a d f d a f d  a)
  10 }
  11
  12 \score {
  13   \notes \context PianoStaff <<
  14     \time 6/4
  15     \context Staff=up { s1 * 6/4 }
  16     \context Staff=down <<
  17       \clef bass
  18       #(override-auto-beam-setting '(end * * * *)  1 2 'Score)
  19       \autochange  \context Voice \baseWalk
  20     >>
  21   >>
  22   \paper {
  23     raggedright = ##t
  24     \translator {
  25       \VoiceContext
  26       \override Slur #'beautiful = #5.0
  27       \override Slur #'direction = #1
  28       \override Stem #'direction = #-1
  29     }
  30     \translator {
  31       \PianoStaffContext
  32       \override VerticalAlignment #'threshold = #'(5 . 5)
  33     }
  34   }
  35 }
  36
  37