examples/ch-1.mbl

   1
   2 Adapted for YM from the original MML for NES, as a replay test.  I
   3 might convert this to some other system as an example once other
   4 replays are supported.
   5
   6 Original was written at Chip Weekend 1, July 2004.
   7
   8 #HEADER
   9
  10 replay "YMamoto"
  11 title "sight for sore thumbs"
  12 composer "tokenrove"
  13 maker "Julian Squires <tek@wiw.org>"
  14
  15 #MACROS
  16
  17 ;;;; INSTRUMENTS
  18
  19 ;; Violin?  (a little rough)
  20 @v1 = { 0 1 2 3 4 5 7 7 7 6 6 6 6 5 5 5 5 4 4 4 3 }
  21 ;%t0 =  { 2 2 2 2 2 3 3 }
  22
  23 ;;; Generic lead vibratos
  24 ; Retsyn vibratos
  25 @~1 = { delay 12 speed 3 depth 5 }
  26 @~2 = { delay 22 speed 2 depth 4 }
  27 ; mild vibrato
  28 @~3 = { delay 32 speed 2 depth 2 }
  29
  30
  31 #MUSIC
  32
  33 ;;;; (G) Intro
  34
  35 ABC t120
  36 A o3 q6 %2 v8
  37 B o2 q6 %2 v6
  38 C o1 q4
  39
  40 A r1  c2 <a-2  g4 g4 d4 g4  f2 a-4 b-4>
  41 B c2. r4  f2. r4  <b-2. r4  >d2. r4
  42 C r1 r1 r1 r1
  43
  44 A c2 c4 <a-4  b-4.>c8 d2  d4 c8d c2  f4.d8 g4 d4
  45 B e-2 f2  g2 f4 a-4  b-2 e-8rg a-8^2 b-8gfd
  46 C r1  r1  q7 g1  f1
  47
  48 ;;;; (A) Midpart in C minor
  49
  50 ABC t120
  51 A o3 q6 %2 v8
  52 B o2 q6 %2 v6
  53 C o1 q4
  54
  55 AB @~0
  56
  57 A c4 <b-8>c c4 <a-4  b-2 >d4 <f4  >c4.r8 <a-r>cd
  58 B c8e-ga- f2  <b-8>dfa- d2  c8c<a->c ffa-f
  59 C c4 >c8<a- <ff>f<f  g4 >g8e- dd>d<d crgf <ff>f<f
  60
  61 A e-4 d8e- d4 <b4  >
  62 B c8fa-b g2       >
  63 C a-4 f8>f< g4 b4 >
  64
  65 A c4 <b-8>c c4 <a-4  b-2 >d4 <f4  >c4.r8 <a-r>cd
  66 B c8e-ga- f2  <b-8>dfa- d2  c8c<a->c ffa-f
  67 C c4 >c8<a- <ff>f<f  g4 >g8e- dd>d<d crgf <ff>f<f
  68
  69 A e-4 d8e- d4 <b4
  70 B c8fa-b   g2
  71 C a-4 f8>f< g4 b4
  72
  73 ;;;; (B) Bridge
  74
  75 ABC t120
  76 A o3 q6 %2 v4
  77 B o2 q6 %2 v3
  78 C o1 q4
  79
  80 AB @~2
  81
  82 A g1
  83 B e-1
  84 C c2 q2 c4 c4
  85
  86 A a1
  87 B f1
  88 C d4 d4 d4 d4
  89
  90 A d2 f2
  91 B g2 d2
  92 C <b-4 b-4 q6 b4 b4
  93
  94 A >c1
  95 B g1
  96 C >c1
  97
  98 A <e-1
  99 B c1
 100 C q2 c4 c4 q6 c8>c< q2 c4
 101
 102 A f1
 103 B d1
 104 C d4 d4 q6 d8>d< q2 d4
 105
 106 A d2 f4 f+4
 107 B g8ge-g bgd<b
 108 C q6 <b-4 b-8>f <b4 b8>f+
 109
 110 A >c1
 111 B c1
 112 C g2 >c2
 113
 114 ;;;; (F) [modified]
 115
 116 ABC t120
 117 A o3 q6 %2 v4
 118 B o3 q6 %2 v6
 119 C o1 q4
 120
 121 AB @~0
 122
 123 A [r1]2 >c4. <b4.> d8e-  f4. f8r fgf
 124 B @1 q4 [g8e-c gd<b >fr  a-fd a-fc <br>]2
 125 C >[c4. <g4. f8>f  d4. f4. g4]2
 126
 127 A e-4.r8 de-f4  g4.a-8 g<b->de-
 128 B g8e-c gd<b >fr  ge-<b-> e-c<a-> de-
 129 C c4. g4. f8>f e-4. a-4. g4
 130
 131 A v+ c4.e-8 d4.f8
 132 B g2 a-2
 133 C g8>c<e->c< a->d<f>d<
 134
 135 A g4 f4 e-8d
 136 B g4 a-2
 137 C g4 f4 e-4
 138
 139 ;;;; (D) lamenting solo in C minor
 140
 141 ABC t120
 142 A o3 q7 %2 v9
 143 B o2 q6 %2 v5
 144 C o1 q4
 145
 146 A @~1
 147
 148 A [c2. r8<g  a-2 >e-16dc8r <g8^2 b4. >d8^2 r2]2
 149 B r1  r1  b2 r2  a-4 g4 f4 e-4
 150 B c8e-gce-gce-  <a->ce-<a->ce-<a->c  <gb>d<gb>d<gb>  <dgbdgbdg>
 151 ; XXX maybe just drums over this first part, no bass?
 152 C [q7 >c2.<b-4 a-1 g2.f8e- d1]2
 153
 154 AB v+
 155 A c2. r8<g a-16b->cd<a>cde-< >e-16dc8r <ga-b>cd <b4. >d8 f12e-d fe-d e-4.d8
 156 B c8e-gce-gce-  <a->ce-<a->ce-<a->c  <gb>d<gb>d<gb>  <dgbdgbdg>
 157 C q7 >c4 c4 c4<b-4 a-4 a-4 a-4 a-4 g4 g4 g4f8e- d4 d4 d2
 158
 159 ;;;; (E) solo part 2, Eb major
 160
 161 ABC t120
 162 A o3 q7 %2 v9
 163 B o2 q6 %2 v5
 164 C o1 q7
 165
 166 A @~1
 167
 168 A g4 f8g g4 e-4  d4 c8d <b-a-gf  e-2 >c16d16e-8r <b-8^2 r2>
 169 B b-1 r1 r1 >d4 f4 d4 <b-4>
 170 C e-1  d2 g8b-gb-  a-1  b-1
 171
 172 A c4 f8g f4 e-4  g8gdg8^2  c2 e-8d16c16<b-8 b-8^2 r2>
 173 B r1  r2 <b-4 g4  r1  f4 >f8d< f4 d4>
 174 C e-4 e-4 e-4 e-4  d4 d4 <g8b-gb-  >c4 c4 e-8a-e-a-  d4 d4 f8b-fb-
 175
 176 A <b-8b-gb-8^2  a-8gb->dgr fe-8^2 c8c<a->c  <b-4 >c16d16e-8df4.
 177 B r4 <e-4 g8ge-g  r1  r2 >e-8e-ce-8^4  <d8fb-<b->df
 178 C e-4 e-4 e-4 e-4  d4 d4 g8b->d<b-  a-4 a-4 a-4 a-4  b-4 b-4 b-4 b-4
 179
 180 A @~0 <g4 f8g f4 e-4  d2 b-16>c16d8r <a-8^2 r2 b-4.a-8fgb>d
 181 B b-2.>c4  r1  c8c<a->c rc<b-a-  q8 >d4 r4 f4 r4
 182 C e-4 e-4 e-4 e-4  d4 d4 <b-8gdg  >c4 c4 e-8a->ce-  d4 d4 <b-8fgb
 183
 184 A @~3 v- e-1
 185 B @~3 q7 g1
 186 C >c1
 187
 188 ;;;; (B/H) Bridge
 189
 190 ABC t120
 191 A o3 q6 %2 v4
 192 B o2 q6 %2 v3
 193 C o1 q4
 194
 195 AB @~2
 196
 197 ;A g1
 198 ;B e-1
 199 ;C c2 q2 c4 c4
 200
 201 A f1
 202 B a1
 203 C d4 d4 d4 d4
 204
 205 A g2 f2
 206 B g2 d2
 207 C <b-4 b-4 q6 b4 b4
 208
 209 A >c1
 210 B g1
 211 C >c1
 212
 213 A <e-1
 214 B c1
 215 C q2 c4 c4 q6 c8>c< q2 c4
 216
 217 A f1
 218 B d1
 219 C d4 d4 q6 d8>d< q2 d4
 220
 221 A d2 f4 g4
 222 B g8ge-g bgd<b
 223 C q6 <b-4 b-8>f <b4 b8>f+
 224
 225 A >c1
 226 B c1
 227 C g2 >c2
 228
 229 ;;;; (A) Midpart in C minor repeat
 230
 231 ABC t120
 232 A o3 q6 @2 v8
 233 B o2 q6 @2 v6
 234 C o1 q4
 235
 236 AB @~0
 237
 238 A c4 <b-8>c c4 <a-4  b-2 >d4 <f4  >c4.r8 <a-r>cd
 239 B c8e-ga- f2  <b-8>dfa- d2  c8c<a->c ffa-f
 240 C c4 >c8<a- <ff>f<f  g4 >g8e- dd>d<d crgf <ff>f<f
 241
 242 A e-4 d8e- d4 <b4 >
 243 B c8fa-b g2       >
 244 C a-4 f8>f< g4 b4 >
 245
 246 A c4 <b-8>c c4 <a-4  b-2 >d4 <f4  >c4.r8 <a-r>cd
 247 B c8e-ga- f2  <b-8>dfa- d2  c8c<a->c ffa-f
 248 C c4 >c8<a- <ff>f<f  g4 >g8e- dd>d<d crgf <ff>f<f
 249
 250 A e-4 d8e- d4 <b4
 251 B c8fa-b   g2
 252 C a-4 f8>f< g4 b4
 253
 254 ;;;; (F)
 255
 256 ABC t120
 257 A o3 q6 @2 v4
 258 B o3 q6 @2 v6
 259 C o1 q4
 260
 261 AB @~0
 262
 263 A [r1]2 >c4. <b4.> d8e-  f4. f8r fgf
 264 B @1 q4 [g8e-c gd<b >fr  a-fd a-fc <br>]2
 265 C >[c4. <g4. f8>f  d4. f4. g4]2
 266
 267 A g4.r8 <b->cde-  f4.r8 gab-a
 268 B d8<b-g >gd<b- >fr  fd<a >afd fg
 269 C g4. d4. <b-8>b-  a4. d4. <f8>f
 270
 271 A v+ g4.f8 d4.c8
 272 B b-2 a2
 273 C g8>d<b->d< a>d<f>d<
 274
 275 A d2
 276 B g2
 277 C g2
 278
 279 ;;;; (C)
 280
 281 ABC t120
 282 A o2 q3 @2 v7
 283 B o2 q3 @0 v6
 284 C o1 q4
 285
 286 AB @~0
 287
 288 A r1 r1 r1 r1 ;b-b-fb- e-b-g>d fd<af a>ce<a  >d4.r <b-r>de-  <g4.b- f4.a
 289 B g8gdg cge-b-  aada ea>ce<  b-4.r8 grb->c  e-4.g8 d4.f8
 290 C g4 >d8<b- cc>c<c  d4 a8f <aa>ec  <g4 g4 g8>g< g4  >e-2 d2
 291
 292 A d8d<b->d cge-g  cc<a>c e-4 c4  d4c8d g4 f4
 293 B <<b-8>dgb- e-2  <a8>dfa8^2  f4.d8 g4.b8
 294 C g4 >d8<b- cc>c<c  d4 a8f ccac  <f4>f8d <gg>db
 295
 296 ;;;; (B) Bridge again
 297
 298 ABC t120
 299 ;A o3 q6 @2 l8 v4
 300 ;B o2 q6 @2 l8 v3
 301 C o1 q4 l8
 302
 303 AB @~2
 304
 305 A e-1
 306 B >c1
 307 C c2 q2 c4 c4
 308
 309 A a1
 310 B f1
 311 C d4 d4 d4 d4
 312
 313 A d2 f2
 314 B g2 d2
 315 C <b-4 b-4 q6 b4 b4
 316
 317 A >c1
 318 B g1
 319 C >c1
 320
 321 A <e-1
 322 B c1
 323 C q2 c4 c4 q6 c8>c< q2 c4
 324
 325 A f1
 326 B d1
 327 C d4 d4 q6 d8>d< q2 d4
 328
 329 A d2 f4 g4
 330 B g8ge-g bgd<b
 331 C q6 <b-4 b-8>f <b4 b8>f+
 332
 333 A >c1
 334 B c1
 335 C g2 >c2
 336
 337 ;;;; (I) Final cadence.
 338
 339 ABC t120
 340 A o3 q6 @2 v7
 341 B o2 q6 @2 v6
 342 C o1 q4
 343
 344 AB @~1
 345
 346 ;A d2 f4 g4
 347 ABC t115
 348 A g8^2 b4.
 349 B g8ge-g bgd<b>
 350 C q6 <b-4 b-8>f <b4 b8>f+
 351
 352 ABC t110
 353 A >c2. r8<g>
 354 B c4. e-4. g8r
 355 C g2 >c2
 356
 357 ABC t100
 358 A g8^2 b4.
 359 B b-8b-gb- d4<b4
 360 C q6 <b-4 b-8>f <b4 b8>f+
 361
 362 ABC t90
 363 A >c1
 364 B >c1
 365 C >c1
 366