Many new parsing features; reorganization; examples added.
[mumble.git] / examples / demo-y.mbl
blobd688ec333109937b09e7e862cc1d4fb4983988db
2 Transcription of YM tune for Ngaire.
3 Julian Squires <tek@wiw.org> / 2004
5 #HEADER
7 replay "YMamoto"
8 title "Demo-y"
9 composer "tokenrove"
10 copyright "Julian Squires / 2004"
12 #MACROS
14 ;; it's so great to arpeggiate.
15 @a1 = { 0 | 3 9 -12 }
16 @a2 = { 0 | 5 7 -12 }
17 @a3 = { 0 | 3 4 -7 }
18 @a4 = { 0 | 5 4 -9 }
19 @a5 = { 0 | 5 3 -8 }
20 @a6 = { 0 | 2 3 -5 }
21 @a7 = { 0 | 6 3 -9 }
22 @a8 = { 0 | 4 3 -7 }
23 @a9 = { 0 | 4 8 -12 }
25 #MUSIC
27 ;;;; D minor.
29 ABC t128
30 B q4
32 A o2     d1            | f                 |
33 B o4 @a1 [d8d16d]3 d8d | @a2 [c8c16c]3 c8c |
34 C r1 | r |
36 A b-            | a2 g2                      |
37 B [f8f16f]3 f8f | @a1 e8e16ee8e @a2 ee16ee8e |
38 C r | r |
40 #COMMENT Drums should kick in here. #MUSIC
42 ABC !loop
44 A q6 d4 d d d8>d<   | f4 f f f8e        |
45 B @a1 [d8d16d]3 d8d | @a2 [c8c16c]3 c8c |
46 C r | r |
47 ;D k8 h h h s h h h             | k8 h h h s h h h          |
49 A b-4 b- b- b-8>f< | a4 a8>a< g4 g8>c+<         |
50 B [f8f16f]3 f8f    | @a1 e8e16ee8e @a2 ee16ee8e |
51 C r | r |
52 ;D k8 h h h s h h  h     | k8 h16hh8h s h16hhsh8     |
55 A d4 d d d8>d<      | f4 f f f8e        |
56 B @a1 [d8d16d]3 d8d | @a2 [c8c16c]3 c8c |
57 C o5 d2. f4         | a2 g8 f e c+              |
59 A b-4 b- b- b-8>f< | a4 a8>a< g4 g8>c+<         |
60 B [f8f16f]3 f8f    | @a1 e8e16ee8e @a2 ee16ee8e |
61 C <b-2> d4 f       | g2 a4 c+                   |
64 A d4 d d d8>d<         | f4 f f f8e        |
65 B o4 @a3 [d8d16d]3 d8d | @a4 [c8c16c]3 c8c |
66 C o5 d2. f4            | a2 g8 f d e       |
68 A a4 a a a8b-                | g4 g8>e< a4 a8g+                     | 
69 B @a5 e8e16ee8e @a6 gg16gg8g | @a7 b-8b-16b-b-8b- @a8 aa16a @a9 a8a |
70 C c2 e4 a                    | b-2 a4 >c+                           |
72 ;;;; A minor.
74 B @a0 q4
75 C q2
76 A o1 a4 a a a8>a   | c4 c c c8<b   |
77 B o3 [a8a16a]3 a8a | [g8g16g]3 g8g |
78 C o4 a8>cec a4 g   | >c4 <b8a g4 e |
80 A >f4 f f f8>c<   | e4 e8>e< d4 d8g+   |
81 B >[c8c16c]3 c8c< | b8b16bb8b bb16bb8b |
82 C f2 a8>cea       | b2 g4 g+           |
85 A <a4 a a a8>a    | c4 c c c8<b       |
86 B [a8a16a]3 a8a   | [g8g16g]3 g8g     |
87 C a16gecagec>c4<a | e8.g16ab>c8 e4 <g |
89 A >f4 f f f8>c<        | e4 e8>e< d4 d8g+   |
90 B >[c8c16c]3 c8c<      | b8b16bb8b bb16bb8b |
91 C >c16<afe>c<afe c8eae | b2 g8>e<g+>e<      |
93 ;; end of data.