input/test/slur-ugly.ly

   1
   2 \version "2.3.4"
   3
   4 \header { texidoc="@cindex Slur Ugly
   5 Strange slurs can be produced by setting properties by hand. "
   6 }
   7
   8 baseWalk =  \relative c {
   9   d,8( a' d f a d f d a f d  a)
  10 }
  11
  12 \score {
  13    \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     \context {
  25       \Voice
  26       \override Slur #'beautiful = #5.0
  27       \override Slur #'direction = #1
  28       \override Stem #'direction = #-1
  29     }
  30     \context {
  31       \PianoStaff
  32       \override VerticalAlignment #'threshold = #'(5 . 5)
  33     }
  34   }
  35 }
  36
  37