summaryrefslogtreecommitdiff
path: root/02-song2/parts/keys.ly
blob: 0951a1d3ac1427631f461728be7c354e2f7fe76e (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
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 5/8 cis8. a16 b a gis a fis r |}
    { \time 5/8 cis'8. a16 b a gis a fis e |}
  }

  \time 3/4
  d16 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 = \transpose c d { \relative c' {
  \repeat unfold 4 {
    %% TODO: simplify + use more simple arpeggios
    \tuplet 6/2 { g'8 e cis g e b } e,2   b'16 cis fis8 |
    g16 c e c e fis g8 ~ g2 |

    \tuplet 6/2 { b8 g e b e, cis }
    b16 e, a cis g' b e fis g a b c
    <b g >16 r8 <a fis >16 r8 g16 fis e b g e b4
  }

  %% TODO: simplify more!
  <a'' e,, cis a >16 g
  e cis a' e cis e cis a e a e cis a e
  <c'' g, e c >4*1/6
  g e g e c e c g c g
  <d' a g g, >4*1/6 e g b g b d b d e fis16 g

  <a e,, cis a >16 g
  e cis a' e cis e cis a e a e cis a e
  dis8 a' r8 c'16 dis fis1.
}}

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