summaryrefslogtreecommitdiff
path: root/02-song2/parts/keys.ly
blob: b69ac3599605f4126cbfb18243db3ca8a1f9adb8 (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
keysA = {
  \repeat unfold 2 {
    R1 | R1 | R1 |
  } \alternative {
    { R1 |}
    { R1 |}
  }
}

keysB = { R1 | R1 | R1 | R1 |}

keysTransition = \relative c' {
  \repeat volta 2 {
    <cis fis a>1 | <b e gis>1   |
    <a d fis>1   | <a cis fis>1 |
  }

  %% TODO
  \repeat volta 4 { R1 | R1 |}
}

keysThree = {
  \time 6/8
  \repeat unfold 2 { R2. | R2. |}
  R2. | R2. | R2. |
  \time 7/8 R8*7 |
}

keysMartaRekado = \relative c' {
  \repeat unfold 2 {
    \time 5/8
    cis''16 a fis cis r cis8 fis a16  |
    \time 7/8
    gis8 e b e16 e8 fis16 r16 b,8 e16 |
  } \alternative {
    { \time 2/4 cis8. a16 b a gis a |}
    { \time 2/4 cis8. a16 b a gis a |}
  }

  \time 3/4
  d,16 a fis a fis' a
  gis e b e gis b  |
  a fis d fis a cis
  b gis e gis e' d |

  %% TODE simplify
  fis cis a gis a cis
  b e e, a b cis  |

  %% TODO
  \time 7/8
  a a' fis cis cis d8 d8 r r8. |
}

keysReprise = \relative c' {
  \time 4/4
  \repeat unfold 2 {
    <cis fis a cis>2 ~               <cis es a cis>2  |
    <c f a d>4. ~ <cis fis a cis>8 ~ <cis fis a cis>2 |
    <cis fis a fis'>2 ~              <cis es a fis'>2 |
    <c f a d>4. ~ <cis fis a cis>8 ~ <cis fis a cis>2 |
  }
}

keysFinal = \relative c' {
  \repeat volta 4 {
    \tuplet 6/2 { a'8 fis dis cis a fis } cis2   cis16 dis gis8 |
    a16 d fis d fis gis a8 ~ a2 |

    %% TODO: simplify + use more simple arpeggios
    \tuplet 6/2 { cis8 a fis cis fis, dis }
    cis16 fis, b dis a' cis fis gis a b cis d
    <cis a>16 r8 <b gis>16 r8 a16 gis fis cis a fis cis4
  }

  %% TODO: simplify more!
  %% TODO: move these commented chords to stick?
  %% <fis,, dis b>
  b''16 a
  fis dis b' fis dis fis dis b fis b fis dis b fis

  %% <a, fis d>
  d''4*1/6 a fis a fis d
  fis d a d a

  %% <e b a a,>
  e'4*1/6 fis a cis a cis
  e cis e fis gis16 a

  %% <fis,, dis b>
  b16 a
  fis dis b' fis dis fis dis b fis b fis dis b fis
  f8 b' r8 d16 f gis1.
}

keyboard = \new PianoStaff <<
  \new Staff \relative c' {
    %% Intro
    \time 4/4
    R1*8

    \repeat unfold 2 {
      \key b \minor
      \keysA
      \key e \major
      \keysB
    }

    \set PianoStaff.midiInstrument = #"choir aahs"
    \key fis \minor
    \keysTransition
    \keysThree

    \set PianoStaff.midiInstrument = #"oboe"
    \keysMartaRekado

    \set PianoStaff.midiInstrument = #"string ensemble 1"
    \keysReprise
    \set PianoStaff.midiInstrument = #"electric piano 2"
    \keysFinal
  }
>>