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