input/collisions.ly

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