summaryrefslogtreecommitdiff
path: root/04-white-noise.ly
blob: 2a7e7503c9d11574d68e265ffadcce2ba8fc2e59 (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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
\version "2.19.27"

\header {
  title = "White Noise"
  composer = "The very pretentious elephlies"
  arranger = "Ricardo Wurmus"
  copyright = "2002--2015 Ricardo Wurmus"
}


bassBeautyA = \relative fis,, {
  d4. fis ~ fis4 | e4. gis a4 |
  d,4. ~ d cis4  | fis1       |
}

bassBeautyB = \relative fis,, {
  d4. fis fis4 | e4. gis a4                  |
  d,4. d cis4  | fis8 fis fis fis cis' b a b |
}

bassThemeWithoutEnd = \relative fis,, {
  fis8 fis r4 e'8 fis fis, r4 fis8 | r8 fis r4 a'8 b fis, r8 a4    |
  fis8 fis r4 e'8 fis fis, r4 fis8 | r8 fis r4 e'8 fis fis, e e r8 |
  b8 b     r4 e'8 fis b,,  r4 b8   | r8 b   r4 a''8 b b,, r8 cis4  |
  d8 d     r4 e'8 fis d    r4 d,8  |
}

bassTheme = \relative fis,, {
  \bassThemeWithoutEnd
  r8 d   r4 d'8 d d, e e r8 |
}

bassThunder = \relative fis,, {
  fis8. e16 fis8. e16 fis8. e16 fis8 e8 |
  fis8. e16 fis8. e16 fis8. e16 fis8 e8 |
  fis8. e16 fis8. e16 fis8. e16 fis8 e8 |
  d8-. d-. d-. d-. d-. d-. d-. d-.      |
}

bass = {
  \clef "bass_8"
  \key fis \minor

  \relative fis,, {
    \time 4/4 r1*4 \bassBeautyA

    \time 5/4 \repeat volta 2 \bassThemeWithoutEnd
    \alternative {
      { r8 d   r4 d'8 d d, e e r8 | }
      { r8 d   r4 fis4 ~ fis2     | }
    }
    r1*5 % TODO: white noise, how long?

    \time 4/4                 \bassThunder

    \time 5/4 \repeat volta 2 \bassTheme
    \time 4/4                 \bassThunder

    \time 5/4 \repeat volta 2 \bassTheme
    \time 4/4 \repeat volta 2 \bassBeautyB

    %% TODO
    %% solo
    %% sweet and quiet
    %% solo


    %% april?
    d,2 r8 e4. | fis2. r4 |
    d2 e fis  r8 gis a cis
    d2 r8 e4 b8 cis2. r4 b2 

    r8 cis4 e,8 fis1
    d2 r8 e4. fis2. r4 fis8 e r4 e2 fis r8 gis a cis d2 r8 e4 b8 cis2. r4 b2 r8 cis4 e,8 fis1 fis8 r8*5


    %{
    %% fast and weird
    fis8 e fis a4 gis8 fis e 
    cis cis cis gis' cis b a16 b a8 
    d, d d d d d d d 
    cis f b fis' b a gis a 
    fis cis fis b4 a8 gis a 
    cis b a b a gis fis gis 
    d b a gis fis gis a b 
    gis gis gis gis cis cis,4*80/960 r4*400/960 cis4
    %}
  }
}


keysIntro = <<
  \chords {
    d2 fis:m e1
    d1 fis:m
  }
  \relative c'' {
    r1 r1 r1 r1
  }
>>

keysPad = <<
  \chords {
    fis4*10:m
    e4*10
    b4*10:m
    d4*10
  }
  \relative c'' {
    <cis fis a>2. ~ <cis fis a>2 ~ <cis fis a>2. ~ <cis fis a>2
    <b e gis>2.  ~ <b e gis>2 ~ <b e gis>2.  ~ <b e gis>2
    <b d fis>2.  ~ <b d fis>2 ~ <b d fis>2.  ~ <b d fis>2
    <a d fis>2.  ~ <a d fis>2 ~ <a d fis>2.  ~ <a d fis>2
  }
>>

keyboard = {
  \key fis \minor
  \time 4/4 \repeat unfold 2 \keysIntro
  \time 5/4 \repeat volta 2 \keysPad
}


\score {
  <<
    \new Staff \keyboard
    \new Staff \bass
  >>
}