input/test/drarn.ly

   1 #(ly:set-option 'old-relative)
   2 \version "1.9.0"
   3 \header{texidoc="@cindex Drarn
   4 You can attach slurs and ties to noteheads.
   5 " }
   6
   7 \score {
   8   \context Staff \notes <
   9     \time 3/8
  10     \context Voice=one \relative c'' {
  11       \property Voice.Stem \set #'direction = #1
  12       \property Voice.Tie \set #'direction = #1
  13       \property Voice.Slur \set #'direction = #1
  14       \property Voice.Slur \set #'attachment = #'(head . head)
  15       c8~c(c-)
  16     }
  17     \context Voice=two \relative c'' {
  18       \property Voice.Stem \set #'direction = #-1
  19       \property Voice.Tie \set #'direction = #-1
  20       \property Voice.Slur \set #'direction = #-1
  21       \property Voice.Slur \set #'attachment = #'(head . head)
  22       a8(a-)-~a
  23     }
  24   >
  25   \paper { linewidth = 40*\staffspace
  26                 raggedright = ##t }
  27 }
  28