input/test/slur-ugly.ly

   1 \version "1.7.3"
   2
   3 \header {
   4 texidoc="You can get ugly slurs, if you want.
   5 "
   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     linewidth = -1.
  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