#TITLE Regular Music.
#COMPOSER Diptera
#PROGRAMER 2005 Stevie Hryciw
#BANK-CHANGE 0, 2

;	--------
;	|macros|
;	--------

@v0 =	{ 15 15 14 13 12 10 10 10 10 10 9 9 9 9 8 8 8 7 7 7 6 6 6 }
@v1 =	{ 15 15 14 13 12 10 10 10 10 10 9 9 9 8 8 8 8 7 7 7 6 6 6 6 6 6 6 6 5 5 5 5 5 5 5 4 4 4 4 4 3 3 3 3 3 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 6 6 6 6 6 6 7 7 7 7 7 7 8 8 8 8 8 8 9 9 9 9 9 9 10 10 10 10 10 10 11 11 11 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 }
@v2 =	{ 12 12 11 11 10 10 4 9 3 8 2 7 1 6 0 5 4 3 }
@v3 =	{ 15 15 14 14 13 13 7 12 6 11 5 10 4 9 3 8 2 7 1 6 0 5 4 3 }
@v4 =	{ 15 15 10 10 10 10 9 9 9 8 8 7 6 4 2 0 }

@0 =	{ 1 1 0 2 }

@MP0 =	{ 17, 3, 3 }

;	---------
;	|samples|
;	---------

@DPCM3 =	{ "C:\MuMML\samples\trmp_e-2.dmc", 15 }
@DPCM5 =	{ "C:\MuMML\samples\trmp_c.dmc", 13 }
@DPCM7 =	{ "C:\MuMML\samples\trmp_g.dmc", 15 }
@DPCM8 =	{ "C:\MuMML\samples\trmp_d-.dmc", 14 }
@DPCM10 =	{ "C:\MuMML\samples\trmp_e-.dmc", 14 }
@DPCM11 =	{ "C:\MuMML\samples\trmp_b.dmc", 15 }
@DPCM0 =	{ "C:\MuMML\samples\trmp_c.dmc", 15 }
@DPCM1 =	{ "C:\MuMML\samples\trmp_d-.dmc", 15 }
@DPCM4 =	{ "C:\MuMML\samples\trmp_e-.dmc", 15 }


;	-------
;	|tempo|
;	-------

ABCDE	t112

;	------------
;	|initialize|
;	------------

A	l4 o5 q8 @v0 @@0 MP0
B	l8 o4 q6 @v2 @@0
C	l8 o3 q6 v15
D	l8 o0 q2 @v4
E	l8 o0

;	----------
;	|sequence|
;	----------

;	> part A1

A	l4 g ^16 f16 q4e-8 q8g q4f8 e-8		q8b- >c <g. q4g8		q8a- ^16 b-16 q4a-8 q8g q4f8 e-8	q8f a-16 g8. f q4e-8 f8		q8g ^16 f16 q4e-8 q8g q4f8 e-8		q8b- >c <g. q4g8		q8a- b-16 a-8. g q4f8 e-8	q8f q4e-8 d8 q8e-2
B	[b-]8					[d]4 e- e- e-4			>[c]4 <[b-]4				d d b- b- d d d4		[b-]8					[d]4 e e e4			[f]4 e- e- b- b-		[a-]4 g g g4
C	[e-]8					[b-]4 c c c4			[a-]4 >[e-]4				<b- b- >e- e- <b- b- b-4	[e-]8					[b-]4 >c c c4			[d-]4 <[a-]4			[b-]4 e- e- e-4
D	[q2a d g16. g32 d]2			[q2a d g16. g32 d]2		[q2a d g16. g32 d]2			q2a d g16. g32 d a d d r	[q2a d g16. g32 d]2			[q2a d g16. g32 d]2		[q2a d g16. g32 d]2		q2a d g16. g32 d a8.. d32 a a
E	[r1]8

;	> part B1

A	l8 e-4 ^16 d16 c e-4 q6d c		q8d e- q6d c q8<a-2		r b- b- >c q4d q8c c16 d <g16		^2. r4				>e-4 ^16 d16 c e-4 d c			c q6d e- q8g ^2			r d d e- f g f16 e- @v1 e-16	^1				^4 ^16 @v0 d-16 c c d- e- g		a- q6g a- q8f ^2	r d d e- q6f g q8f16 q4e- q8e-16	^2 r2
B	[e-]8					[c]8				[d]8					[e-]4 [d]4			[e-]8					[c]8				[d]8				[e-]8				[c]4 [e-]4				[c]4 <[a-]4		>[d]8					[g]6 g4
C	>[c]8					<[a-]8				[b-]8					[b-]4 [b]4			>[c]8					<[a-]8				[b-]4 [b]4			>[c]4 <[b-]4			[a-]8					[f]8			[b-]8					>[e-]6 e-4
D	[q2a d g16. g32 d]2			[q2a d g16. g32 d]2		[q2a d g16. g32 d]2			q2a d g16. g32 d [f16]4 [g16]4	[q2a d g16. g32 d]2			[q2a d g16. g32 d]2		[q2a d g16. g32 d]2		q2a d g16. g32 d [a]4		[q2a d g16. g32 d]2			[q2a d g16. g32 d]2	[q2a d g16. g32 d]2			a {deg}8 b {deg}8 b b b r
E	[r1]12

;	> part A2

A	l4 g ^16 f16 q4e-8 q8g q4f8 e-8		q8b- >c <g. q4g8		q8a- ^16 b-16 q4a-8 q8g q4f8 e-8	q8f a-16 g8. f q4e-8 f8		q8g ^16 f16 q4e-8 q8g q4f8 e-8		q8b- >c <g. q4g8		q8a- b-16 a-8. g q4f8 e-8	q8f q4e-8 d8 q8e-2
B	l4 @v3 >e- ^16 d16 q4c8 q8e- q4d8 c8	q8g f e-. q4e-8			q8f ^16 g16 q4f8 q8e- q4d8 c8		q8d f16 e-8. d q4c8 d8		q8e- ^16 d16 q4c8 q8e- q4d8 c8		q8g f e. q4e8			q8f g16 f8. e- q4d8 c8		q8d q4c8 <a-8 q8g2
C	[b-]8					>[d]4 c c c4			[c]4 <[b-]4				> d d e- e- d d d4		<[b-]8					>[d]4 c c c4			<[a-]4 [g]4			[a-]4 b- b- b-4
D	[q2a q8d q2g16. g32 q8d]16
E	[e-]8					[b-]4 c c c4			[a-]4	 [e]4				[b-]6 b-4			[e-]8					[b-]4 c c c4			[d-]4 [a-]4			[b-]4 e- e- e-4

;	> part B2

A	l8 e-4 ^16 d16 c e-4 q6d c		q8d e- q6d c q8<a-2		r b- b- >c q4d q8c c16 d <g16		^2. r4				>e-4 ^16 d16 c e-4 d c			c q6d e- q8g ^2			r d d e- f g f16 e- @v1 e-16	^1				^4 ^16 @v0 d-16 c c d- e- g		a- q6g a- q8f ^2	r d d e- q6f g q8f16 q4e- q8e-16	^2 r2
B	l8 [c]8					[c]8				[d]8					<[b-]4 [b]4			>[c]8					[c]8				c <f f f [g]4			[g]8				[g]8					[a-]8			[f]8					[g]6 g4
C	>[g]4 [e-]4				[g]4 [a-]4			[a-]4 [f]4				[e-]4 [d]4			[e-]8					[e-]8				[d]8				[e-]8				[e-]8					[e-]8			[d]8					<[b-]6 b-4
D	[q2a d g16. g32 d]2			[q2a d g16. g32 d]2		[q2a d g16. g32 d]2			q2a d g16. g32 d [f16]4 [g16]4	[q2a d g16. g32 d]2			[q2a d g16. g32 d]2		[q2a d g16. g32 d]2		q2a d g16. g32 d [a]4		[q2a d g16. g32 d]2			[q2a d g16. g32 d]2	[q2a d g16. g32 d]2			a {deg}8 b {deg}8 b b b r
E	[c]8					[a-]8				[b-]8					[e]4 [g]4			[c]8					[a-]8				[b-]4 [b]4			[c]4 [b-]4			[a-]8					[f]8			[b-]8					[e]6 e4

;	> coda

A	l4 g ^16 f16 q4e-8 q8g q4f8 e-8		q8b- >c <g. q4g8		q8a- ^16 b-16 q4a-8 q8g q4f8 e-8	q8f a-16 g8. f q4e-8 f8		q8g ^16 f16 q4e-8 q8g q4f8 e-8		q8b- >c <g. q4g8		q8a- b-16 a-8. g q4f8 e-8	q8f q4e-8 d8 q8e-2
B	l4 MP0 >>e- ^16 d16 q4c8 q8e- q4d8 c8	q8g f e-. q4e-8			q8f ^16 g16 q4f8 q8e- q4d8 c8		q8d f16 e-8. d q4c8 d8		q8e- ^16 d16 q4c8 q8e- q4d8 c8		q8g f e. q4e8			q8f g16 f8. e- q4d8 c8		q8d q4c8 <a-8 q8g2
C	[b-]8					>[d]4 c c c4			[c]4 [b-]4				d d e- e- d d d4		[b-]8					>[d]4 c c c4			<[a-]4 [g]4			[f]4 e- e- e-4
D	[q2a q8d q2g16. g32 q8d]2		[q2a q8d q2g16. g32 q8d]2	[q2a q8d q2g16. g32 q8d]2		q2a q8d q2a q8d q2a a a r	[q2a q8d q2g16. g32 q8d]2		[q2a q8d q2g16. g32 q8d]2	[q2a q8d q2g16. g32 q8d]2	a {deg}8 b {deg}8 b b b r
E	[e-]8					[b-]4 c c c4			[a-]4 [e]4				[b-]6 b-4			[e-]8					[b-]4 c c c4			[d-]4 [a-]4			[b-]4 e- e- e-4

;	> end