input/regression/collisions.ly

   1 \header{
   2 texidoc="
   3 Normal collisions. We have support for polyphony, where the
   4 middle voices are horizontally shifted.
   5 ";
   6 filename =       "collisions.ly";
   7 description =    "random counterpoint to test collisions";
   8 enteredby =      "HWN,JCN";
   9 copyright =      "public domain";
  10 Tested =         "test the Collision resolution ";
  11 }
  12 \version "1.3.117";
  13
  14 twovoice =  \context Staff \notes <
  15         \context Voice=i { \stemDown c4 d e f g2~  g4 a [c8 d e f] c2| }
  16         \context Voice=ii { \stemUp g4 f e g ~ g2 g2  c4 g4 g2 }
  17 >
  18
  19 twovoicesteminvert =  \context Staff \notes <
  20         % the f and g on 4th beat are exceptionally ugh.
  21         \context Voice=i { \stemUp c4 d e f g2 g4 a | }
  22         \context Voice=ii { \stemDown g4 f e g  g2 g2 }
  23 >
  24
  25 threevoice =  \context Staff \notes <
  26         \context Voice=i { \stemUp g4 f e f g a g2 }
  27         \context Voice=ii { \stemUp \property Voice.NoteColumn \override #'horizontal-shift = #1
  28                 e2  e2  e2  e2 }
  29         \context Voice=iii { \stemDown c4 d e d c d es }
  30 >
  31
  32 chordstest =  \context Staff \notes <
  33         \context Voice = i \relative c {
  34                 \stemUp e4 dis c f g f a b b
  35         }
  36         \context Voice = ii \relative c {
  37                 \stemDown <a4 c> <a4 c> <a4 e'> <a4 c> <e' a> <e a> <e a> <a c> <a d>
  38         }
  39 >
  40
  41 hairyChord =  \context Staff \notes\relative c' <
  42      \context Voice=one {
  43  \property Voice.NoteColumn \override #'horizontal-shift = #0
  44         \stemUp
  45         e4
  46      }
  47
  48      \context Voice=two {
  49         \stemUp
  50  \property Voice.NoteColumn \override #'horizontal-shift = #1
  51         cis
  52      }
  53
  54      \context Voice=three {
  55  \property Voice.NoteColumn \override #'horizontal-shift = #2
  56
  57         \stemUp
  58         ais
  59      }
  60
  61      \context Voice=four {
  62         \stemDown
  63  \property Voice.NoteColumn \override #'horizontal-shift = #1
  64
  65         fis
  66      }
  67 >
  68
  69
  70 \score{
  71         \notes \transpose c'' {  \twovoice
  72         \twovoicesteminvert
  73         \threevoice \break
  74          \chordstest
  75          \hairyChord
  76         }
  77
  78 %       \midi { \tempo 4:80 }
  79 }