A few updates to support latest YMamoto.
[mumble.git] / examples / demo-y.mbl
blobbfe20db4fc08e979ef629b772386ff7432ee8dca
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 t140
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 ABC !loop
41 C q8
43 A q6 d4 d d d8>d<   | f4 f f f8e        |
44 B @a1 [d8d16d]3 d8d | @a2 [c8c16c]3 c8c |
45 C r | r |
46 ;D k8 h h h s h h h | k8 h h h s h h h |
48 A b-4 b- b- b-8>f< | a4 a8>a< g4 g8>c+<         |
49 B [f8f16f]3 f8f    | @a1 e8e16ee8e @a2 ee16ee8e |
50 C r | r |
51 ;D k8 h h h s h h  h     | k8 h16hh8h s h16hhsh8     |
54 A d4 d d d8>d<      | f4 f f f8e        |
55 B @a1 [d8d16d]3 d8d | @a2 [c8c16c]3 c8c |
56 C o5 d2. f4         | a2 g8 f e c+              |
58 A b-4 b- b- b-8>f< | a4 a8>a< g4 g8>c+<         |
59 B [f8f16f]3 f8f    | @a1 e8e16ee8e @a2 ee16ee8e |
60 C <b-2> d4 f       | g2 a4 c+                   |
63 A d4 d d d8>d<         | f4 f f f8e        |
64 B o4 @a3 [d8d16d]3 d8d | @a4 [c8c16c]3 c8c |
65 C o5 d2. f4            | a2 g8 f d e       |
67 A a4 a a a8b-                | g4 g8>e< a4 a8g+                     | 
68 B @a5 e8e16ee8e @a6 gg16gg8g | @a7 b-8b-16b-b-8b- @a8 aa16a @a9 a8a |
69 C c2 e4 a                    | b-2 a4 >c+                           |
71 ;;;; A minor.
73 B @a0 q4
74 C q4
75 A o1 a4 a a a8>a   | c4 c c c8<b   |
76 B o3 [a8a16a]3 a8a | [g8g16g]3 g8g |
77 C o4 a8>cec a4 g   | >c4 <b8a g4 e |
79 A >f4 f f f8>c<   | e4 e8>e< d4 d8g+   |
80 B >[c8c16c]3 c8c< | b8b16bb8b bb16bb8b |
81 C f2 a8>cea       | b2 g4 g+           |
83 A <a4 a a a8>a    | c4 c c c8<b       |
84 B [a8a16a]3 a8a   | [g8g16g]3 g8g     |
85 C a16gecagec>c4<a | e8.g16ab>c8 e4 <g |
87 A >f4 f f f8>c<        | e4 e8>e< d4 d8g+   |
88 B >[c8c16c]3 c8c<      | b8b16bb8b bb16bb8b |
89 C >c16<afe>c<afe c8eae | b2 g8>e<g+>e<      |
91 ;; end of data.