input/regression/collisions.ly

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