input/test/slur-ugly.ly

   1
   2 \header {
   3 texidoc="You can get ugly slurs, if you want.
   4 ";
   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     linewidth = -1.;
  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         = #(make-moment 1 2)
  29     }
  30     \translator {
  31       \PianoStaffContext
  32       VerticalAlignment \override #'threshold = #'(5 . 5)
  33     }
  34   }
  35 }
  36