曲名{"雨の中で"}作者{"レイン望"}/*完成日：2016.08.01*/
音源初期化
Tempo 108 拍子 6,8 
//------------------------------------------------------------------------------
Str V_RDM={v.Random(10)}
//------------------------------------------------------------------------------
TR=1P(64)V_RDM	//主旋律
TR=2P(32)V_RDM	//短和音
TR=3P(96)V_RDM	//長和音
TR=4P(64)V_RDM
TR=5P(96)V_RDM
//A------------------------------------------------------------------------------
#TR1A={	@1o6v105l4.e^8l8del4.gag4.+4.+4.+4.	l4.e^8l8del4.g`cl8bage4.+4.+8de
	l4.ff4g8aa4b8l4agl8gfe4.+8de		l4fecgcl8cdc4.+4."b4.+4.		}
#TR2A={	v60o4q100l4.+4.+4.+4.'ceg''g"bd'		l4.+4.'"beg''"bdg'l4.+4.+4.'cea''"beg'4.
	l4.+4.'fac''gbd'l4.'egb''dgb''cea'4.+4.		'dfa'4.+4.+4.'dfa'4.l4.+4.['g"bd']		}
Time(1:1:0)	PLAY(,	#TR1A,	#TR2A,)
//B------------------------------------------------------------------------------
Function CHO1(Str Cho1,Str Cho1A){ <'Cho1'1>r-1 r4[10'Cho1A'8,30] }
Function CHO2(Str Cho2,Str Cho2A){ <'Cho2'2>r-2 r4[4 'Cho2A'8,30] }
Function CHO3(Str Cho3,Str Cho3A){ <'Cho3'4>'Cho3A'8,30 }
#TR1b={	o6l4.e4.+8l8del4.gag4.+4.+4.+4.	l4.e^8l8del4.g`cl8bage4.+4.+8de
	l4.ff4g8aa4b8`cb4a8g4.+8l8ed	c4.r"ggl4fedl8edc8+4.+4.@1"a#d#g			}
#TR2b={	o5
	CHO1(ceg,ce)CHO1(gbd,dg)	CHO2(egb,eg)CHO3(egb,eg)CHO3(gbd,dg)<'cea'1>r-2.[7'ea'8,30][3'dg'8,30]
	CHO2(fac,cf)CHO2(gbd,dg)CHO3(egb,eg)CHO3(dgb,dg)CHO2(ace,ca)	CHO2(dfa,df)CHO2(gbd,dg)CHO1(ceg,ce)	} 
#TR3b={	o5v60q110
	l4"gc8ec8"gc8l8ec"g	l4"bd8gd8"bd8l8gd"b
	l4"g"b8e"b8"g"b8d"b8	ce8ae8ce8ag8
	l4"ac8fc8"bd8l8gd"b	l4"be8ge8ce8l8aec
	l4"f"a8c"a8"gc8ge8	"gc8ec8"gc8l8ec"g		}
#TR4b={	@50Time(31:3:0)v50o4q105'ceg'4.^^}
Time(17:1:0)	PLAY(,	#TR1b,	#TR2b,	#TR3b,	#TR4b,)
//C------------------------------------------------------------------------------
#TR1c={	[a#4.a#4`ca#4.+8gd#	g#4g8+4.+4.+8 cg:
	g2fcd#4.f4.	l4.dfe2 l8d#g]
	g2fcc4.+4d#	g2fcc4.d#4.
	d4.+4.+4.+4.	r4.+4.+4.+4.			}
#TR2c={	o4l4.+4.	'e-gb-''b-df''ce-g'4.^'gb-d'4.	'dgb-''ce-g''cfa''b-deg'
	o5<'e-gb-'2>r-2r4[4 'e-g'8,30]<'dfb-'2>r-2r4[4 'df'8,30]	<'ce-g'1>r-1r4[10'ce-'8,30]
	  <'e-gb-'1>r-1r4[10'e-g'8,30]	<'dfb-'1>r-1r4[10'df'8,30]	<'ce-g'1>r-1r4[10'ce-'8,30]	<l4.+4.v+10'cfa'v+10'dgb'	}
#TR3c={	Time(41:1:0)o5v55
	l4e-g8b-g8df8b-f8	l4e-g8`cg8e-g8l8`cge-
	l4"b-e-8ge-8"b-e-8l8ge-"b-	l4df8b-f8df8l8b-fd	l4"gc8e-c8"gc8l8e-cg	v+5l4"ac8l8fc"a v+10l4"bd8l8gd"b}
#TR4c={	Time(40:1:0)v50o4'e-g"b-'4.'df"b-'4.
	l4.+4.'e-gb-''b-df''ce-g'^	'e-gb-'^'dfb-'^		'ce-g'^v+5'cfa'v+5'dgb'}
Time(33:1:0)	PLAY(,	#TR1c,	#TR2c,	#TR3c,	#TR4c,)
//D------------------------------------------------------------------------------
#TR1d={	@1o6v120
	l4.e^8l8del4.gag4.+4.+4.+4.			l4.e^8l8del4.g`cl8bage4.+4.+8de
	l4.ff4g8aa4b8`cb4a8g^8l8ed			c4.r8l8"ggl4fel8edl4.c^^"a4"g8			}
#TR2d={	o5v70q95
	CHO1(ceg,ce)CHO1(gbd,dg)	CHO2(egb,eg)CHO3(egb,eg)CHO3(gbd,dg)<'cea'1>r-2.[7'ea'8,30][3'dg'8,30]
	CHO2(fac,cf)CHO2(gbd,dg)CHO3(egb,eg)CHO3(dgb,dg)CHO2(ace,ca)	CHO2(dfa,df)CHO2(gbd,dg)CHO1(ceg,ce)		}
#TR3d={	o5v75
	l4"gc8ec8"gc8l8ec"g	l4"bd8gd8"bd8l8gd"b
	l4"g"b8e"b8"g"b8d"b8	ce8ae8ce8ag8
	l4"ac8fc8"bd8l8gd"b	l4"be8ge8ce8l8aec
	l4"f"a8c"a8"gc8ge8	"gc8ec8"gc8l8ec"g		}
#TR4d={	v65o4l4.+4.
	'ceg'^'gbd'^	'egb'^'bce''ace'
	'fac''gbd''egb''ace'	'dfa''gbd''cfg''ceg'	}
#TR5d={	@79o7v35q99
	M(20)l4.er8l8del4.gag4.+4.+4.+4.,70		l4.er8l8del4.g`cl8bage4.+4.+8,70de
	l4.ff4g8aa4b8`cb4a8g^8,70l8ed			l4.cr8l8"ggf4e4l8edc8+4.+4.,70			}
Time(53:1:0)	PLAY(,	#TR1d,	#TR2d,	#TR3d,	#TR4d,	#TR5d,)
//------------------------------------------------------------------------------
#TR1e={	q100l4."aedl8"bcdl4.c^^^			}
#TR2e={	o4l4.'ace'^'dfa''gbd''ceg'^^^		}
Time(69:1:0)	PLAY(,	#TR1e,	#TR2e,)