04-white-noise/music/stick.ly

   1 \include "../stafftab.ly"
   2
   3 stickIntro = {
   4   \time 4/4 { R1*8 }
   5   %% silly but I have to mimick the repeats for the other voices to
   6   %% make the notes line up.
   7   \time 5/4 \repeat volta 2 {
   8     R4*35
   9   }
  10   \alternative {
  11     {R4*5 | }
  12     {\time 2/4 R4*2 | }
  13   }
  14 }
  15
  16 %% TODO
  17 stickThunderLeft = \relative c {
  18   fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
  19   fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
  20   fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
  21   d-. d-. d-. d-. d-. d-. d-. d-.            |
  22 }
  23
  24 %% TODO
  25 stickThunderRight = \relative c'' {
  26   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  27   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  28   a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
  29   d-. d-. d-. d-. d-. d-. d-. d-.            |
  30 }
  31
  32 stickThemeLeft = \relative c {
  33   fis'4.\10-1 cis\9-3 r2 | r2. r2 |
  34   gis'4.\10-1  e\9-4   r2 | r2. r2 |
  35   fis4.\10-1  d\9-4   r2 | r2. r2 |
  36   fis4.\10-1  d\9-4   r2 | r2. r2 |
  37 }
  38
  39 stickThemeRight = \relative c' {
  40   s4. s a'\4-3 cis8\3-1 ~ | cis2. d2\3-2 |
  41   s4. s d\3-1  cis8\4-3 ~ | cis2. a4\4-1 gis\4-1 |
  42   s4. s gis\4-1 a8\4-2  ~ | a2.  ~ a4. r8  |
  43   s4. s gis\4-1 e8\5-3  ~ | e2 gis4\4-1 a4.\4-2 r8 |
  44 }
  45
  46 %% TODO
  47 stickBeautyLeft = \relative c {
  48   \repeat volta 2 {
  49     R1*4
  50   }
  51   \repeat unfold 2 {
  52     R1*4
  53   }
  54 }
  55 stickBeautyRight = \relative c'' {
  56   \repeat volta 2 {
  57     %% TODO: too robotic
  58     %% fis8 a d   e, a cis a e    |
  59     %% gis b e    gis, b fis' e b |
  60     %% fis a d a  fis a d a  |
  61     %% gis a cis fis, ~ fis2 |
  62     r2 d8 cis d a' ~ | a gis ~ gis cis, ~ cis b ~ b4 |
  63     a2 r8 b8 ~ b4 | fis1 |
  64   }
  65
  66   %% quiet!
  67   \repeat unfold 2 {
  68     <a\4-1 cis\3-3>4. b a4 | <gis\4-1 b\3-3>4. a <e\4-1 gis\3-3>4 |
  69     <fis\4-1 a\3-3>2 ~ q4 <e\4-1 gis\3-3>4 | <fis\4-1 a\3-3>1 |
  70   }
  71 }
  72
  73 %% TODO
  74 stickSoloLeft = \relative c {
  75   r1 | r1 |
  76   r1 | r1 |
  77   r1 | r1 |
  78   r1 | r1 |
  79 }
  80
  81 stickSoloRight = \relative c'' {
  82   \grace{a16 d} fis2 r8 gis8 a \grace{fis16} gis8 ~ |
  83   gis4 e4 cis8 fis gis fis ~ |
  84   fis4. r4 e8\2-1 fis\2-2 \grace{b,16} cis8\3-1 ~ |
  85   %% bending isn't working in MIDI :(
  86   %%b\bendAfter #+2 b
  87   cis b\3-1 a16\4-3 gis\4-2 fis\4-1 e\5-3 fis8\4-1
  88   a16\4-3 b\3-1 cis\3-2 d\3-3 e\2-1 f\2-2 |
  89   fis4.\2-3 r4 gis,8\4-2 a\4-3 e'\2-1 ~ |
  90   e fis4\2-3 cis4.\3-2 r8 b16\3-1 cis\3-2 |
  91
  92   d8\3-3
  93   \tuplet 3/2 {
  94     \change Staff = "stick left"
  95     gis,16\10-1 b\10-4
  96     \change Staff = "stick right"
  97     e\3-3
  98   } gis16\2-2 r16
  99   \tuplet 3/2 {
 100     \change Staff = "stick left"
 101     a,16\10-1 cis\10-4
 102     \change Staff = "stick right"
 103     fis\3-3
 104   } a4\2-1 b8\2-2
 105   \tuplet 3/2 {
 106     %% TODO: this is the left hand on the right side
 107     cis,16\3-1 fis\2-2
 108     %% back to right hand
 109     a\2-2
 110   } | cis4.\1-1 cis8\1-1 fis2\1-3 |
 111 }
 112
 113 stickTransitionLeft = \relative fis,, {
 114   \time 4/4 R1 |
 115   \time 2/4 R2 |
 116 }
 117
 118 %% TODO: played with left hand!
 119 stickTransitionRight = \relative fis' {
 120   \time 4/4
 121   fis8.\3-1 cis\4-2 d\4-3 gis,\5-2 a8\5-3 gis\5-2 |
 122   \time 2/4
 123   fis\5-1 r4. |
 124 }
 125
 126 stickFastLeft = \relative fis' {
 127   \time 4/4
 128   %% TODO: this doesn't render well
 129   \change Staff = "stick right"
 130   <a\2 cis\1>8_\markup {\italic { both hands on melody side }} s s s <a\2 cis\1> s s s |
 131   <b\2 e\1> s s s <b\2 e\1> s s s |
 132   \change Staff = "stick left"
 133   <d,\9-4 fis\10-1> s s s <d\9-4 fis\10-1> s s s |
 134   <b\9-1 fis\10-1>8 q q q q q r4 |
 135
 136   \change Staff = "stick right"
 137   <a'\2 cis\1>8 s s s <a\2 cis\1> s s s |
 138   <b\2 e\1> s s s <b\2 e\1> s s s |
 139   \change Staff = "stick left"
 140   <d,\9-4 fis\10-1> s s s <d\9-4 fis\10-1> s s s |
 141   <b\9-1 fis\10-1>8 q q q <cis\9-1 gis\10-1>4-. r |
 142 }
 143
 144 stickFastRight = \relative fis' {
 145   \time 4/4
 146   r8 fis16\5-3 a\4-2 cis8\3-1-. <fis,\5-3 a\4-2 cis\3-1>-. r fis\5-3 <a\4-2 cis\3-1> r |
 147   r8 gis16\4-3 cis\3-2 e8\2-1-. <gis,\4-3 cis\3-2 e\2-1>-. r e'\2-1 fis4\2-3 |
 148   r8 r16 fis,\4-4 a8\3-2 <fis\4-4 a\3-2 cis\2-1>8 ~ q8 d'8\2-2 cis4\2-1 |
 149   <gis\3-1 d'\2-2>8 q q q <gis\3-1 e'\2-3> q <gis\3-2 c\2-1>4 |
 150
 151   r8 fis16\5-3 a\4-2 cis8\3-1-. <fis,\5-3 a\4-2 cis\3-1>-. r fis\5-3 <a\4-2 cis\3-1> r |
 152   r8 gis16\4-3 cis\3-2 e8\2-1-. <gis,\4-3 cis\3-2 e\2-1>-. r e'\2-1 fis4\2-3 |
 153   r8 r16 fis,\4-4 a8\3-2 <fis\4-4 a\3-2 cis\2-1>8 ~ q8 d'8\2-2 cis4\2-1 |
 154   <gis\3-1 d'\2-2>8 q q q <eis\4-3 gis\3-1 cis\2-1>4-. r |
 155 }
 156
 157 %% TODO: rhythm is wrong
 158 stickTotoLeft = \relative c {
 159   <fis a'>1 | <e gis'> |
 160   <fis a'>1 | <e gis'>1 |
 161 }
 162
 163 %% TODO: fingering
 164 stickTotoRight = \relative fis'' {
 165   fis8 cis4 a   gis8 a cis |
 166   b e4 e, fis8 gis a |
 167   fis4 a'8 gis fis cis4 e8 |
 168   r1 |
 169 }
 170
 171 stickShifterLeft = \relative c {
 172   \time 4/4
 173   e8 g' e, g' e, g' e, <e g'> |
 174   <d fis'> r <d fis'> r <d fis'> r4. |
 175   e8 g' e, g' e, g' e, <e g'> |
 176   \time 2/4
 177   <d fis'> r <d fis'> r |
 178
 179   \time 4/4
 180   fis8 a' fis, a' fis, a' fis, <fis a'> |
 181   <e gis'> r <e gis'> r <e gis'> r4.   |
 182   fis8 a' fis, a' fis, a' fis, <fis a'> |
 183   \time 2/4
 184   <e gis'> r <e gis'> r |
 185
 186   \time 4/4
 187   e8 g' e, g' e, g' e, <e g'> |
 188   <d fis'> r <d fis'> r <d fis'> r4. |
 189   e8 g' e, g' e, g' e, <e g'> |
 190   \time 2/4
 191   <d fis'> r <d fis'> r |
 192
 193   \time 4/4
 194   fis8 a' fis, a' fis, a' fis, <fis a'> |
 195   <e gis'> r <e gis'> r <e gis'> r4.   |
 196   fis8 a' fis, a' fis, a' fis, <fis a'> |
 197   <e gis'> r <e gis'> r r2 |
 198 }
 199
 200 %% TODO
 201 stickShifterRight = \relative c {
 202   \time 4/4 R1*3
 203   \time 2/4 R4*2
 204   \time 4/4 R1*3
 205   \time 2/4 R4*2
 206
 207   \time 4/4 R1*3
 208   \time 2/4 R4*2
 209   \time 4/4 R1*3
 210   \time 4/4 R1
 211 }
 212
 213
 214 stickLeft = {
 215   \key fis \minor
 216   \clef "bass"
 217   \stickIntro
 218   \time 4/4 r1
 219   \whiteNoise
 220
 221   \time 4/4                 \stickThunderLeft
 222   \time 5/4 \repeat volta 2 \stickThemeLeft
 223   \time 4/4                 \stickThunderLeft
 224
 225   \time 4/4 \stickBeautyLeft
 226   \stickSoloLeft
 227   \stickTransitionLeft
 228   \stickFastLeft
 229   \repeat volta 2 \stickTotoLeft
 230   \transpose c d { \stickTotoLeft }
 231   \stickTotoLeft
 232   \transpose c d {
 233     \stickShifterLeft
 234   }
 235 }
 236
 237 stickRight = {
 238   \key fis \minor
 239   \stickIntro
 240   \time 4/4 R1
 241   \whiteNoise
 242
 243   \time 4/4                 \stickThunderRight
 244   \time 5/4 \repeat volta 2 \stickThemeRight
 245   \time 4/4                 \stickThunderRight
 246
 247   \time 4/4 \stickBeautyRight
 248   \stickSoloRight
 249   \stickTransitionRight
 250   \stickFastRight
 251   \repeat volta 2 \stickTotoRight
 252   \transpose c d { \stickTotoRight }
 253   \stickTotoRight
 254   \transpose c d {
 255     \stickShifterRight
 256   }
 257 }
 258
 259 stick = <<
 260   \set PianoStaff.midiInstrument = #"electric guitar (jazz)"
 261   \set PianoStaff.pedalSustainStyle = #'bracket
 262
 263   \new StaffTab = "stick right" {
 264     \set Staff.stringTunings = #alto-stick-bobs-expanded-tuning
 265     \stickRight
 266   }
 267   \new StaffTab = "stick left" {
 268     \set Staff.stringTunings = #alto-stick-bobs-expanded-tuning
 269     \stickLeft
 270   }
 271 >>