02-song2/parts/stick.ly

   1 stickIntroLeft = \relative c {
   2   \repeat unfold 2 {
   3     <b a' d>8 r16 <b a' d>8 r16
   4     <b gis' d'>4 b8 ~ <b gis' d'> b |
   5     <b g' d'>8 r16 <b g' d'>8 r16
   6     <b fis' d'>4 b8 ~ <b fis' d'>4  |
   7
   8     <b a' d>8 r16 <b a' d>8 r16
   9     <b gis' d'>4 b8 ~ <b gis' d'> b |
  10     <b g' d'>8 r16 <b g' d'>8 r16
  11     <b fis' d'>8 ~ <b fis' d'>2     |
  12   }
  13 }
  14
  15 stickIntroRight = \relative c' {
  16   %% TODO: make this solo more interesting
  17   \repeat unfold 2 {
  18     fis8. fis e4 r16 ais,16 b cis d gis, |
  19     e'8.  e   d4 r4.                     |
  20     fis8. fis e4 r4.                     |
  21     d8.   cis b4 r4.                     |
  22   }
  23 }
  24
  25 stickStanzaLeft = \relative c {
  26   \repeat unfold 2 {
  27     <b fis'>8 r16 <b fis'>8 r16
  28     <b fis'>4 <b fis'>8 r <b fis'>  |
  29     <b g'>8 r16 <b g'>8 r16
  30     <b fis'>4 <b fis'>8 ~ <b fis'>4 |
  31
  32     <b fis'>8 r16 <b fis'>8 r16
  33     <e b>4 <e b>8 r <b fis'> |
  34   } \alternative {
  35     { <b g'>8 r16 <b g'>8 r16  <b fis'>2 r8 |}
  36     %% TODO: find chords here
  37     { g r16 a8 r16 d8 ~ d2 |}
  38   }
  39 }
  40
  41 stickStanzaRight = \relative c' {
  42   \repeat unfold 2 {
  43     <a d>8 r16 <a d>8 r16
  44     <gis d'>4 r8 <gis d'> r |
  45     <d' g>8 r16 <d g>8 r16
  46     <d fis>4 r8 <d fis> r |
  47
  48     <a d>8 r16 <a d>8 r16
  49     <gis d'>4 r8 <gis d'> r |
  50     <d' g>8 r16 <d g>8 r16
  51     <d fis>4. r4 |
  52   }
  53 }
  54
  55 %% TODO
  56 stickBLeft = \transpose c d { \relative c {
  57   <b fis'>8 r16 <b fis'>8 r16
  58   <e b>4 <e b>8 r <e b> |
  59   <g b d'>8 r16 <g b d'>8 r16
  60   <d fis'>8 ~ <d fis'>2 |
  61
  62   <b fis'>8 r16 <b fis'>8 r16
  63   <e b>4 <e b>8 r <b fis'> |
  64   { g r16 a8 r16 d8 ~ d2 |}
  65 }}
  66
  67 stickBRight = \relative c' {
  68   <b e>8 r16 <b e>8 r16
  69   <ais e'>4 r8 <ais e'> r |
  70   a8. ~ <a e'>8 a16
  71   gis4 r8 <gis e'> r |
  72
  73   <b e>8 r16 <b e>8 r16
  74   <ais e'>4 r8 <ais e'> r |
  75   <e' a>8 r16 <e a>8 r16
  76   <e gis>4. r4 |
  77 }
  78
  79 stickTransitionLeft = \relative c {
  80   \repeat volta 2 {
  81     R1 | R1 | R1 | R1 |
  82     %% TODO: support chords
  83     %%<cis fis a>1 | <b e gis>1 |
  84     %%<a d fis>1   | <a cis fis>1 |
  85   }
  86   \repeat volta 4 {
  87     r16 <fis cis'>8 <e b'>16 <fis cis'>8 <e b'>16
  88     <fis cis'>8 <fis cis'>8 r16 r4           |
  89     r16 <fis cis'>8 <e b'>16 <fis cis'>8 <e b'>16
  90     <fis cis'>16 r16 <fis cis'>16 <e b'>4 r8 |
  91   }
  92 }
  93
  94 stickTransitionRight = \relative c' {
  95   \repeat volta 2 {
  96     <cis fis a>1 | <b e gis>1 |
  97     <a d fis>1   | <a cis fis>1 |
  98   }
  99   \repeat volta 4 { R1 | R1 }
 100 }
 101
 102
 103
 104 stick = \new PianoStaff <<
 105   \set PianoStaff.midiInstrument = #"clav"
 106   \set PianoStaff.pedalSustainStyle = #'bracket
 107
 108   \new Staff \relative c' {
 109     \set Staff.midiPanPosition = #-0.5
 110     \key b \minor
 111     \clef "treble_8"
 112
 113     %% intro
 114     \time 4/4
 115     \stickIntroRight
 116     \stickStanzaRight
 117
 118     \key e \major
 119     \stickBRight
 120
 121     \key b \minor
 122     \stickStanzaRight
 123
 124     \key e \major
 125     \stickBRight
 126
 127     \key fis \minor
 128     \stickTransitionRight
 129   }
 130
 131   %% staff for left hand side
 132   \new Staff \relative c  {
 133     \set Staff.midiPanPosition = #0.5
 134     \key b \minor
 135     \clef "bass"
 136
 137     %% intro
 138     \time 4/4
 139     \stickIntroLeft
 140     \stickStanzaLeft
 141
 142     \key e \major
 143     \stickBLeft
 144
 145     \key b \minor
 146     \stickStanzaLeft
 147
 148     \key e \major
 149     \stickBLeft
 150
 151     \key fis \minor
 152     \stickTransitionLeft
 153   }
 154 >>
 155