org-contrib/babel/examples/lilypond-examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.ly

   1
   2 % [[file:~/ob-lilypond/examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.org::*Version][Version:1]]
   3
   4 \version "2.12.3"
   5
   6 % Version:1 ends here
   7
   8 % [[file:~/ob-lilypond/examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.org::*Arpeggios][Arpeggios:1]]
   9
  10 Carp = {
  11   c'16 d'16 e'16 f'16 g'16 a'16 b'16 c''16 r2
  12   c''16 b'16 a'16 g'16 f'16 e'16 d'16 c'16 r2
  13 }
  14
  15 Garp = {
  16   g'16 a'16 b'16 c''16 d''16 e''16 f''16 g''16 r2
  17   g''16 f''16 e''16 d''16 c''16 b'16 a'16 g'16 r2
  18 }
  19
  20 Darp = {
  21   d'16 e'16 f'16 g'16 a'16 b'16 c''16 d''16 r2
  22   d''16 c''16 b'16 a'16 g'16 f'16 e'16 d'16 r2
  23 }
  24
  25 Aarp = {
  26   a'16 b'16 c''16 d''16 e''16 f''16 g''16 a''16 r2
  27   a''16 g''16 f''16 e''16 d''16 c''16 b'16 a'16 r2
  28 }
  29
  30 Earp = {
  31   e'16 f'16 g'16 a'16 b'16 c''16 d''16 e''16 r2
  32   e''16 d''16 c''16 b'16 a'16 g'16 f'16 e'16 r2
  33 }
  34
  35 Barp = {
  36   b'16 c''16 d''16 e''16 f''16 g''16 a''16 b''16 r2
  37   b''16 a''16 g''16 f''16 e''16 d''16 c''16 b'16 r2
  38 }
  39
  40 Farp = {
  41   f'16 g'16 a'16 b'16 c''16 d''16 e''16 f''16 r2
  42   f''16 e''16 d''16 c''16 b'16 a'16 g'16 f'16 r2
  43 }
  44
  45 % Arpeggios:1 ends here
  46
  47 % [[file:~/ob-lilypond/examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.org::*Triads][Triads:1]]
  48
  49 Ctriads = {
  50   < c' f'a'c'> 4< c' f'a'c'> 4< c' f'a'c'> 4< c' f'a'c'> 4
  51   < c' g'b'd'> 4< c' g'b'd'> 4< c' g'b'd'> 4< c' g'b'd'> 4
  52 }
  53
  54 Gtriads = {
  55   < g' c'e'g'> 4< g' c'e'g'> 4< g' c'e'g'> 4< g' c'e'g'> 4
  56   < g' d'f'a'> 4< g' d'f'a'> 4< g' d'f'a'> 4< g' d'f'a'> 4
  57 }
  58
  59 Dtriads = {
  60   < d' g'b'd'> 4< d' g'b'd'> 4< d' g'b'd'> 4< d' g'b'd'> 4
  61   < d' a'c'e'> 4< d' a'c'e'> 4< d' a'c'e'> 4< d' a'c'e'> 4
  62 }
  63
  64 Atriads = {
  65   < a' d'f'a'> 4< a' d'f'a'> 4< a' d'f'a'> 4< a' d'f'a'> 4
  66   < a' e'g'b'> 4< a' e'g'b'> 4< a' e'g'b'> 4< a' e'g'b'> 4
  67 }
  68
  69 Etriads = {
  70   < e' a'c'e'> 4< e' a'c'e'> 4< e' a'c'e'> 4< e' a'c'e'> 4
  71   < e' b'd'f'> 4< e' b'd'f'> 4< e' b'd'f'> 4< e' b'd'f'> 4
  72 }
  73
  74 Btriads = {
  75   < b' e'g'b'> 4< b' e'g'b'> 4< b' e'g'b'> 4< b' e'g'b'> 4
  76   < b' f'a'c'> 4< b' f'a'c'> 4< b' f'a'c'> 4< b' f'a'c'> 4
  77 }
  78
  79 Ftriads = {
  80   < f' b'd'f'> 4< f' b'd'f'> 4< f' b'd'f'> 4< f' b'd'f'> 4
  81   < f' c'e'g'> 4< f' c'e'g'> 4< f' c'e'g'> 4< f' c'e'g'> 4
  82 }
  83
  84 % Triads:1 ends here
  85
  86 % [[file:~/ob-lilypond/examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.org::*Drums%2520(four%2520bars)][Drums-\(four-bars\):1]]
  87
  88 DrumsFourBars = {
  89   \drummode {
  90     bd16 hh16 hh16 hh16 sn16 hh16 hh16 hh16
  91     bd16 hh16 hh16 hh16 sn16 hh16 hh16 hh16 |
  92     bd16 hh16 hh16 hh16 sn16 hh16 hh16 hh16
  93     bd16 hh16 hh16 hh16 sn16 hh16 hh16 bd16 |
  94     bd16 hh16 hh16 hh16 sn16 hh16 hh16 hh16
  95     bd16 hh16 hh16 hh16 sn16 hh16 hh16 hh16 |
  96     bd16 hh16 hh16 hh16 sn16 hh16 hh16 hh16
  97     bd16 hh16 hh16 hh16 sn16 hh16 sn16 bd16 |
  98   }
  99 }
 100
 101 % Drums-\(four-bars\):1 ends here
 102
 103 % [[file:~/ob-lilypond/examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.org::*Number%2520of%2520bars%2520to%2520compile%2520(showLastLength)][Number-of-bars-to-compile-\(showLastLength\):1]]
 104
 105 %  showLastLength = R1*8
 106
 107 % Number-of-bars-to-compile-\(showLastLength\):1 ends here
 108
 109 % [[file:~/ob-lilypond/examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.org::*Score][Score:1]]
 110
 111 \score {
 112
 113 <<
 114
 115   \new Staff {
 116     \relative c'
 117     \key c \major
 118
 119      \set Staff.midiInstrument = #"acoustic grand"
 120       \Barp  \Barp
 121       \Earp  \Earp
 122       \Aarp  \Aarp
 123       \Darp  \Darp
 124       \Garp  \Garp
 125       \Carp  \Carp
 126       \Farp  \Farp
 127
 128       \Carp  \Carp
 129       \Garp  \Garp
 130       \Darp  \Darp
 131       \Aarp  \Aarp
 132       \Earp  \Earp
 133       \Barp  \Barp
 134       \Farp  \Farp
 135       \Carp  \Carp
 136   }
 137
 138   \new Staff {
 139     \relative c'
 140     \key c \major
 141      \set Staff.midiInstrument = #"acoustic grand"
 142       \Btriads  \Btriads
 143       \Etriads  \Etriads
 144       \Atriads  \Atriads
 145       \Dtriads  \Dtriads
 146       \Gtriads  \Gtriads
 147       \Ctriads  \Ctriads
 148       \Ftriads  \Ftriads
 149
 150       \Ctriads  \Ctriads
 151       \Gtriads  \Gtriads
 152       \Dtriads  \Dtriads
 153       \Atriads  \Atriads
 154       \Etriads  \Etriads
 155       \Btriads  \Btriads
 156       \Ftriads  \Ftriads
 157       \Ctriads  \Ctriads
 158
 159   }
 160
 161   \new Staff {
 162     \clef bass
 163     \relative c
 164     \key c \major
 165      \set Staff.midiInstrument = #"slap bass 2"
 166     b,,8 b, b, b, b,, b, b, b16 b,16 | b,,8 b, b, b, b,, b, b, b16 b,16 | b,,8 b, b, b, b,, b, b, b16 b,16 | b,,8 b, b, b, b,, b, b, b16 b,16 |
 167     e,,8 e, e, e, e,, e, e, e16 e,16 | e,,8 e, e, e, e,, e, e, e16 e,16 | e,,8 e, e, e, e,, e, e, e16 e,16 | e,,8 e, e, e, e,, e, e, e16 e,16 |
 168     a,,8 a, a, a, a,, a, a, a16 a,16 | a,,8 a, a, a, a,, a, a, a16 a,16 | a,,8 a, a, a, a,, a, a, a16 a,16 | a,,8 a, a, a, a,, a, a, a16 a,16 |
 169     d,,8 d, d, d, d,, d, d, d16 d,16 | d,,8 d, d, d, d,, d, d, d16 d,16 | d,,8 d, d, d, d,, d, d, d16 d,16 | d,,8 d, d, d, d,, d, d, d16 d,16 |
 170     g,,8 g, g, g, g,, g, g, g16 g,16 | g,,8 g, g, g, g,, g, g, g16 g,16 | g,,8 g, g, g, g,, g, g, g16 g,16 | g,,8 g, g, g, g,, g, g, g16 g,16 |
 171     c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 |
 172     f,,8 f, f, f, f,, f, f, f16 f,16 | f,,8 f, f, f, f,, f, f, f16 f,16 | f,,8 f, f, f, f,, f, f, f16 f,16 | f,,8 f, f, f, f,, f, f, f16 f,16 |
 173
 174     c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 |
 175     g,,8 g, g, g, g,, g, g, g16 g,16 | g,,8 g, g, g, g,, g, g, g16 g,16 | g,,8 g, g, g, g,, g, g, g16 g,16 | g,,8 g, g, g, g,, g, g, g16 g,16 |
 176     d,,8 d, d, d, d,, d, d, d16 d,16 | d,,8 d, d, d, d,, d, d, d16 d,16 | d,,8 d, d, d, d,, d, d, d16 d,16 | d,,8 d, d, d, d,, d, d, d16 d,16 |
 177     a,,8 a, a, a, a,, a, a, a16 a,16 | a,,8 a, a, a, a,, a, a, a16 a,16 | a,,8 a, a, a, a,, a, a, a16 a,16 | a,,8 a, a, a, a,, a, a, a16 a,16 |
 178     e,,8 e, e, e, e,, e, e, e16 e,16 | e,,8 e, e, e, e,, e, e, e16 e,16 | e,,8 e, e, e, e,, e, e, e16 e,16 | e,,8 e, e, e, e,, e, e, e16 e,16 |
 179     b,,8 b, b, b, b,, b, b, b16 b,16 | b,,8 b, b, b, b,, b, b, b16 b,16 | b,,8 b, b, b, b,, b, b, b16 b,16 | b,,8 b, b, b, b,, b, b, b16 b,16 |
 180     f,,8 f, f, f, f,, f, f, f16 f,16 | f,,8 f, f, f, f,, f, f, f16 f,16 | f,,8 f, f, f, f,, f, f, f16 f,16 | f,,8 f, f, f, f,, f, f, f16 f,16 |
 181     c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 | c,,8 c, c, c, c,, c, c, c16 c,16 |
 182
 183   }
 184
 185   \new DrumStaff {
 186     \DrumsFourBars
 187     \DrumsFourBars
 188     \DrumsFourBars
 189     \DrumsFourBars
 190     \DrumsFourBars
 191     \DrumsFourBars
 192     \DrumsFourBars
 193
 194     \DrumsFourBars
 195     \DrumsFourBars
 196     \DrumsFourBars
 197     \DrumsFourBars
 198     \DrumsFourBars
 199     \DrumsFourBars
 200     \DrumsFourBars
 201     \DrumsFourBars
 202   }
 203
 204 >>
 205
 206 \layout {
 207   }
 208   \midi {
 209     \context {
 210       \Score
 211       tempoWholesPerMinute = #(ly:make-moment 60 4)
 212     }
 213   }
 214
 215 }
 216
 217 % Score:1 ends here
 218
 219 % [[file:~/ob-lilypond/examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.org::*Paper][Paper:1]]
 220
 221 \paper {
 222   #(define dump-extents #t)
 223
 224   indent = 0\mm
 225   line-width = 200\mm - 2.0 * 0.4\in
 226   ragged-right = #""
 227   force-assignment = #""
 228   line-width = #(- line-width (* mm  3.000000))
 229 }
 230
 231 % Paper:1 ends here
 232
 233 % [[file:~/ob-lilypond/examples/arrange-mode/Modes-in-Key-of-C/modes-in-key-of-c.org::*Header][Header:1]]
 234
 235 \header {
 236   title = \markup \center-column {"Modes in the Key of C"}
 237   composer =  \markup \center-column { "Music by" \small "Martyn Jago" }
 238   poet =  \markup \center-column { "ob-lilypond" \small "example 2" }
 239 }
 240
 241 % Header:1 ends here