02-song2/parts/keys.ly

   1 keysA = {
   2   \repeat unfold 2 {
   3     R1 | R1 | R1 |
   4   } \alternative {
   5     { R1 |}
   6     { R1 |}
   7   }
   8 }
   9
  10 keysB = { R1 | R1 | R1 | R1 |}
  11
  12 keysTransition = \relative c' {
  13   \repeat volta 2 {
  14     <cis fis a>1 | <b e gis>1   |
  15     <a d fis>1   | <a cis fis>1 |
  16   }
  17
  18   %% TODO
  19   \repeat volta 4 { R1 | R1 |}
  20 }
  21
  22 keysThree = {
  23   \time 6/8
  24   \repeat unfold 2 { R2. | R2. |}
  25   R2. | R2. | R2. |
  26   \time 7/8 R8*7 |
  27 }
  28
  29 keysMartaRekado = \relative c' {
  30   \repeat unfold 2 {
  31     \time 5/8
  32     cis''16 a fis cis r cis8 fis a16  |
  33     \time 7/8
  34     gis8 e b e16 e8 fis16 r16 b,8 e16 |
  35   } \alternative {
  36     { \time 5/8 cis8. a16 b a gis a fis r |}
  37     { \time 5/8 cis'8. a16 b a gis a fis e |}
  38   }
  39
  40   \time 3/4
  41   d16 a fis a fis' a
  42   gis e b e gis b  |
  43   a fis d fis a cis
  44   b gis e gis e' d |
  45
  46   %% TODE simplify
  47   fis cis a gis a cis
  48   b e e, a b cis  |
  49
  50   %% TODO
  51   \time 7/8
  52   a a' fis cis cis d8 d8 r r8. |
  53 }
  54
  55 keysReprise = \relative c' {
  56   \time 4/4
  57   \repeat unfold 2 {
  58     <cis fis a cis>2 ~               <cis es a cis>2  |
  59     <c f a d>4. ~ <cis fis a cis>8 ~ <cis fis a cis>2 |
  60     <cis fis a fis'>2 ~              <cis es a fis'>2 |
  61     <c f a d>4. ~ <cis fis a cis>8 ~ <cis fis a cis>2 |
  62   }
  63 }
  64
  65 keysFinal = \transpose c d { \relative c' {
  66   \repeat unfold 4 {
  67     %% TODO: simplify + use more simple arpeggios
  68     \tuplet 6/2 { g'8 e cis g e b } e,2   b'16 cis fis8 |
  69     g16 c e c e fis g8 ~ g2 |
  70
  71     \tuplet 6/2 { b8 g e b e, cis }
  72     b16 e, a cis g' b e fis g a b c
  73     <b g >16 r8 <a fis >16 r8 g16 fis e b g e b4
  74   }
  75
  76   %% TODO: simplify more!
  77   <a'' e,, cis a >16 g
  78   e cis a' e cis e cis a e a e cis a e
  79   <c'' g, e c >4*1/6
  80   g e g e c e c g c g
  81   <d' a g g, >4*1/6 e g b g b d b d e fis16 g
  82
  83   <a e,, cis a >16 g
  84   e cis a' e cis e cis a e a e cis a e
  85   dis8 a' r8 c'16 dis fis1.
  86 }}
  87
  88 keyboard = \new PianoStaff <<
  89   \new Staff \relative c' {
  90     %% Intro
  91     \time 4/4
  92     R1*8
  93
  94     \repeat unfold 2 {
  95       \key b \minor
  96       \keysA
  97       \key e \major
  98       \keysB
  99     }
 100
 101     \set PianoStaff.midiInstrument = #"choir aahs"
 102     \key fis \minor
 103     \keysTransition
 104     \keysThree
 105
 106     \set PianoStaff.midiInstrument = #"oboe"
 107     \keysMartaRekado
 108
 109     \set PianoStaff.midiInstrument = #"string ensemble 1"
 110     \keysReprise
 111     \set PianoStaff.midiInstrument = #"electric piano 2"
 112     \keysFinal
 113   }
 114 >>