//------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.373) //------------------------------------------------------------------------------ 曲名{"[lots of love] by sonny"} 作者{"sonny"} コメント{""} 音源初期化 Include(unison.h);Include(delay.h);Include(fadeio.h); テンポ(175) BR(24)//185 STR DYN={EP.onCycle(!4,117,127,117,122)} INT z=000//キー調整用 02 INT O=117 //音量 INT OR=110 //rhythm vol. TR 1 V(O) v(120) DYN @(038) P(064) l(008) o(002) t__2.onCycle(!16, 0, 4)TrackKey(z) q 100 EP.onCycle(!8,120,110,127,110)//**** ベース TR 4 V(O) v(090) DYN @(12) P(064) l(008) o(006) t__2.onCycle(!16, 0, 4) TrackKey(z-5) q 99 //EP.WE(90,127,23, 127,110,23)//**** 歌 TR 7 V(O-40) v(127) DYN @(12) P(127) l(008) o(006) t__2.onCycle(!16, 0, 4)TrackKey(z-5) q 99 //**** 歌のハモリ TR 6 V(O-20) v(127) DYN @(031) P(000) l(008) o(004) t__2.onCycle(!16, 0, 4)FineTune(64) TrackKey(z-2) //**** リズムギター3（Ａのスタイル） TR 8 V(O-20) v(127) DYN @(031) P(64) l(008) o(004) t__2.onCycle(!16, 0, 4)FineTune(62) TrackKey(z) //**** リズムギター（低音で刻んだり） TR 9 V(O+10) v(127) DYN @(031) P(000) l(008) o(004) t__2.onCycle(!16, 0, 4) FineTune(64) TrackKey(z) //**** リズムギター２（コードストローク）//@20good! TR 11 V(O-10) v(125) DYN @(031) P(127) l(008) o(005) t__2.onCycle(!16, 0, 4)FineTune(65)TrackKey(z) q 199 M 40 //**** リードギター //@20 を白玉でならしたりしてみよう Mute 6 Mute 8 // ********** リズムトラック ************************* TR 22 Channel 10 V(127) DYN v(90) l(004) 音色(PowerSet)t__2.onCycle(!16, 0, 4) BR(1) //スネアにだけこれを適用させたい $d{n(Kick1)} //****キック**** $D{'n(36) n(36),,,,72 '}//どど $s{'n(40),,,97 n(38),,,40 n(65),,,50,20 '} //****スネア**** $S{'n(Snare2),,,97 n(38),,,40 n(40),,,97,72 n(38),,,40,72'}//たっった $m{'n(Snare2),,,97 n(38),,,40 n(Snare2),,,97,24 n(38),,,40,24'}//たた $Q{n(HighTom1),}$W{n(HighTom2),}$E{n(MidTom1),}//****タム**** $R{n(MidTom2),}$T{n(LowTom1),}$Y{n(LowTom2),} //****タム**** $e{n(Snare2),?,,105} $h{n(ClosedHiHat),} //****閉じたハイハット**** $p{n(PedalHiHat)} //****足ふみハイハット**** $H{n(OpenHiHat),?,,110} //****アクセント用の開いたハイハット**** $O{n(OpenHiHat),?,,75}//****リズム用の開いたハイハット**** $x{n(PedalHiHat),?,,1}//****ハイハット消音**** $C{n(CrashCymbal1),?,,107}$c{n(CrashCymbal2),?,,107}//****シンバル**** $P{n(SplashCymbal),?,,107}//****リズム用弱いシンバル**** $I{n(RideCymbal1),} //****リズム用ライドシンバル**** $X{n(Maracas),}//****マラカス**** //***** キック ************************************************************************* TR 10　 //***** スネア ************************************************************************* TR 21 //***** どらむ ************************************************************************* TR 22 l8 Rhythm{ {C_C_C_C_} _______s //INTRO {C_O_O_O_ O_O_O_O_ O_O_O_O_ O_O_O_O_| C_O_O_O_ O_O_O_O_ O_O_O_O_ O_O_O_O_} d_sd_ds_ d_sd_ds_ d_sd_ds_ d_sd_dS_| d_sd_ds_ d_sd_ds_ d_sd_ds_ d_sd_dS_ //AMERO {C_O_O_O_ O_O_O_O_ O_O_O_O_ O_O_O_O_| O_O_O_O_ O_O_O_O_ O_O_O_O_ O_O_O_O_} d_sd_ds_ d_sd_ds_ d_sd_ds_ d_sd_dS_| d_sd_ds_ d_sd_ds_ d_sd_ds_ d_sd_dS_ {O_O_O_O_ O_O_O_O_ C_O_C_O_ O_O_O_O_|} d_sd_ds_ d_sd_ds_ d_sd_ds_ d_sdmdS_ //AMERO2 {C_O_O_O_ O_O_O_O_ O_O_O_O_ O_O_O_O_| O_O_O_O_ O_O_O_O_ O_O_O_O_ O_O_O_O_} d_sd_ds_ d_sd_ds_ d_sd_ds_ d_sd_dS_| d_sd_ds_ d_sd_ds_ d_sd_ds_ d_sd_dS_ {O_O_O_O_ O_O_O_O_ O_O_O_O_ O_O_O_O_|} d_sd_ds_ d_sd_dmE d_s_d_sR dmddmdS_ //BMERO {C_p_p_p_ p_p_p_p_ p_p_p_p_ p_p_pHpc| __O_O_O_ O_O_O_O_ H_H_H_H_ C_H_c___} d___s___ d___s___ d___s___ dmE_ds_d _dsd_ds_ d_sd_ds_ d_s_d_s_ d_sdl16ssQWERTY l8 //SABI {C_O_O_OH hHhHhHhH |C_O_O_O_ O_O_O_O_} d_sd_dsd _dsd_dmR d_sd_dsd D_ssddsE {O_O_O_O_ O_O_O_O_ |O_O_O_O_ c_O_O___} d_sd_dsd _Esd_dms |d_s_d_s_ d_s_mEsE {C_O_O_OH hHhHhHhH |C_O_O_O_ O_O_O_O_} d_sd_dsd _dsd_dmE d_sd_dsd D_sRdDsR {O_O_O_O_ O_O_O_O_ |O_O_O_O_ c_O_O___} d_sd_dsd _Esd_dms |d_s_d_s_ d_s_mESs {C_p___p_ __p___p_ |p_p_p_p_ p_p_p_p_} d_sd_dsd _dsd_ds_ d_sd_dsd __s_d_S_ {O_O_O_O_ H_H_H_H_ |C_c_C_c_ C_c_____} d_sd_ds_ d_sd_ds_ |d_sd_ds_ l16 ssEE ssRR ssRR TTYY l8 //SABIATO {C_O_O_OC _OO_O_O_ |C_O_OC_c __O_O_O_} d_sd_dsd __sd_ds_ |d_sd_dsd __S_ddmm {C_O_O_OC _OO_O_O_ |C_O_OC_c __HpHpHp} d_sd_dsd __sd_ds_ |d_sd_dsd _ds[d16]s[d16]s[d16] {C_O_O_OC _OO_O_O_ |C_O_OC_c __O_C8.C8.C8} d_sd_dsd __sd_ds_ |d_sd_dsd _dsds8.s8.s (EP.T( 127, 0, !1+1+1+1 )) {C_O_O_OC _OO_O_O_ |C_O_OC_c __O_O_O_} d_sd_dsd __sd_ds_ |d_sd_dsd _dsd_ds_ } //***** おかず関連 *********************************************************************** TR 23 Rhythm{ } //***** ベース ************************************************************************** TR 1 > #BASS={r1-8r "b&ccc^ccc "b&ccc^ccc e^ee ^"bed c^cc^ccc "b&ccc^ccc e^ee^eee< e^ee^eee >e^ee^eed c^cc^ccc c^cc c#^c#c# d^dd^dde^ee^eed c^cc^ccc c^cc c#^c#c# d^dd^ a`cb< //B Slur (1) grgr `d^&a16r. f#rf#ra^f#^ erer b^&e16r. l16`d`d`d`d l8`d&`c f#^a |> c^^cc^cc^< g^gg^gg^> c^c^ c+^c+^ d^dd^dd^ //sabi [c^cc^ccc ^c^c^cc^ c^cc^cc c^c^ c+^c+^ d^dd^dd^] c^cc^ccc ^c^c^cc^ c^cc^cc^ c+^c+c+^c+c+^ d^dd^dd^ d^dd^dd^ // c^cc^cc c^^cc^cc^ d^d^ c^cc^cc c^^cc^cc^ d^d^ c^cc^cc c^^cc^cc^ d^d^ EP.T( 127, 0, !1+1+1+1 ) c^cc^cc c^^cc^cc^ d^d^ } #BASS; //***** 歌 ******************************************************************************* TR 4 #UTA={r1 [8r1] //intro //[2[4r1]] //A-mero //+4 [2 crdrercdrerf^edcd^dd^cc^rrrrrrrr crdrercdrereeedcd^^d^cc^rrrrrrrr cccccdec^rrrrrrrrcc^cd^rrrrrr] //B-mero e^^^e^dd^^^dfedd^dd^dee^rrrdedc^rrrcdef^e^drcrcccrc^deg^rrr rrrr //C-mero [2gggggcrdrcrcrcd^dd^cc^rrrrrr crccrdecrrrrrrrcccc^cd^rrrrrrr] gggggcrdrcrcrcd^dd^cc^rrrrrr cccc^de eaaaa^geg^^^^^rrrrrrrrrrr crdrercdrercdecde^rrrd^c^rrrrrrr crdrercdrercdecde^rrrg^c^rrrrrrr crdrercdrercdecde^rrrd^c^rrrrrrr EP.T( 127, 0, !1+1+1+1 ) crdrercdrercdecde^rrrg^c^rrrrrrr } Sub{#UTA;}>Sub{#UTA}>#UTA; //***** ハモリ1 ******************************************************************************* TR 7 #HAM={r1[8r1]//intro //[2[4r1]] //A-mero [2 crdrercdrerf^edcd^dd^cc^rrrrrrrr crdrercdrereeedcd^^d^cc^rrrrrrrr aaaaab`cg^rrrrrrr rrraargabrrrrrrr] //B-mero g^^^ ^^^^a^^^`cbg+fa^aa^a`c`c^rrrb`cba^rrrab`c`c^`c^`cr`crcccrc^d`cb^rrr rrrr //C-mero [2>ccccc crccrdecrrrrrrreeee^deg^rrrrrrr] gggggcrdrcrcrcd^dd^cc^rrrrrra aaaa^b>c cdddd^cc#HAM; //***** リズムギター1 ******************************************************************** TR 8 INT A=179 INT B=20 ~{も}={t0} #GUIT={r1 //イントロ q.N(A,A,A,A,B,B,B,99,B,B,A,B,B,B,A,B) Sub{[16c][8"b][8"e] |[16c][8"b][8"g] }も も[16g][8d][8"b] |[16g][8d][8d] //A v-10 [q.N(A,A,A,A,B,B,B,99,B,B,A,B,B,B,A,B) Sub{[24"g][8"g]}も[24d][8d] | Sub{[24"e][8"e]}も[24"b][8"b] //A-3 Sub{[8c][8"g]}も[8g][8d] |q.N(A,A,A,A,B,B,B,B)Sub{[8c][8d]}も[8g][8a]] //B r-8 q60"g16"g16 v-10 q99'"gdg'1　'"f+f#a'2'"bf+a'2'"ebe'1'"ebd'2r8'"eb'8,(B)r8 v+10 //B-2 q.N(A,B,B,A,B,A,B,B,A,B,A,B,A,B,A,B,B) Sub{[8c][9"g]}も[8g][9d] q.N(A,A,A,A,B,B,B,B,A,A,A,A,B,B,B,B) Sub{[8c][8d]}も[8g][8a] //SABI [q.N(A,A,A,A,B,B,B) Sub{[7c]}も[7g]| q99[4'cg'8r8]q45['"be'16]q.N(A,A,A,A,B,B,B)Sub{[7"b]}も[7d]q.N(A,B,A,B,B,B,A,B)Sub{"e^[7"e]}も"b^[7"b] q.N(A,A,A,A,B,B,B,99,B,B,A,B,B,B,A,B) Sub{[7c][9"g]}も[7g][9d] Sub{[8c][8d]}も[8g][8a] ] //SABI3 q99'cg`c'^q25'cg`c'r l4q5[7r:'cg'] |l8q40r8['cg'16] q.N(A,A,A,A,B,B,B,B) Sub{[8c][8c+][16d]}も[8g][8g][16a] //SABIATO [4q.N(A,A,A,A,B,B,B,A,B,B,A,B,B,B,B,B) Sub{[16c]}も[16g]| q.N(A,A,A,A,B,B,B)Sub{[7"b]}も[7d] q.N(A,B,A,B,B,B,A,B)Sub{"e^[7"e]}も"b^[7"b] ] } #GUIT; TR 9 //*************コード ~{し}={'rcg`c`d`g'}//Cadd9 ~{ひ}={'r"bda`d`f#'}//Bm7 ~{い}={'"eed`d`gr'}//Em7 ~{じ}={'"grdg`d`g'}//G(omit3) ~{え}={'rc#rg`e`a'}//A7onC# ~{で}={'rrda`d`f#'}//D ~{ま}={'rrf#`c`e`a'}//F#m7-5 ~{せ}={'"bf#a`d#`f#`b'}//B7 ~{ろ}={'rrd`d`f#`b'}//D6 ~{ー}={'rrrrrr'}//長音 ~{ん}={'r0r0r0r0r0r0'}//アップダウンがひっくり返ったらこれ //******　各種変数・関数 ******************************************* INT GB=5 //ギター・ストロークの弦のばらつき量 INT C=10//アクセント・ストロークでの弦のばらつき量 INT KH=122 //表 INT JH=119 //裏 STR D={t.N(0*GB,1*GB,2*GB,3*GB,4*GB,5*GB, 5*GB,4*GB,3*GB,2*GB,1*GB,0*GB)}//ギターの弦のばらつき加減 Function PA(STR I={} ) {t.N(0*C,1*C,2*C,3*C,4*C,5*C) I; D}//アクセント・ストロークでのばらつき加減 STR N={ r*%20 放す　ペダル r*-%20 } //コードチェンジのときの濁り防止 (数字は A*5)(5+8;シャッフルの分) STR Z={ 放す　ペダル } //コードチェンジのときの濁り防止2 (数字は A*5) Function CT(STR I={} ) {放す;q 15 GB=1 D I; N; GB=5 D q 99}//ミュート・カッティング Function CT2(STR I={} ) {放す;q 70 I;N;q99}//ミュート・カッティング2 Function CT3(STR I={} ) {放す;q 80 I;N;q99}//ミュート・カッティング3 Function CT4(STR I={} ) {放す;q 30 I;N;q99}//ミュート・カッティング4 INT GE=100//80 INT HF=15// Array AAA=(GE/6,GE/2,GE/2,GE-HF,GE-HF,GE-HF*3) Array BBB=(GE/6,GE/2,GE/2,GE-(HF),GE-(HF),GE-HF*3) // STR E={v.N(AAA,BBB)}//ギターのエクスプレッション(強迫・弱拍・表裏・弦毎の疑似イコライズ) PRINT ({表 　６弦　５弦　４弦　3弦　2弦　１弦 裏 　６弦　５弦　４弦　3弦　2弦　１弦}) PRINT ({ },AAA,{　　},BBB) //************ l4rrrr r-%10 l8 Z D E しーしし ーししー 　しーしし　ーししー　N ひーひひ ーひひー N　いーいいーいいー N しーしし ーししー 　しーしし　ーししー　N ひーひひ ーひひー N　じーじじーじじー N //UTA じーーじーーじー　じーーじーーじー　じーーじーーじー　じーーじーーじー　N　 いーーいーーいー　いーーいーーいー　いーーいーーいー　いーーいーーいー　N しーーしーーしー　N じーーじーーじー　N しーーー N えーーー　N でーーー　でーーーN //UTA じーーじーーじー　じーーじーーじー　じーーじーーじー　じーーじーーじー　N　 いーーいーーいー　いーーいーーいー　いーーいーーいー　いーーいーーいー　N しーーしーーしー　N じーーじーーじー　N しーーーNえーーー　N でーーーでーーー N //B じーーじーーじー　N まーーー N せーーー N いーーいーーいーN　ろーーろーーろ N しーーーしーーしー N じーーじーーじー　N しーーーNえーえー　N でーーでーーでー N //SABI しーーしーーし　CT2(しー)CT2(しー)CT2(しー)CT2(しー)し　N ひーーひーーひ N いーーいいーーいー しーーしーーし N じーーじじーーじー　N しーーーNえーえー　N でーーでーーでー N しーーしーーし　CT2(しー)CT2(しー)CT2(しー)CT2(しー)し　N ひーーひーーひ N いーーいいーーいー しーーしーーし N じーーじじーーじー　N しーーーNえーえー　N でーーでーーでー N ーーーーーーーー　ーーーーーーーー　ーーーーーーーー　ーーーーーーーー しーーしーーしー N えーーえーーえー　N でーーでーーでー N　でーーでーーでーN しーーしーーしー しーーしーーしー N ひーーひーーひ　N いーーーいーーいー N しーーしーーしー しーーしーーしー N ひーーひーーひ　N いーーーいーーいー N しーーしーーしー しーーしーーしー N ひーーひーーひ　N いーーーいーーいー N EP.T( 127, 0, !1+1+1+1 ) しーーしーーしー しーーしーーしー N ひーーひーーひ　N いーーーいーーいー N 　 　 //***** リードギター ********************************************************************* TR 11 INT L=40 INT H=110　//刻み用 STR KIZAMI={q.N(L,L,H,L ,L,H,L,H ,L,L,H,L ,L,L,H,L) }//刻みパターン STR SKIZAMI={q.C(!8,L,L,H,L, L,H,L,H, L,H,L,H, L,H,L,L)} FUNCTION OB (STR A={}){q(H) v+20 A v-20 KIZAMI}//オブリ FUNCTION PD(STR A={}){ペダル A 放す} FUNCTION UN(STR A={}){Sub{A}t3>A} #INTRO={r1 OctaveUnison([bgd`cgd`dgd `cgd bgd`c|bgd`cgd`dgd `cgd b`cbg])} #AMERO={ //AMERO l8 KIZAMI v-35 dddd ggda aadd bdad |dddd ggda aadd OB(`cbag) |dddd ggea aadd bddd|dddd ggda aadd OB(`cbgd) ddgd addb ddgd adgd |eege aega ggbb OB(agf#g) //AMERO2 dddd ggda aadd bdad |dddd ggda aadd OB(`cbag) |dddd ggea aadd bddd|dddd ggda aadd OB(`cbgd) ddgd addb ddgd adgd |eege aeeg ddf#d OB(gf#ed) } //'"g"bdgb`g'^^^^^^^|'"f#cf#a`d#`f#'^^^'"f#"bf#a`d+`f#'^^^|'"e"begb`e'^^^^^^^|'"d"begb`e'^^^^^^^ #BMERO={ //BMERO r1r1r1r1<}// 二小節目で`cとBASS bの不協和音を回避 #BMERO2={//SABIHETO l8 KIZAMI > ccgc cgcg ddgd ddgd||ccgc c#agg dgf#d OB(gf#ed) } #SABI={ //#1 SKIZAMI ccgc cgcd v+20 ccc"b v-20 cccc|< KIZAMI bb`f#b b`f#b`g bb`gb bb`gb> ccgc cgcg v+20 ddgd v-20 ddgd| ccgc c#ac#g ddf#d ddf#d //#2 SKIZAMI ccgc cgcd ccc"b cccc|< KIZAMI bb`f#b b`f#b`g bb`gb bb`gb> ccgc cgcg ddgd ddgd| ccgc c#ac#g ddf#d ddf#d //#3 rrrr rrrr rrrr rrrr| rrrr rrrr rrrr rrrr q.N(L,L,H,L ) ccgc cccc c#c#ac# c#c#c#c# |ddad ddad ddad OB(gf#24g24f#24ed) } #SABIATO={q.N(H,H,H,H ,L,L,L,H, L,L,H,L, L,L,H,L) gggg cccg ccgc ccgc| f#f#f#f# "b"b"bg eege eege gggg cccg ccgc ccgc| f#f#f#f# "b"b"bg eege eege gggg cccg ccgc ccgc| f#f#f#f# "b"b"bg eege eege EP.T( 127, 0, !1+1+1+1 ) gggg cccg ccgc ccgc| f#f#f#f# "b"b"bg eege eege } #INTRO; MidiDelay({ #AMERO; #BMERO;#BMERO2;#SABI;#SABIATO;},4,!4) TR 6 //*************Ａのすたいるのギター r1 N P 127 r1 r1 r1 r1 r1 r1 r1 r1 // A l8 o3 放す aaaa aaaa16a16 aaaa aaaa16a16 | aaaa aaa　'a>ea`d<'aa'a>ea`c#<'a16a16 N a>ba`e | 放す< f#f#f#f# f#f#f#f#16f#16 f#f#f#f# f#f#f#f#16f#16 | f#f#f#f# f#f#f#　'a>ea`d<'f#f#'a>ea`c#<'f#16f#16 N a>ba`e | 放す<