+\version "2.19.21"
\header{
-texidoc="
-Normal collisions. We have support for polyphony, where the
-middle voices are horizontally shifted.
-";
-filename = "collisions.ly";
-description = "random counterpoint to test collisions";
-enteredby = "HWN,JCN";
-copyright = "public domain";
-Tested = "test the Collision resolution ";
+ texidoc="
+In addition to normal collision rules, there is support for polyphony,
+where the collisions are avoided by shifting middle voices horizontally.
+"
}
-twovoice = \context Staff \notes <
- \context Voice=i { \stemDown c4 d e f g2~ g4 a [c8 d e f] c2| }
- \context Voice=ii { \stemUp g4 f e g ~ g2 g2 c4 g4 g2 }
->
+twovoice =
+\relative \context Staff <<
+ { g4 f f e e d d c }
+ \\ { c4 c d d e e f f }
+>>
-twovoicesteminvert = \context Staff \notes <
- % the f and g on 4th beat are exceptionally ugh.
- \context Voice=i { \stemUp c4 d e f g2 g4 a | }
- \context Voice=ii { \stemDown g4 f e g g2 g2 }
->
+twovoicechords = \context Staff <<
+ \relative {
+ e'4 d c b a g f
+ }\\
+ \relative {
+ <a c>4 <a c>4 <a c>4 <a c>4 <a c>
+ <a c> <a c>
+ }
+>>
-threevoice = \context Staff \notes <
- \context Voice=i { \stemUp g4 f e f g a g2 }
- \context Voice=ii { \stemUp \property Voice.NoteColumn \override #'horizontal-shift = #1
- e2 e2 e2 e2 }
- \context Voice=iii { \stemDown c4 d e d c d es }
->
-chordstest = \context Staff \notes <
- \context Voice = i \relative c {
- \stemUp e4 dis c f g f a b b
- }
- \context Voice = ii \relative c {
- \stemDown <a4 c> <a4 c> <a4 e'> <a4 c> <e' a> <e a> <e a> <a c> <a d>
- }
->
+threevoice = \context Staff <<
+ { g4 f e f g a g2 } \\
+ { c4 d e d c d es } \\
+ { e4 e e e e e e e }
+>>
-hairyChord = \context Staff \notes\relative c' <
- \context Voice=one {
- \property Voice.NoteColumn \override #'horizontal-shift = #0
- \stemUp
- e4
- }
-
- \context Voice=two {
- \stemUp
- \property Voice.NoteColumn \override #'horizontal-shift = #1
- cis
- }
-
- \context Voice=three {
- \property Voice.NoteColumn \override #'horizontal-shift = #2
+hairyChord = \context Staff \relative
+<<
+ e'' \\
+ fis, \\
+ cis' \\
+ \\
+ ais
+>>
- \stemUp
- ais
- }
-
- \context Voice=four {
- \stemDown
- \property Voice.NoteColumn \override #'horizontal-shift = #1
+minims = <<
+ { e''2 e'' e' d' } \\
+ c'' \\
+ { c' c' c' c' } \\
+ g' >>
- fis
- }
->
+semibreves = <<
+ { e''1 e'' e' d' } \\
+ c'' \\
+ { c' c' c' c' } \\
+ g' >>
+sequence = <<
+ \new Voice { \voiceOne g''1 e''2 d'' e'' d'' }
+ \new Voice { \voiceThree c''2 b' a'1 b' }
+ \new Voice { \voiceFour g'1 e'2 f'2 a'1 }
+ \new Voice { \voiceTwo c'1 c'2 d' e'2 d' }
+>>
+
+ {
+ \transpose c c' {
+ \twovoice
+ \twovoicechords
+ \threevoice
+ }
+ \hairyChord
+ \break
+ \minims \bar "||"
+ \semibreves \bar "||"
+ \sequence
+ }
-\score{
- \notes \transpose c'' { \twovoice
- \twovoicesteminvert
- \threevoice \break
- \chordstest
- \hairyChord
- }
-
-% \midi { \tempo 4:80 }
-}