summaryrefslogtreecommitdiff
path: root/04-white-noise/parts/stick.ly
blob: d5b2a14edc8fc4462f2d0805019a3b23d887ff9e (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
stickIntro = {
  \time 4/4 { R1*8 }
  %% silly but I have to mimick the repeats for the other voices to
  %% make the notes line up.
  \time 5/4 \repeat volta 2 {
    r2. r2 | r2. r2 | r2. r2 | r2. r2 |
    r2. r2 | r2. r2 | r2. r2 |
  }
  \alternative {
    {r2. r2 | }
    {r2. r2 | }
  }
}

%% 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 |
}

stickLeft = {
  \key fis \minor
  \clef "bass_8"
  \stickIntro
  \whiteNoise

  \stickThunderLeft
  \repeat volta 2 \stickThemeLeft
  \stickThunderLeft
  \repeat volta 2 \stickThemeLeft
}

stickRight = {
  \key fis \minor
  \stickIntro
  \whiteNoise

  \stickThunderRight
  \repeat volta 2 \stickThemeRight
  \stickThunderRight
  \repeat volta 2 \stickThemeRight

  %% TODO: this is terrible and I would never play this
  \repeat volta 2 \relative c' {
    <d a >2 
    <cis fis, >2 <gis' fis, >2 
    <a e, >2 d,1 cis
  }
}

stick = \new PianoStaff <<
  \set PianoStaff.midiInstrument = #"electric guitar (jazz)"
  \set PianoStaff.pedalSustainStyle = #'bracket

  \new Staff \stickRight
  \new Staff \stickLeft
>>