white-noise: Add shifter part.
[music/pretentious.git] / 04-white-noise / parts / stick.ly
index 57344d03b203b470a970b883b9239026faf485da..84f1d89e49693a3337e7ed49dfb53b7738facd36 100644 (file)
@@ -1,22 +1,4 @@
-%% TODO
-stickThunder = \relative c'' {
-  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
-  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
-  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
-  d-. d-. d-. d-. d-. d-. d-. d-.            |
-}
-
-%% TODO
-stickTheme = \relative c {
-  fis'4. cis a' cis8*7 d2 
-  gis,4. e d' cis8*7 a4 gis
-  fis4. d gis a8*9 r4
-  fis4. d gis e8*5 gis4 a4. r8
-}
-
-stick = {
-  \set Staff.midiInstrument = #"electric guitar (jazz)"
-  \key fis \minor
+stickIntro = {
   \time 4/4 { R1*8 }
   %% silly but I have to mimick the repeats for the other voices to
   %% make the notes line up.
@@ -28,29 +10,174 @@ stick = {
     {r2. r2 | }
     {r2. r2 | }
   }
+}
 
-  \whiteNoise
-  \stickThunder
-  \repeat volta 2 \stickTheme
-  \stickThunder
-  \repeat volta 2 \stickTheme
+%% TODO
+stickThunderLeft = \relative c {
+  fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
+  fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
+  fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
+  d-. d-. d-. d-. d-. d-. d-. d-.            |
+}
+
+%% TODO
+stickThunderRight = \relative c'' {
+  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
+  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
+  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
+  d-. d-. d-. d-. d-. d-. d-. d-.            |
+}
+
+%% TODO
+stickThemeLeft = \relative c {
+  r2. r2 | r2. r2 |
+  r2. r2 | r2. r2 |
+  r2. r2 | r2. r2 |
+  r2. r2 | r2. r2 |
+}
+%% TODO
+stickThemeRight = \relative c {
+  fis'4. cis a'  cis8 ~ | cis2. d2       |
+  gis,4. e   d'  cis8 ~ | cis2. a4 gis   |
+  fis4.  d   gis a8   ~ | a2.  ~ a4. r8  |
+  fis4.  d   gis e8   ~ | e2 gis4 a4. r8 |
+}
 
+%% TODO
+stickBeautyBLeft = \relative c {
+  r1 | r1 | r1 | r1 |
+}
+stickBeautyBRight = \relative c {
   %% TODO: this is terrible and I would never play this
-  \relative c' {
-    <d a >2 
-    <cis fis, >2 <gis' fis, >2 
-    <a e, >2 d,1 cis
-
-    <d a >2 
-    <cis fis, >2 <gis' fis, >2 
-    <a e, >2 d,1 cis
-  }
+  <d a >2       <cis fis, >2 |
+  <gis' fis, >2 <a e, >2     |
+  d,1 | cis |
+}
 
-  %% TODO: move to keyboard?
-  \repeat unfold 4 \relative c'' {
-    d'8 a' d a  e' a, d e,,
-    fis, cis' gis' a gis cis, fis, e
-    d' a' d a  e' a, d e,,
-    fis cis' gis' a gis cis, fis, e
-  }
+%% TODO
+stickSoloLeft = \relative c {
+  r1 | r1 |
+  r1 | r1 |
+  r1 | r1 |
+  r1 | r1 |
+}
+
+stickSoloRight = \relative c' {
+  \grace{a16 d} fis2 r8 gis8 a \grace{fis16} gis8 ~ |
+  gis4 e4 cis8 fis gis fis ~ |
+  fis4. r4 e8 fis b, |
+  %% TODO: bend isn't working
+  %%b\bendAfter #+2 b
+  r1 | r1 | r1 | r1 | r1 |
+
+  % %% repetition
+  % r1 | r1 |
+  % r1 | r1 |
+  % r1 | r1 |
+  % r1 | r1 |
+}
+
+%% TODO
+stickTransitionLeft = \relative fis,, {
+  \time 3/4
+  fis'8. cis d gis, | a8 gis fis r4. |
+}
+
+%% TODO
+stickTransitionRight = \relative fis {
+  \time 3/4
+  fis'8. cis d gis, | a8 gis fis r4. |
+}
+
+%% TODO
+stickFastLeft = \relative fis,, {
+  \time 4/4
+  r1 | r1 | r1 | r1 | r1 | r1 | r1 | r1 |
+}
+
+%% TODO
+stickFastRight = \relative fis {
+  \time 4/4
+  r1 | r1 | r1 | r1 | r1 | r1 | r1 | r1 |
+}
+
+stickElevenLeft = \relative c,, {
+  \key e \minor
+  \time 11/8
+  \repeat unfold 3 { e'4 e,8 e e r e r e e r |}
+  r f b g' ges c,4 f8 b, e-. ais,
+}
+
+stickElevenRight = \relative c' {
+  \key e \minor
+  \time 11/8
+  \repeat unfold 3 { <dis g b>4 r8 r r r r r r r r |}
+  r8 r4 r4 r4 r4 r4
+}
+
+%% TODO
+stickShifterLeft = \relative c {
+}
+
+%% TODO
+stickShifterRight = \relative c {
+  \time 4/4
+  r8 e8 g' e, g' e, g' e,         |
+  g' fis e, fis' d, fis'4-. r8    |
+  r8 e,8 g' e, g' e, g' e,        |
+  \time 7/8
+  g' fis e, fis' d, fis'4-.       |
+
+  \time 4/4
+  r8 fis, a' fis, a' fis, a' fis, |
+  a' gis e, gis' e, gis'4-. r8    |
+  r8 fis, a' fis, a' fis, a' fis, |
+  \time 7/8
+  a' gis e, gis' e, gis'4-.       |
 }
+
+
+stickLeft = {
+  \key fis \minor
+  \clef "bass_8"
+  \stickIntro
+  \whiteNoise
+
+  \time 4/4                 \stickThunderLeft
+  \time 5/4 \repeat volta 2 \stickThemeLeft
+  \time 4/4                 \stickThunderLeft
+
+  \time 4/4 \repeat volta 2 \stickBeautyBLeft
+  \stickSoloLeft
+  \stickTransitionLeft
+  \stickFastLeft
+  \repeat volta 2 \stickElevenLeft
+
+  %% TODO: short transition
+  \repeat unfold 2 \stickShifterLeft
+}
+
+stickRight = {
+  \key fis \minor
+  \stickIntro
+  \whiteNoise
+
+  \time 4/4                 \stickThunderRight
+  \time 5/4 \repeat volta 2 \stickThemeRight
+  \time 4/4                 \stickThunderRight
+
+  \time 4/4 \repeat volta 2 \stickBeautyBRight
+  \stickSoloRight
+  \stickTransitionRight
+  \stickFastRight
+  \repeat volta 2 \stickElevenRight
+  \repeat unfold 2 \stickShifterRight
+}
+
+stick = \new PianoStaff <<
+  \set PianoStaff.midiInstrument = #"electric guitar (jazz)"
+  \set PianoStaff.pedalSustainStyle = #'bracket
+
+  \new Staff \stickRight
+  \new Staff \stickLeft
+>>