Int X = 1   //←繰り返したい回数を入れてください。


/*

  リピート部分は１回につき約8分かかります。
  最大で14回まで繰り返して再生できます。
　15以上の数値を入力しても14回までしか繰り返しません。


　　　時間の目安

　 1回：約12分
　 3回：約28分
　 7回：約60分 （約1時間）
  14回：約116分（約２時間）

*/


TrackName{"ヒーリング用BGM"}
Copyright{"朱峨"}

System.MeasureShift(1)
ResetGS;ResetGM;ResetXG
TrackSync
TimeSignature 3,4
Tempo(24)

//定義-----------------------------------------------------------------------

Int A = 1

#tc1 ={r1}  //１小節休み
#tc2 ={[2r1]}  //２小節休み
#tc4 ={[4r1]}  //４小節休み
#tc8 ={[8r1]}  //８小節休み
#tc16 ={[16r1]}  //１６小節休み

#MeloC={r-12`c
  g^^  ^^e24f24  g^^  ^^`c
  g^^  ^^e  c^^  ^^r}
#MeloG={r-12`c
  bab  `cb`c  `d`cb  `cba
  gf#g  agf#  d^^  ^^r}
#MeloF={r-12d
  cde  fga  `f`e`d  `cb-a
  gfg  agf#  g^^  ^^r}
#CelloG1={r-12`c
  b^^  ^^g  d^^  ^^^
  gf#g  d^^  ^^"b  c^d
  e^^  ^^^  g^^  ^^^
  d^^  ^^^  ^^^  ^^d}
#CelloF={
  c"b-c  def  gfg  agf
  e^^  g^^  c^^  ^^^
  ^^"b-  cdc  ded  efa
  `c`d`c  b-`c`d  `e`f`g  `a`b-``c}
#CelloG2={
  b^^  ^^^  a^^  ^^^
  g^^  ^^^  ^^^  ^^^
  b^^  ^^^  a^^  ^^^
  g^^  ^^^  ^^^  ^^r}
#AccCl={[8cf0g0,,,1`c^]}
#AccGl={[8"gc0d0,,,1g^]}
#AccFl={[8"f"b-0c0,,,1g^]}
#AccCh={[2rf0g^,301,,1  rf0g^,301,,1  rf0,,50g^,301,,1  rf0,,50g^,301,,1]}
#AccGh={[2rc0d^,301,,1  rc0d^,301,,1  rc0,,50d^,301,,1  rc0,,50d^,301,,1]}
#AccFh={[2r"b-0c^,301,,1  r"b-0c^,301,,1  r"b-0,,50c^,301,,1  r"b-0,,50c^,301,,1]}
#CodeC={[2"g0,,50c0`c0`g1]}
#CodeG={[2""d0,,50"g0b0,49`d1]}
#CodeF={[2""c0,,50"f0a0,49`c1]}
#Water={c0g0,,,20`c1+1,,,40}


#Repeat={

Track(1)@5,8l12o5V(120)v(100)EP.W(100,30,!1)M.W(0,100,!1)P(64)REV(100)q121
>[4#MeloC]<[4#MeloG]
[4#tc2][2#tc2][2#tc2]
>[4#MeloC]<[4#MeloG]

Track(2)@5,8l12o4V(80)v(100)EP.W(100,30,!2)M.W(30,100,!1)P(96)REV(100)q101
[4#AccCl][4#AccGl]
[4#AccCl][2#AccGl][2#AccFl]
[4#AccCl][4#AccGl]

Track(3)@5,8l12o5V(80)v(100)EP.W(100,30,!2)M.W(50,100,!1)P(32)REV(100)q101
r256
[4#AccCh][4#AccGh]
[4#AccCh][2#AccGh][2#AccFh]
[4#AccCh][4#AccGh]
r-256

Track(4)@50l12o4V(50)v(100)EP.W(80,100,!2,100,70,!2)M.W(30,50,!1)P(64)REV(100)q99
[4#CodeC][4#CodeG]
[4#CodeC][2#CodeG][2#CodeF]
[4#CodeC][4#CodeG]

Track(5)@43l12o4V(120)v(100)EP.W(50,100,!8,100,30,!2)M(0,80,!1)P(32)REV(100)q99
[4#tc2][4#tc2]
[4#MeloC]<#CelloG1#CelloF
>[4#MeloC]<[2#CelloG2]

Track(6)@123,4l12o5V(30)v(100)EP.W(70,100,!1,100,70,!1)M(50)P(96)REV(100)q251
[4#Water][4#Water]
[4#Water][2#Water][2#Water]
[4#Water][4#Water]

}

//ここまで-----------------------------------------------------------------------

//曲情報-----------------------------------------------------------------------


//intro

Time(1,1,0)

Track(1)@5,8l12o5V(120)v(100)EP.W(100,30,!1)M(0)P(64)REV(100)q121
[4#tc2]

Track(2)@5,8l12o4V(80)v(100)EP.W(100,30,!2)M.W(30,100,!1)P(96)REV(100)q101
[2#tc2][2#AccCl]

Track(3)@5,8l12o5V(80)v(100)EP.W(100,30,!2)M.W(50,100,!1)P(32)REV(100)q101
[4#tc2]

Track(4)@50l12o4V(50)v(100)EP.T(0,100,!1+1+1+1+1+1+1+1)M(0)P(64)REV(100)q99
  "g0,,50c0`c0`f0`g1+1+1+1+1+1+1+1

Track(5)@43l12o4V(120)v(100)EP.W(50,100,!8,100,30,!2)M(0,80,!1)P(32)REV(100)q99
[4#tc2]

Track(6)@123,4l12o5V(30)v(100)EP.W(70,100,!1,100,70,!1)M(50)P(96)REV(100)q251
[4#Water]

//-----------------------------------------------------------------------

//repeat

[14If(A<=X){#Repeat}
  A = A+1]

//-----------------------------------------------------------------------

//ending

Track(1)o5
>[4#MeloC][4#tc4]

Track(2)o4
[4#AccCl][4#tc4]

Track(3)o5
r256
[4#AccCh][4#tc4]
r-256

Track(4)o4
[4#CodeC]
EP.T(70,100,!1,100,30,!1+1+1)
  "g0c0`e0`c0`g0`e0`b1+1+1+1
  #tc2

Track(5)o4
[4#tc2][4#tc4]

Track(6)o5
[4#Water][4#Water]

//ここまで-----------------------------------------------------------------------