input/regression/collision-heads.ly

   1 #(ly:set-option 'old-relative)
   2 \version "1.9.1"
   3 \header {
   4     texidoc =
   5
   6     "If @code{merge-differently-headed}, then
   7 open note heads may be merged with black noteheads, but only
   8 if the black note heads are from 8th or shorter notes.
   9 "
  10
  11 }
  12     \paper { raggedright= ##t }
  13
  14
  15 \score { \notes \context Staff\relative c''<
  16 \context Voice = VA {
  17     \voiceOne
  18     c2 c8 c4.
  19
  20     \property Staff.NoteCollision \override #'merge-differently-headed = ##t
  21     c2
  22     c8 c4.
  23     c2
  24 }
  25 \context Voice = VB {
  26     \voiceTwo
  27     c8 c4.
  28     c2
  29     c8 c4.
  30     c2
  31     c4
  32 }
  33     >
  34          }