曲名{"瀬戸口藤吉 告別行進曲風"}
//https://www.youtube.com/watch?v=D2av0JNJrNk
Int LOOP=1

Expression.Frequency(1);
Modulation.Frequency(1);

// シンバルのロテート
Int CYMINIT=0
Int SNAREINIT=0
Int HHINIT=0

Function Snare() {
	Int CC
	IF(TIMIDITY=0) {
		CC=Snare1
	} ELSE {
		IF(SNAREINIT=0) {
			CC=Snare1
			SNAREINIT=1
		} ELSE {
				CC=Snare2
			SNAREINIT=0
		}
	}
	Result=CC
}
Int HHVALUE=0
Function Hihat() {
	Int CC
	Int HHMIN=87
	Int HHMAX=90
	IF(MA7=0 && TIMIDITY=1) {
		IF(HHINIT=0) {
			CC=50
			HHINIT=1
		} ELSE {
			CC=Random(HHMIN,H HMAX)
			IF(CC=HHVALUE) {
				CC=Random(HHMIN,HHMAX)
				IF(CC=HHVALUE) {
					CC=Random(HHMIN,HHMAX)
				}
			}
			HHVALUE=CC
		}
	} ELSE {
		CC=ClosedHiHat
	}
	Result=CC
}

Function Cymbal() {
	Int CC
	IF(MA7=0) {
		IF(CYMINIT=0) {
			CC=CrashCymbal1
			CYMINIT=1
		} ELSE {
			CC=CrashCymbal2
			CYMINIT=0
		}
	} ELSE {
		CC=CrashCymbal1
	}
	Result=CC
}

Function Splash() {
	Int CC
	IF(MA7=0) {
		IF(CYMINIT=0) {
			CC=SplashCymbal
			CYMINIT=1
		} ELSE {
			CC=ChineseCymbal
			CYMINIT=0
		}
	} ELSE {
		CC=SplashCymbal
	}
	Result=CC
}


Function RandV(Int MIN, Int MAX) {
	Str MML="v"
	MML=MML+Random(MIN,MAX)
	MML
}

Str RMML
Function RandR(Int MIN, Int MAX) {
	Str MML
	MML=MML+"r"
	RMML=RMML+"r"
	Int VALUE=Random(0,10)
	IF(VALUE<5) {
		MML=MML+"-"
	} ELSE {
		RMML=RMML+"-"
	}
	Str RAND=Random(MIN,MAX)
	MML=MML+RAND
	RMML=RMML+RAND
	MML
}

Function SyncR() {
	Str MML=RMML
	RMML=""
	MML
}

Function BG(Str MML) {
　　Str BUF=""
    Str FIRST=""
　　Str ML=""
　　Str M
　　Str R
    Str FM
    Int C=0

　　BUF=""
    R=""
　　For(Int i=1; MID(MML, i, 1)!=""; i++) {
　　　　M=MID(MML, i, 1)
　　　　IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
		C++
	  	IF(C<3) {
			FIRST=ML
			ML=FM+M
			FM=""
		} ELSE {
	　　　　　　R=R+"r"+Random(64,640)
　　　　　　　　	BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
	　　　　　　ML=M
		}
　　　　} ELSE {
		IF(C>0) {
　　　　　　	ML=ML+M
		} ELSE {
			FM=FM+M
		}
　　　　}
　　}
　　BUF="Sub"+CHR(123)+FIRST+CHR(125)+BUF+"Sub"+CHR(123)+R+ML+CHR(125)+"r"
　　BUF
}

Function LoopPlay(Str Mml) {
	Str _MML
	For (Int i = 1; i <= LOOP; i++) {
		_MML=_MML + #STR(Mml)
	}
	_MML
}

Int MR_LEN=!16
Int MR_Q=85
Int MR_MIN=192
Int MR_MAX=768
Int MR_INITVOL=100
Int MR_VOL=100
Int MR_CRESC=0
Int MR_CRESC2=0

// マリンバ初期化
Function MRINIT(Int LEN, Int Q, Int MIN, Int MAX) {
	MR_LEN=LEN
	MR_Q=Q
	MR_MIN=MIN
	MR_MAX=MAX
}

// マリンバの両手別のクレッシェンド
Function MRCresc(Int VOL, Int Offset, Int Offset2) {
	MR_INITVOL=VOL
	MR_CRESC=Offset
	MR_CRESC2=Offset2
}

// マリンバの両手同時、rchord.h RCDと同じ関数
Function MCD(Str MML) {
	Str BUF=""
	Str FIRST=""
	Str ML=""
	Str M
	Str R
	Str FM
	Int C=0

	BUF=""
	R=""

	For(Int i=1; MID(MML, i, 1)!=""; i++) {
		M=MID(MML, i, 1)
		IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
		C++
	  	IF(C<2) {
			FIRST=ML
			ML=FM+M
			FM=""
		} ELSE {
				BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
				IF(MR_MAX>0) {
					R=R+"r"+Random(MR_MIN, MR_MAX)
				}
				ML=M
		}
		} ELSE {
		IF(C>0) {
				ML=ML+M
		} ELSE {
			FM=FM+M
		}
		}
	}
	BUF=BUF+"Sub"+CHR(123)+R+ML+CHR(125)+FIRST+"r"
	BUF
}

// マリンバの両手別
Function MR(Str MML1, Str MML2, Int Len) {
	Str MML="Sub"+CHR(123)
	Str BUF1=""
	Str BUF2=""
	Str FIRST1=""
	Str FIRST2=""
	Str ML1=""
	Str ML2=""
	Str M
	Str R
	Str FM1
	Str FM2
	Int C=0

	MR_VOL=MR_INITVOL
	MML=MML+"v"+MR_VOL
	For (Int i=0; i <= (Len / MR_LEN / 2) * MR_Q / 100; i++) {
		BUF1=""
		BUF2=""
		FIRST1=""
		FIRST2=""
		ML1=""
		ML2=""
		
		R=""
		C=0
		For(Int i=1; MID(MML1, i, 1)!=""; i++) {
			M=MID(MML1, i, 1)
			IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
				C++
			  	IF(C<2) {
					FIRST1=ML1
					ML1=FM1+M
					FM1=""
				} ELSE {
						BUF1=BUF1+"Sub" + CHR(123)+R+ML1+CHR(125)
						IF(MR_MAX>0) {
							R=R+"r"+Random(MR_MIN, MR_MAX)
						}
						ML1=M
				}
			} ELSE {
				IF(C>0) {
						ML1=ML1+M
				} ELSE {
					FM1=FM1+M
				}
			}
		}
		BUF1=BUF1+"Sub"+CHR(123)+R+ML1+CHR(125)+FIRST1+"r%"+MR_LEN
		R=""
		C=0
		For(Int i=1; MID(MML2, i, 1)!=""; i++) {
			M=MID(MML2, i, 1)
			IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
				C++
		  		IF(C<2) {
					FIRST2=ML2
					ML2=FM2+M
					FM2=""
				} ELSE {
					BUF2=BUF2+"Sub" + CHR(123)+R+ML1+CHR(125)
					IF(MR_MAX>0) {
						R=R+"r"+Random(MR_MIN, MR_MAX)
					}
					ML2=M
				}
			} ELSE {
				ML2=ML2+M
			}
		}
		BUF2=BUF2+"Sub"+CHR(123)+FIRST2+R+ML2+CHR(125)+"r%"+MR_LEN

		MML=MML+BUF1
		IF(MR_CRESC2 == 0) {
			MR_VOL=MR_VOL+MR_CRESC
			MML=MML+"v"+MR_VOL
			MML=MML+BUF2
			MR_VOL=MR_VOL+MR_CRESC
			MML=MML+"v"+MR_VOL
		} ELSE {
			IF(i < (Len / 200 )) {
				MR_VOL=MR_VOL+MR_CRESC
				MML=MML+"v"+MR_VOL
				MML=MML+BUF2
				MR_VOL=MR_VOL+MR_CRESC
				MML=MML+"v"+MR_VOL
			} ELSE {
				MR_VOL=MR_VOL+MR_CRESC2
				MML=MML+"v"+MR_VOL
				MML=MML+BUF2
				MR_VOL=MR_VOL+MR_CRESC2
				MML=MML+"v"+MR_VOL
			}
		}

		MML=MML+" "
	}
	MML=MML+CHR(125)+"r%"+Len

	MR_VOL=MR_INITVOL
	MML=MML+"v"+MR_VOL
	MML
}

#sub1={
	l16
	q88
	e-re-e- gre-g b-4. e-g
	b-rgg b-r>e-r d4. e-d
	c8<b-a- grfr gre-rcrfr
	e-4 Sub{d20e-20d20c20d20}r4 e-2
	r1
}

#melody2={
	l4 q93
		r-4 e-
		a-.a-8 a->c<
		b-.a-8 b->c<
		a-.a-8>ce-
		f2.f
		e-.c8c<a-
		b-.a-8b->c<
		a-.f8fe-
		a-2.
		[>f
			e-.c8c<a-
			b-.a-8b->f
			e-.c8ce-
			f2.f8a-8
			e-.c8c<a-
			b-.a-8b->c8<b-8
			a-.f8fe-
			a-2.
		]r
}

#melody2temp={
		>f
			e-.c8c<a-
			b-.a-8b->f
			e-.c8ce-
			f2.f8a-8
			e-.c8c<a-
			b-.a-8b->c8<b-8
			a-.f8fe-
			a-2.
		r
}

#melody21={
	MRINIT(!26, 98, 256, 384) MRCresc(110,-7)
	r-4 @(Marimba) MR("o5e-","o5e-",!4)
	MR("o5c","o5a-",!4.)MR("o5c","o5a-",!8) MR("o5c","o5a-",!4)MR("o5e-","o6c",!4)
	MR("o5e-","o5b-",!4.)MR("o5e-","o5a-",!8) MR("o5e-","o5b-",!4)MR("o5e-","o6c",!4)
	MR("o5c","o5a-",!4)MR("o5c","o5a-",!4)MR("o5e-","o6c",!4)MR("o5a-","o6e-",!4)
	MR("o5a->d-","o6f",!2.)MR("o5a->d-","o6f",!4)

	MR("o5a->c","o6e-",!4.)MR("o5e-","o6c",!8)MR("o5e-a-","o6c",!4)MR("o5c","o5a-",!4)
	MR("o5e-","o5b-",!4.)MR("o5e-","o5a-",!8)MR("o5e-","o5b-",!4)MR("o5c","o6c",!8)MR("o5b-","o5b-",!8)
	MR("o5d-","o5a-",!4.)MR("o5d-","o5f",!8)MR("o5d-","o5f",!4)MR("o5d-","o5e-",!4)
	MR("o5c","o5a-",!2)r4 MR("o5a->d-","o6f",!4)

	MR("o5a->c","o6e-",!4.)MR("o5a-","o6c",!8)MR("o5e-","o6c",!4)MR("o5c","o5a-",!4)
	MR("o5e-","o5b-",!4.)MR("o5e-","o5a-",!8)MR("o5e-","o5b-",!4)MR("o6d-","o6f",!4)
	MR("o6c","o6e-",!4.)MR("o5a-","o6c",!8)MR("o5a-","o6c",!4)MR("o5a-","o6e-",!4)
	MR("o5a->d-","o6f",!2.)MR("o6f","o6f",!8)MR("o6a-","o6a-",!8)

	MR("o5a->c","o6e-",!4.)MR("o5a-","o6c",!8)MR("o5a-","o6c",!4)MR("o5c","o5a-",!4)
	MR("o5e-","o5b-",!4.)MR("o5e-","o5a-",!8)MR("o5e-","o5b-",!4)MR("o6c","o6c",!8)MR("o5b-","o5b-",!8)
	MR("o5d-","o5a-",!4.)MR("o5d-","o5f",!8)MR("o5d-","o5f",!4)MR("o5d-","o5e-",!4)
	MR("o5ce-","o5a-",!2)r4
}

#melody22={
	l4
	r- q91
	>d-
	c.<a-8a-f
	g.f8g>d-
	c.<a-8a->c
	d-2. d-8f8
	c.<a-8a-e-
	g.f8g4g4
	f.d-8 d-d-
	c2.r4
}

#back1={
	#gbe={BG(gb->e-<)}
	#fbd={BG(fb->d<)}
	#ace={BG(a->ce-<)}
	#gbde={BG(gb->d-e-<)}
	#gbd={BG(gb->d-<)}
	q60
	l8 #gbe r [#gbe] l4. #gbe l16 [#gbe]
	l8 #gbe r [#gbe] l4. #fbd l16 [#fbd]
	l8 #ace r [#fbd] l4 #gbe #ace
	#gbe #fbd q30 [#gbe]
	v-10 [#gbe] v-10 [#gbde]
}

#back2={
	#ace={BG(a->ce-<)}
	#adf={BG(a->d-f<)}
	l4 q25
	[4 #ace]
	#gbe #gbd [#gbe]
	[4 #ace]
	[4 #adf]
	[4 #ace]
	#gbe #gbd [#gbe]
	[3 #adf] #gbde
	[3 #ace] r

	[
		[4 #ace]
		#gbe #gbd [#gbe]
		[4 #ace]
		[4 #adf]

		[4 #ace]
		#gbe #gbd [#gbe]
		[3 #adf] #gbde
		[3 #ace] r
	]
}

#bass1={
	l8 q75
	e-re-r e-e-b-g
	e-rb-g b-rrr
	a-4b-b- e-ra-r
	b-rb-r e-re-r
	q75
	[4e-r]
}

#bass2={
	l8 q75
	[4 a- r]
	[4 e- r]
	[4 a- r]
	[4 d- r]
	[3 a- r] cr
	[3 e- r] cr
	[3 d- r] e-r
	[3 a- r] rr

	[
		[3 a- r] cr
		[4 e- r]
		[3 a- r] cr
		[3 d- r] fr
		[3 a- r] cr
		[3 e- r] cr
		[3 d- r] e-r
		[3 a- r] rr
	]
}

TR(1)
	@(Trumpet)
	o5
	v120
	#sub1
	LoopPlay(
		@(Trumpet)
		#melody2
		@(Marimba)
		#melody21
		@(Trumpet)
		#melody2temp
	)
	@(Trumpet)
	o6
	q30
	v127
	[3 'ce-a-']

TR(2)
	@(Piccolo)
	o6
	v120
	#sub1
	LoopPlay(
		#melody2
		[16 r1]
		r-4 #melody2temp
	)

	o7
	v127
	l24
	a-rr e-fg a-rr e-fg a-4

TR(3)
	@(Clarinet)
	o5
	v100
	[5 r1]
	LoopPlay([16 r1] #melody22 [16 r1] #melody22)

TR(4)
	@(Piccolo)
	o6
	v120
	[5 r1]
	LoopPlay([16 r1] #melody22 [16 r1] #melody22)

TR(5)
	@(Trombone)
	v110
	o4
	#back1
	v105
	LoopPlay(#back2 #back2)
	l4o4
	q30
	v110
	[3 BG(a->ce-<)]

TR(9)
	@(Tuba)
	v127
	o3
	#bass1
	LoopPlay(#bass2 #bass2)
	l4
	q40
	a-e-a-

TR(10)
	$b{Sub{RandR(80,1536) RandV(100,127) n(Kick1),16}r}//36
	$s{Sub{RandR(80,1536) RandV( 90,127) n(Snare1),16}r}//38
	$S{Sub{RandR(80,1536) RandV( 70, 85) n(Snare1),16}r}//38
	$c{Sub{RandR(80,1536) RandV(100,127) n(Cymbal()),16}r}//49

	Rythm{[3 'b4s4c4']} r8 Rythm{s16s16}
	Rythm{'b8s8c8's16s16'b8s8c8's8 'b4.s4.c4.'s16s16}
	Rythm{'b8s8c8's16s16 s8s8 ['b8s8c8's8]}
	Rythm{'b4s4c4''b8.s8.c8.'s32s32 'b4s4c4'S4}
	Rythm{S4S4S4S4}
	LoopPlay(
		[3
			[7
				Rythm{'b4S4'S4S4S4}
			]
			Rythm{'b4S4'S4S4}r4
		]

		[3
			[7
				Rythm{'b4S4'S4S4S4}
			]
			Rythm{'b4S4'S4S4}r4
		]
	)
	Rythm{[3 'b4s4c4']}

End

##############################################################################
# ese hotaru
# by @nanakochi123456
#
# TiMidiTy Config (v2.0)

dir ../patches/guspat/izumo/inst
dir ../patches/guspat/izumo
dir ../patches/guspat
dir ../patches/sf2_all
dir ../patches/sf2_all/atomic
dir ../patches/sf2_all/fluid3
dir ../patches/sf2_all/realgs
dir ../patches/sf2_all/ultimate
dir ../patches/sf2_all/scc
dir ../patches/sf2_all/GMRBasico
dir ../patches/sf2_all/ForClassicalMusic
dir "../patches/sf2_all/Timbres Of Heaven"

dir ../patches/sf2_part/drumkit
dir ../patches/sf2_part/piano
dir ../patches/sf2_part/guitar
dir ../patches/sf2_part/harpsichord
dir ../patches/sf2_part/ORCHESTRAL
dir ../patches/sf2_part/Clarinet
dir ../patches/sf2_part/chipfont
dir ../patches/sf2_part/bass
dir ../patches/sf2_drum/drum/pettinhouse

dir ../patches/sf2_part/famicom
dir ../patches/sf2_all/musix
dir ../patches/sf2_all/Musyng
dir ../patches/sf2_all/Evanessence2

dir ../patches/sf2_all/Giant
dir ../patches/sf2_all/Titanic
dir "../patches/sf2_part/drum/MPC Drum Library"
dir "../patches/sf2_part/Sonatina Symphonic Orchestra"
dir "../patches/nanako"
dir "../patches/wood"
dir "../patches/sf2_part/Anthonys Philharmonic"
dir "../patches/sf2_collection/3.5G HQ Orchestral/Brass and Woodwinds/Brass"
dir "../patches/sf2_collection/3.5G HQ Orchestral/Brass and Woodwinds/Woodwinds"
dir "../patches/sf2_collection/Free Soundfont Kit/SYNTHS"
dir "../patches/sf2_all/Timbres Of Heaven"
dir "../patches/sf2_part/ORCHESTRAL"

##############################################################################

bank 0
	# trumpet
	56 %font "Papelmedia_Trumpet.sf2" 0 0 amp=250

	# trombone
	57 %font "Papelmedia_Trombone.sf2" 0 0 amp=165

	# clarinet
	71 %font "clarinet_section_1.sf2" 0 0 amp=165

	# piccolo
	72 %font "Woodwinds - Piccolo Solo.sf2" 0 0 amp=110

	# tuba
	58 %font "Brass - Tuba Staccato.sf2" 0 0 amp=280

	# marinba
	12 %font "Marimba.sf2" 0 12 amp=195

drumset 0
	36 %font "Percussion - All Percussion.sf2" 128 0 37 amp=330
	38 %font "Percussion - All Percussion.sf2" 128 0 40 amp=390
	49 %font "Percussion - All Percussion.sf2" 128 0 45 amp=320
	57 %font "Percussion - All Percussion.sf2" 128 0 45 amp=320