Int no=1    　　　//　数字を入力してください　　

/*

　1　里山　　　　・・　数小節のメロディライン。

　2　フォーメーション　-陣形-　・・ファンタジーRPGのバトルシーン風

　3　ドリームアイランド　　　・・○リオとかそういうゲームっぽい。ベンドをいじりまくって出来た系
 
*/

/*　H25.3
一番本格的に作ったのが２です。
すべてTWM2とサクラエディタの両方で再生を確認しています。

ゲームっぽいなーと思ったBGMつめあわせ。なぜ詰め合わせかというとどれもかなり短いので。
（作ってる途中でダレてしまうのです）
ストックがじわじわたまりつつあるのでまた別の機会に。　

最近きゅうにあたたかくなってきましたね。春の陽射しはいいなあといいつつ家でゴロゴロしてることが多いです。

曲集のかたちで出すことが多いですが、コメントに関しては自由にかきたいところだけ書いていただいてかまいません。
皆様のアドバイス、いつも参考にさせていただいてます

ごま*/


If(no=2)//
{


曲名{"フォーメーション　-陣形-"}

コメント{"25.3.18-19 TWM2とSakura editorで再生確認　"}

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

音源初期化　
Include(unison.h);
テンポ(175)
調#()             // C
Include(chord.h);~{あ}={EP.T(70,127,!2^4)}
トラック１
音量(127)//←ダブルクリックで変更できます音色(TremoloStrings)
音階5 
音色(SynthStrings1)
#TR1={l8
EP.T(70,127,!4)ラーー音量戻すソーラ`ドーシー`ドーラーーーv+4ソファv+2ミファソーレーv-6

ラーソーラー`ドーーー`レ`ドシーーーーーソーーーー^

ラーーソーララーーーーーソーーーラソファ＃ーーーレー}
[#TR1]
#ME2={
ラーー　ラー　レラ　ーラー　ーー　
ラーーーソファミードー"ラー
v-5ソー　ーv+2ファ　v+1ソv+1レ　v+1ラー　ーー　ーー
v-2ソーーv+1ファv+1ソレv+2ラーv-3ラ＃ーラソ

ラーー　ラー　レラ　ーラー　ーー　
ラーーーソファミードー"ラー
レミファファミファミファソソファソ
}
#ME2　[r2r4]#TR1
TR　12l8音色(Violin)q80 M.W(2,20,!1)v120　V　114//REV(10)

[#TR1　v-2]

v112
#ME2　　l4ファミファソララ＃　v127　#TR1
//Mute(2)
TR　2　　q88　　v55　音色(RockOrgan)//P(97)
[「レファラ」2^4↓「ソシレ」2^4↑「レファラ」2^4「レファラ」2^4
「レファラ」2^4↓「ソシレ」2^4↑「レファラ」2^4↓「ソシレ」2^4↑

  l8o5v77音色(ElectricPiano1)q80
    [3#Dm v+2][v+2　#Dm　：r]　[3「ファラ`ド」4]↓ l4  #G#G#G↑「レファ＃ラ」2^4音色(RockOrgan)v80    q98]

TR　3//音色(Trombone)
v63 音色(FrenchHorn)P(30)//音色(AltoSax)
#TR3={

　l8 
   [4#Dm v+6]r#Dm
  l4
  #G#G#G
  
 　l8 
   [4#Dm v+2]r#Dm v-4ソファミファソレv+4//l4  [3#Dm]
  

  l8　v-3
    [4#Dm]r#Dm
  l4[3「シソレ」v+1] 
  l8　
    [4#Dm]r#Dm
  l4EP.T(90,100,!4,90,127,!2)q104「シ"ソレ」^^  //#G#G#G
  q99
  あ「"レファ"ラ」2^4「"ファラド」2^4あ「"ソシ"レ」2^4「"レファ＃"ラ」2^4}
  
  q60
  #TR3
  
  [12r2r4] [16r2r4]
  q60
  #TR3

  
  TR　13v56 P(85)音色(Trumpet)EP.T(90,127,!8)M.W(0,30,!1)
  [#TR3　q60v62]
    [14r2r4]
    q90REV(20)
  v127l4ファミファソララ＃　　v60　q60　#TR3
  TR  4音色(FingerBass)音色(SynthBrass2)v101q80 
  OctaveUnison(l8
  o3 
  [  "レレ レ"レ レレ :"レー レー "レー ]ソーファーレー
  "レレ レ"レ レレレーレー"レ^ "レレ レ"レ レレ ソーファーレー
  レー レr  レr "ファッ"ファッ"ファr"ソッッ"ソッ"ソレーーーーー
  
   
  )
  o4v120q85
  [  "レレ レ"レ レレ :"レー レー "レー ]ソーファーレー
  "レレ レ"レ レレレーレー"レ^ "レレ レ"レ レレ ソーファーレー
   v107　q98　OctaveUnison(レー ーレ  rレ "ファッ"ファッ<"ファr"ソッッ"ソッ"ソレーーーーー)
  [14r2r4]q80l4o5v.T(70,127,1)ファミファソララ＃　　
  v107
   OctaveUnison(l8
  o3 
  [  "レレ レ"レ レレ :"レー レー "レー ]ソーファーレー
  "レレ レ"レ レレレーレー"レ^ "レレ レ"レ レレ ソーファーレー
  
   
  )
  TR 5l8音色(OrchestralHarp)↓v.T(50,127,!1)q90P(40)
  [11r2r4]レミファ＃ラ`レ`ファ＃
  v.T(80,95,!1)↑q400
  [11r2r4]レミファ＃ラ`レ`ファ＃
  ↓v.T(59,127,!1)q73P(40)
 [[4ラ＃`レ`ファ`ラ`ファ`レ]：
 [レファララファレド＃ーミーソー]] 
 [r2r4]
  l8
   
[10r2r4] [4#Dm]r#Dm　l4[3#F]l8　#G　r　r#G　r#G　v.T(70,125,!2^4,125,99,!2^4)q220「レファ＃ラ」ミファ＃ラ`レ`ファ＃

  TR　6
  音色(Timpani)o4q40REV(70）
  l8
  [3v127ドr　rv-10ド　rr　ドrドrドr
  
  v119ドr　rv-8ド　rr　ドr　ドr　rr]↓REV(20）
 OctaveUnison(
  [3v127ドr　rv-10ド　rr　ドrドrドr
  
  v109ドr　rv-8ド　rr　ドr　ドr　rr])
  
  [3v111ドr　rv-10ド　rr　ドrドrドr
  
  v109ドr　rv-8ド　rr　ドr　ドr　rr]
  
   OctaveUnison(
  [3v127ドr　rv-10ド　rr　ドrドrドr
  
  v109ドr　rv-8ド　rr　ドr　ドr　rr])
  　TIME(1:1:0)
   
    
　　　  TR　8音色(ReverseCymbal)
	  //　"g2^4
	[24r2r4][15r2r4]v127　V　127あ「c"a」2^4
	　　　  TR　9音色(Applause)
	  //　"g2^4
	[24r2r4][15r2r4]　あ「c"a」2^4
	 TR 7 l4q98音色(Strings2)v105
 [24r2r4]
[「"ラ＃ファラ」ーーーーー
「"ラ＃ファラ」ーーーーー
：v-3
「レファラ」ーーv-3「ド＃ミラ」ーー
「レファラ」ーー「ド＃ミソ」ーーv104]「ドミソ」ーーーーー「"ラド＃ミソ」ーー「ソミ"ラ」ーー


//_リ ズムトラック

トラック10;          // トラックの設定
チャンネル10;        // リズムを使うには必ずチャンネルを10番にする

~{ど}={n(Kick1),}    // 楽器の割り当て
~{た}={n(Snare1),}
~{つ}={n(ClosedHiHat),}
~{ち}={n(OpenHiHat),}
~{ぱ}={n(CrashCymbal1),}

時間(1:1:0);         // (小節:拍:ティック)でタイムポインタを移動します。
音色(StandardSet)    // 楽器設定     エディタ左側のコマンド挿入タブで一覧から選べます。
音量１２０      l8   

V　97
[12r2r4]REV(30)v70 
  「"ラ＃`ラ」8l16v-8"ファ＃"ファ＃  `ラんv-7"ファ＃  ん"ファ＃ん
  l8r v70`ラッ`ラッ`ラッ
  
  v70
  「`ラ」8l16v-8"ファ＃"ファ＃  `ラんv-7"ファ＃  ん"ファ＃ん
  l8r v70`ラッ`ラッ`ラッ
 v69 
[ `ラv-9"ファ＃"ファ＃  ]v70`ラッ`ラッ`ラッ 

v67[ `ラv-8"ファ＃"ファ＃  ]v67`ラッ`ラッ`ラッ //[ラ＃ラ＃v-8"ファ＃]v60"レ＃ッv-8 "d#rr
[3r2r4]v75ぱ4r2
[13r2r4]r2r4REV(50)音色(OrchestraSet)v66[12た16v+3]l8た^^「どた」^^//v90l16「たど」どどr
//[11r2r4]v75ぱ4r4
// 0~127まで
　


　

 }

If(no=3)
{
ResetGS
曲名{"ドリームアイランド"}　//TWM2　or　SAKURAエディタ 2013.3
Tempo 136


TR 11
音色(TaikoDrum)//@ 119,8
V 120
v.N(127,107)
EP 127　q20
<<<<
BR 45
p.W(123,30,!8.)//P(70)
[[3g+]l16grg+g+l4]　[3g+]l16grg+g+l4v-7[3g+v+5]v-15
gv+5g+v+5gv+5g+l16v127V　120grg+g+v(110)l4[[3g+]l16grg+g+l4][8g+][8g+]

TR　1
BR 87
音色(ChurchOrgan)
PitchBend.onNoteWaveEx((-$2000,0,!4),(0,-$2000,!4));
PitchBend.Frequency(3)l1v88
gfgv-5 frrv60gfTIME(12:1:0)v70fg


TR　2
BR 87o3
音色(ReedOrgan)
PitchBend.onNoteWaveEx((-$2000,0,!4),(0,-$2000,!4));
PitchBend.Frequency(3)l1v115gf
[3r1]v100gfv90g8r8r[r1]v70rrg8

TR　3
l16　v.N(127,65,100)o6音色(AcousticBass)q90//音色(Harpsichord)P(70)音色(SteelcGuitar)音色(Atmosphere)V 100
[4gfd]
TIME(2:1:0)
[4fec]rrfr
[4gfd]rrrrv80
l8[4fv+6ev+6cv+2]rrv110fr　//v.N(110,65,95)
l16[4[4gfd]rrrr[4fec]rrfr]
Mute(4)
TR　4l16v.N(50,70,050)>q60//　音色(Kalimba)音色(Koto)q40
[4gfd]
TIME(2:1:0)
[4fec]rrfr
[4gfd]rrrrv60
l8[4fv+4ev+4c]rrv+7fr

TIME(6:1:0)l16v.N(50,70,050)

[3[4gfd]rrrr[4fec]rrfr] 
　


TR　7v 60l16 >音色(NewAgePad)
//[4rrb]rrrr[4rra]rrrr
TIME(12:1:0)l16p.W(123,30,!8.)v50音色(Agogo)

[4fec]rrfr[4fec]rrfr

TR　5P(85)q75v115音色(TubularBells)M(10)CHO(20)//REV(20)
//
[3r1]ファーv+2ソーv+3ラーv+4`ド`ファ//v120

TR 12
音色(BreathNoise)
V 127
v 127
EP 127
<<<<
BR 45TIME(10:1:0)
p.W(123,30,!8.)
[16g+][4g+v-25]

TR 6v.N(92,84)q40音色(Dulcimer)EP.T(50,127,!16)P(62)//
[[8「gb`d」8][7「fa`c」8]：v+7「fa」8v.N(90,84)]q90　[5「fc」8v+2]　rv127EP.W(90,127,!16)「`f"ffa`c」8r8
EP.W(50,127,!16)
v.N(95,84)q42[[8「"ggb`d」8][7「"ffa`c」8]「fa」8]g2g2f2f2


音階5 音符4トラック10;          // トラックの設定
チャンネル10;        // リズムを使うには必ずチャンネルを10番にする
Key(0)
~{ど}={n(Kick1),}    // 楽器の割り当て
~{た}={n(Snare1),}~{ぺ}={n(Slap),}~{き}={n(HighQ),}
~{つ}={n(ClosedHiHat),}~{で}={n(Kick2),} 
~{ち}={n(OpenHiHat),}~{わ}={n(RideCymbal2),}
~{ぱ}={n(CrashCymbal1),}~{を}={n(ScratchPush),}

時間(1:1:0);         // (小節:拍:ティック)でタイムポインタを移動します。
音色(StandardSet)    // 楽器設定     エディタ左側のコマンド挿入タブで一覧から選べます。
  
BR 87V　50
q50
PitchBend.onNoteWaveEx((-$2000,0,!4),(0,-$2000,!4));
PitchBend.Frequency(3)

[l16    どんつんたんつv124「どで」 どv120んつどv90「どちぺ」んつん

[v117どんつん「たどき」んつ「どで」「どで」んつどv110「たぺ」どつん]音符４     どつたつ  どつたつ  ]
時間(5:3:0)
V　110　「を」2　V　50
 }

If(no=1)
{//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.372)
//------------------------------------------------------------------------------
曲名{"たけのこときのこの里山"}
作者{""}
コメント{"&がたまにききませぬ"}
//------------------------------------------------------------------------------
音源初期化
拍子4,4
テンポ(75)
調#()             // C



TR　2　q95音色(Recorder)>EP.W(70,127,!2)　EP.Frequency(!32)P(90) M.W(10,30,!2)v120
r8[[l16Slur(1)d24&e^^b^^a^l8：gf#d"b ]`d`c+ba
l16d32&e^^b^^a^l8gf#d"b："bc#"bc#d#^^^]
eegee^^^

TR　4o6音色(Ocarina)P(57)v35　
r8　q99[M.W(10,30,!2)EP.T(70,127,!2)`e^^r16`d`e^r`g`e^^r16：`d`e`cb^]
>"b"bde^






 }