input/test/slur-ugly.ly

   1
   2 \version "2.1.7"
   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       \autochange Staff \context Voice \baseWalk
  19     >>
  20   >>
  21   \paper {
  22     raggedright = ##t
  23     \translator {
  24       \VoiceContext
  25       Slur \override #'beautiful = #5.0
  26       Slur \override #'direction = #1
  27       Stem \override #'direction = #-1
  28       autoBeamSettings \override #'(end * * * *)
  29         = #(ly:make-moment 1 2)
  30     }
  31     \translator {
  32       \PianoStaffContext
  33       VerticalAlignment \override #'threshold = #'(5 . 5)
  34     }
  35   }
  36 }
  37
  38