circus: move to subdir.
[music/pretentious.git] / 04-white-noise.ly
index 2a7e7503c9d11574d68e265ffadcce2ba8fc2e59..ca3aadaaec8e5cc9a804226be5766405319dcaef 100644 (file)
   copyright = "2002--2015 Ricardo Wurmus"
 }
 
-\f
-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
+whiteNoise = { R1*5 } % TODO: how long?
 
+\include "04-white-noise-parts/bass.ly"
+\include "04-white-noise-parts/keys.ly"
+\include "04-white-noise-parts/stick.ly"
 
-    %% 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
-    %}
-  }
-}
-
-\f
-keysIntro = <<
-  \chords {
-    d2 fis:m e1
-    d1 fis:m
-  }
-  \relative c'' {
-    r1 r1 r1 r1
-  }
+AllMusic = <<
+  \new Staff = "keyboard"    { \keyboard }
+  \new Staff = "bass"        { \bass }
+  \new Staff = "grand stick" { \stick }
 >>
 
-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
+%% Two scores are needed: one with unfolded repeats for MIDI and the
+%% other with regular repeats for notation.
+\score {
+  \unfoldRepeats { \AllMusic }
+  \midi { \tempo 4 = 120 }
 }
 
-\f
 \score {
-  <<
-    \new Staff \keyboard
-    \new Staff \bass
-  >>
+  \AllMusic
+  \layout {
+    \tempo 4 = 120
+    \context { 
+      %% add the RemoveEmptyStaffContext that erases rest-only staves
+      \Staff \RemoveEmptyStaves 
+    }
+    \context {
+      \Score
+      %% Remove all-rest staves also in the first system
+      \override VerticalAxisGroup.remove-first = ##t
+      %% If only one non-empty staff in a system exists, still print the starting bar
+      \override SystemStartBar.collapse-height = #1
+    }
+  }
 }