summaryrefslogtreecommitdiff
path: root/03-circus/parts/keyboard.ly
blob: 5936bce067382ebc20cf6df733e2ce40781327b0 (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
keyboardIntroUpper = \relative c' {
  <cis e g>8 ~ <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
  r <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r

  <cis e g>8 ~
  <cis e g>8 ~ <cis e gis>-.
  r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
  r <cis e gis>-. r <cis e gis>-.

  <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
  <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
}

keyboardIntroLower = \relative c {
  cis4-. gis-. cis-. gis-.
  cis-. gis-. cis-. r8 cis ~
  cis4 gis-. cis-. gis-.
  cis-. gis-.
  dis8 r r d ~ d2 |
  dis8 r r d ~ d2 |
}

keysIntroEndUpper = \relative c' {
  r8 <cis e gis>-. r <cis e gis>-. |
  r  <cis e gis>-. r <cis e gis>-. |
  r  <cis e gis>-. r <cis e gis>-. |
  r  <cis e gis>-. r <cis e gis>-. |
}

keysIntroEndLower = \relative c {
  cis4-. gis-. | cis-. gis-. |
  cis-.  gis-. | cis-. gis-. |
}

keyboard = \new PianoStaff <<
  \set PianoStaff.midiInstrument = #"reed organ"
  \new Staff \relative c'  {
    \time 2/4
    \key cis \minor
    r4 r8 <cis e g> ~ |
    \repeat volta 2 \keyboardIntroUpper
    \alternative {
      { r2   | }
      { \keysIntroEndUpper }
    }
  }

  \new Staff \relative c {
    \clef bass
    \key cis \minor
    r2 |
    \repeat volta 2 \keyboardIntroLower
    \alternative {
      { r2   | }
      { \keysIntroEndLower }
    }
  }
>>