input/collisions.ly

   1 \header{
   2 filename =       "collisions.ly";
   3 description =    "random counterpoint to test collisions";
   4 enteredby =      "HWN,JCN";
   5 copyright =      "public domain";
   6 Tested =         "test the Collision resolution ";
   7 }
   8 \version "0.1.9";
   9
  10
  11
  12 two_voice = \melodic
  13         \multi 2 <
  14           { \stemdown \octave c';
  15                 c4 d e f g2~  g4 a [c8 d e f] c2| }
  16           { \stemup
  17                 g4 f e g ~ g2 g2  c4 g4 g2 }
  18
  19         >
  20
  21 two_voice_steminvert = \melodic
  22         \multi 2 <
  23           {
  24                 \octave c'; \stemup
  25 % the f and g on 4th beat are exceptionally ugh.
  26                 c4 d e f g2 g4 a | }
  27           { \stemdown
  28                 g4 f e g  g2 g2 }
  29
  30         >
  31
  32 three_voice = \melodic
  33         \multi 2 <
  34         { \stemup
  35                 g4 f e f g a g2 }
  36         { \stemup \property Voice.hshift = 1
  37                 e2  e2  e2  e2 }
  38         { \stemdown
  39                 c4 d e d c d es }
  40         >
  41
  42
  43 rests = \melodic
  44         \multi 2 <
  45         { \stemup
  46                 | r8 r r r  r r r r
  47                 [c' b a g] [f e d c]
  48         }
  49         { \stemdown
  50                 [c8 d e f] [g a b c']
  51                 r r r r r r r r
  52         }
  53         >
  54
  55 restsII = \melodic {
  56         \octave c';
  57         \multi 2 <
  58                 { \stemup  g' f' e' d' c' b a g f e d c }
  59                 { \stemdown r  r  r  r  r  r r r r r r r }
  60         >
  61         \multi 2 <
  62                 { \stemup  r r r r r r r r  r  r  r  r }
  63                 { \stemdown c d e f g a b c' d' e' f' g' }
  64         >
  65         r8 r4
  66         \multi 2 <  r8 r8 >
  67         \multi 2 <  r8 r8 r8 >
  68         \multi 2 <  r8 r8 r8 r8 >
  69         \multi 2 <  r r >
  70         \multi 2 <  r r r >
  71         \stemup
  72         [c''8 r8 c''8 c''8]
  73         [c8 r8 c8 c8]
  74         \stemdown
  75         [c8 r8 c8 c8]
  76         [c''8 r8 c''8 c''8]
  77 }
  78
  79 \score{
  80         {  \two_voice
  81         \two_voice_steminvert
  82         \three_voice
  83         \rests
  84         % UGH ! bug!
  85         %\restsII
  86         }
  87
  88
  89
  90 %       \midi { \tempo 4:80 }
  91 }