input/features/slur-ugly.ly

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