input/test/slur-ugly.ly

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