サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント R*3さんの『Whoever(Radio Edit)』に触発されてTWMでトランスです。一応TWM2音源のMP3も晒しておきます。http://www.geocities.jp/dolls_rosebud/mp3/cybercity_ai01.mp3 曲データ(サクラから貼り付けます。) /* ■★CyberCity -A.I. system-★ 作成:さくらもどき 詳細 【推奨環境】ヘッドホン 【推奨音源】TWM2,MP3【大 音 量 推 奨 で す !】 【再生可能】MSGS(確認済み。非推奨) 【無断転用】可 【 編曲 】可 【ジャンル】Trance 作成環境 【 OS 】WindoowsXP HomeEdition 【 音源 】TWM2、MSGS 【出力環境】MDR-CD100 (ヘッドホン) ◆MEMO DLありがとうございます! R*3さんの『Whoever(Radio Edit)』に触発されました。 もう、かっこよすぎです、惚れましたです。 というわけで、今回の曲はかなり本気のトランスです。 拙いですが最後まで聞いていただければうれしいです。 前の『ひかり』名義から続く『CyberCity』シリーズ5作目。 一応、電脳とかマシーンとか近未来とかそんなイメージのシリーズです。 しかし…地味にシリーズ1作目から4年が経ってますがいまいち成長が見られないのは仕様ですw 後半ネタ切れで力尽きているのがいつも通り過ぎる・・・orz さて、今回の曲ですが次のような脳内補完がされていました。 かなり電波なので注意が必要です、・・・読まなくてもいいんじゃないですか? ■イントロ 近未来的な機械が荒廃した都市で動き回る感じ。 イメージ的には、加速、荒廃、近未来、マシーンです。 ■ブレイク 目覚めのイメージ。 何もない空間を漂う感じで。 イメージ的には、誕生、生命、人工物です。 なんとなくA.I.とかいうとカッコいいですよね。 タイトルはそんな感じで決めましたw ここまで読んでいただいて、ありがとうございました。 ソースコードが1000行もあるならライナーノーツが50行ぐらいあってもいいよね?(汗 p.s. ★MP3について なんか最近PCの調子が悪いらしくて酷いノイズが乗ってます. 1トラックずつ録音して調整をかけてミックスしたバージョンもあるのですが, ノイズの関係で没に・・・orz ですから,今回はMP3=TWM2です. */ Int LongMode = on //フルバージョンにして再生します。 //前奏長いよ!とかいう気の短い人はオフにしてください。 //================================================================================================ If(LongMode==on){ 曲名{"★CyberCity -A.I. System -★"} }Else{ 曲名{"★CyberCity -A.I. System -★ -Short Edited-"}} 作者{"Sakura Modki"} ResetGS CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7; CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7; 拍子4,4 Tempo=146; 調#() Key=-1 If(LongMode==on){ TimeKey((1:1:0),,-3) //ブレイク前のキー TimeKey((65:1:0),,3) //ブレイク後のキー(無茶な転調もいけるからここは好みの問題。 } If(LongMode==off){TimeKey((1:1:0),,3)} //================================================================================================ //関数の定義 //================================================================================================ //------------------------ //ロングノート簡易指定(尺の長いエフェクト時にあると便利。 Function L1(int){ Result=(!1)*int } Function R1(int){ [(int) r*1] } //------------------------ //↓汎用度数変更用関数群(決まったパターンを違う音程で打ち込みたいときに便利。 //任意の文字列DataをLen度上下させる。(PlayMode=0でユニゾン) Function Uni(Str Data,Int Len,Int __PlayMode=0,Int Mode=0){ Len-- Str D_Data=Data Array Notelist=({"c"},{"d"},{"e"},{"f"},{"g"},{"a"},{"b"}) Array Notelist2=(,,,,,,,) Int Oct=Len/7 Len=Len-7*Oct Str Octc={""} Int Cnt=0 Str Buf={""} If(Len<0){Len+=7;Oct--} [7 Octc={""} If(Oct>0){ [(Oct) Octc={""}+Octc+{"`"} ] } If(Oct<0){ [((-1)*Oct) Octc={""}+Octc+CHR(34) ] } Buf=Notelist(Len) Notelist2(Cnt)={""}+Octc+Buf Cnt++ Len++ If(Len=7){ Len=0 Oct++ } ] Cnt=6 Int Len2=Len-1 If(Len2<0){ Len2+=7 } Data=Replace(Data,Notelist(Len2),{"@$"},1) [6 Data=Replace(Data,Notelist(Cnt),Notelist2(Cnt),1) Cnt-=Len If(Cnt<0){ Cnt+=7 } ] Data=Replace(Data,{"@$"},Notelist2(Len2),1) IF(Mode=0){ [(Oct) < ] } If(__PlayMode=0){ Sub{Data}D_Data }Else{ Data } IF(Mode=0){ [(Oct) > ] } } //ストトンをMMLへ変換するマクロ。 #ReplaceST={ Root=Replace(Root,{"ど"},{"c"},on);Root=Replace(Root,{"ド"},{"c"},on);Root=Replace(Root,{"れ"},{"d"},on);Root=Replace(Root,{"レ"},{"d"},on) Root=Replace(Root,{"み"},{"e"},on);Root=Replace(Root,{"ミ"},{"e"},on);Root=Replace(Root,{"ふぁ"},{"f"},on);Root=Replace(Root,{"ファ"},{"f"},on) Root=Replace(Root,{"ふ"},{"f"},on);Root=Replace(Root,{"フ"},{"f"},on);Root=Replace(Root,{"そ"},{"g"},on);Root=Replace(Root,{"ソ"},{"g"},on) Root=Replace(Root,{"ら"},{"a"},on);Root=Replace(Root,{"ラ"},{"a"},on);Root=Replace(Root,{"し"},{"b"},on);Root=Replace(Root,{"シ"},{"b"},on) } #Delt={ Int Delt=0 Switch(Root){ Case({c}){Delt=0} Case({d}){Delt=1} Case({e}){Delt=2} Case({f}){Delt=3} Case({g}){Delt=4} Case({a}){Delt=5} Case({b}){Delt=6} } } //ストトン互換用 ~{トランス}={Trance} //メイン関数。 ルートの音でパターンを演奏する。 Function Trance(Str Root={"c"},Str Paturn,){ #ReplaceST Int D=-1 Int U=-1 Int Flag=1 Str StrBuf={""} While(Flag){ StrBuf=Root Root=Replace(Root,CHR(34),{},off); IF(Root==StrBuf){Flag=0} D++ } Flag=1 While(Flag){ StrBuf=Root Root=Replace(Root,CHR(96),{},off); IF(Root=StrBuf){Flag=0} U++ } #Delt //MetaText={"D:"}+D+{" U:"}+U [(D) <][(U) >] Uni(Paturn,Delt+1,1) [(D) >][(U) <] } //_TR1================================================================================================ TR=1 @=88 q30 o4 l16 v50 REV=70 CHO=70 P=10 V=80 #SynthBass1={Sub{} eee^ ee^^} #SynthPlay={[6 [c16]c] [[d16]d] [4 ["b16]"b][[c16]c] [[d16]d] [6 [d16]d] [[e16]e] [4 [c16]c] [["b16]"b] [["a16]"a] [6 ["a16]"a]["b16]"b ["a16]"a [6 ["b16]"b][[d16]d] [6 [c16]c][[e16]e] [4 [e16]e][["a16]"a][["b16]"b] } //-------- IF(LongMode==on){ [4 Sub{r4. v20 #SynthBass1} Sub{r8. v30 #SynthBass1} v70 #SynthBass1 Sub{[ r2. Sub{r4. v20 #SynthBass1} Sub{r8. v30 #SynthBass1} Sub{v40 #SynthBass1} ]} r2 [3r1]] [4 Sub{r4. v20 #SynthBass1} Sub{r8. v30 #SynthBass1} v70 #SynthBass1 //F2 Sub{[ r2. Sub{r4. v20 #SynthBass1} Sub{r8. v30 #SynthBass1} Sub{v40 #SynthBass1} ]} r2 [3r1]] //F3 [4 Sub{r4. v20 #SynthBass1} Sub{r8. v30 #SynthBass1} v70 #SynthBass1 Sub{[ r2. Sub{r4. v20 #SynthBass1} Sub{r8. v30 #SynthBass1} Sub{v40 #SynthBass1} ]} r2 [3r1]] //F4 [4 Sub{r4. v20 #SynthBass1} Sub{r8. v30 #SynthBass1} v70 #SynthBass1 Sub{[ r2. Sub{r4. v20 #SynthBass1} Sub{r8. v30 #SynthBass1} Sub{v40 #SynthBass1} ]} r2 [3r1]] } //ブレイク @=82,110,0 q30 o5 l16 v50 REV=70 CHO=0 P=64 V=80 R1(3) R1(16) R1(16) //------- q100 v90 r-1a2b2 `c1^1 b1`c2`d2 ^1^2`e2 `c1b2a2 ^1.b4`c4 b1.`d2 `c1^1 ^1 q60 v_.N(10,0,0) Sub{< [[a16]a8][[b16]b8]>} [[a16]a8][[b16]b8] //------- l8 > Sub{<#SynthPlay>} #SynthPlay //---------------- /* Phase : 6*/ //---------------- Sub{<#SynthPlay>}#SynthPlay Sub{<#SynthPlay>}#SynthPlay Sub{<#SynthPlay>}#SynthPlay Sub{<#SynthPlay>}#SynthPlay //_TR 2================================================================================================ TR=2 @41 REV=120 CHO=120 o7 v60 q100 IF(LongMode==on){ R1(16) R1(16) R1(16) R1(16) } R1(3) [3 R1(16)] r-1 V.T(0,0,L1(14),0,100,L1(2)) M.W(0,0,!4,0,20,!2) [5 EP.T(110,127,!2) "a2"b2 c1^2d2 "b1c2d2 d1g2f2 c1"b2"a2 "a1."b4c4 "b1.d2 d1^2.c8"b8 :EP.T(127,90,!1) c1 ]EP.T(127,90,!1) c1^1 //_TR BASS================================================================================================ //-------------------------- //ベースパターンの定義 //-------------------------- Str BASS1={ "aa"a"a a"a"aa "a"aa"a g"a"a"a} Str BASS2={a"a"aa "a"aa"a "aa"a"a g"a"a"a } Str BASS3={a"a"aa "a"aa"a "aa"a"a Sub{`c.} r"a"a"a } Str BASS4={a"a"aa "a"aa"a "aa"a"a Sub{`c.} r"a`c`c } Str pBASS1={"c"ccc|"cc"c"c|c"cc"c|cc"c"c} #Bass = { IF(LongMode==on){ //Phase : 1 [3 v_.N(0,Dv,0,0, Dv,0,0,Dv,0,0,Dv,0,Dv,0,0,0, Dv,0,0,Dv, 0,0,Dv,0, 0,Dv,0,0, Dv,0,0,0) q_.N(0,Dq,0,0, Dq,0,0,Dq,0,0,Dq,0,Dq,0,0,0, Dq,0,0,Dq, 0,0,Dq,0, 0,Dq,0,0, Dq,0,0,0) [ BASS1:BASS2]BASS3 ] [BASS1:BASS2]v+40 a rra rrar rarr grrr v-30 //Phase : 2 [4 v_.N(0,Dv,0,0, Dv,0,0,Dv,0,0,Dv,0,Dv,0,0,0, Dv,0,0,Dv, 0,0,Dv,0, 0,Dv,0,0, Dv,0,0,0) q_.N(0,Dq,0,0, Dq,0,0,Dq,0,0,Dq,0,Dq,0,0,0, Dq,0,0,Dq, 0,0,Dq,0, 0,Dq,0,0, Dq,0,0,0) [BASS1:BASS2]:BASS3 ]BASS4 //Phase : 3 [4 v_.N(0,Dv,0,0, Dv,0,0,Dv,0,0,Dv,0,Dv,0,0,0, Dv,0,0,Dv, 0,0,Dv,0, 0,Dv,0,0, Dv,0,0,0) q_.N(0,Dq,0,0, Dq,0,0,Dq,0,0,Dq,0,Dq,0,0,0, Dq,0,0,Dq, 0,0,Dq,0, 0,Dq,0,0, Dq,0,0,0) [BASS1:BASS2]:BASS3 ]BASS4 //Phase : 4 [4 v_.N(0,Dv,0,0, Dv,0,0,Dv,0,0,Dv,0,Dv,0,0,0, Dv,0,0,Dv, 0,0,Dv,0, 0,Dv,0,0, Dv,0,0,0) q_.N(0,Dq,0,0, Dq,0,0,Dq,0,0,Dq,0,Dq,0,0,0, Dq,0,0,Dq, 0,0,Dq,0, 0,Dq,0,0, Dq,0,0,0) [BASS1:BASS2]:BASS3 ]v+40 a rra rrar rarr arrc v-30 } } #Bass2={ //Phase : 5 R1(3) R1(16) R1(16) R1(16) R1(16) Sub{[5r-1] } //Phase : 6 [4 q_.N(0,0,Dv,Dv, 0,Dv,0,0, Dv,0,Dv,0 ,Dv,Dv,0,0) q_.N(0,0,Dq,Dq, 0,Dq,0,0, Dq,0,Dq,0 ,Dq,Dq,0,0) [ Trance({a},pBASS1) ] [ Trance({g},pBASS1) ] [ Trance({e},pBASS1) ] [ Trance({a},pBASS1) ] [ Trance({f},pBASS1) ] [ Trance({g},pBASS1) ] [4 Trance({`c},pBASS1) ] ] v-20 } //_TR3-------------------------------------------------- TR=3 q85 @=39,1 o3 l16 v112 REV=35 CHO=10 V=90 Int Dv=15; Int Dq=-10; Sub{[256 EP.T(127,100,!2,100,127,!2) r*1]}//うなり生成装置1(fq=!1) #Bass #Bass2 //_TR4-------------------------------------------------- TR=4 q75 @=82 o4 l16 v50 REV=55 CHO=50 V=90 CHO.T(0,50,L1(8)) Sub{[88 EP.T(90,127,!2.,127,90,!2.) r*1.]}//うなり生成装置2(fq=!1.) Dv=25; Dq=40; q20Sub{>v-20 #Bass v+50 #Bass2 v-30<} Dv=25; Dq=-10; q75#Bass;#Bass2 //_TR SYNTH================================================================================================ //-------------------------- //シンセパターンの定義 //-------------------------- #Synth1={ IF(LongMode==on){ l16 R1(8) CHO.T(0,110,L1(7)) EP.T(0,127,L1(7)) [7[4 ["e16]"a16"e16]]q-40 v+30 REV=0 "err"e rr"er r"err "c^^^ REV=40 q+40 v-50 [8[4 ["e16]"a16"e16]] [8[4 ["e16]"a16"e16]] [8[4 ["e16]"a16"e16]] [8[4 ["e16]"a16"e16]] [8[4 ["e16]"a16"e16]] [7[4 ["e16]"a16"e16]]q-40 v+40 REV=0 "err"e rr"er r"err "e^^"c REV=40 q+40 v-40 } R1(3) [4 R1(16)] l8 q50 //Phase:6 [4#SynthPlay] } //_TR 5==================================================================== TR=5 q40 @=82,90,1 o6 l16 REV=40 CHO=110 v70 Sub{>#Synth1<}#Synth1 //_TR PICO================================================================================================ //---------------------------------------- #PICO0={ [8 [c]r[d]r[e] rc"grgr"gr [g]r[f]r[e] r[f]r[c]rr ]} #PICO1={[[4 [c]"a[d]"a[e] ac"g"aga"g"a :[g]a[f]"a[e] a[f]a[c]`ca ]v+10 [g]a[f]a[e] `c[f]`cca"aa v-10] } #PICO1_={[[4 [c]"a[d]"a[e] ac"g"aga"g"a :[g]a[f]"a[e] a[f]a[c]`ca ]:v+10 [g]a[f]a[e] `c[f]`cca"aa v-10] v+10 grrfrrer rerr errc v-10 } #PICO0_={ [8 [c]r[d]r[e] rc"grgr"gr :[g]r[f]r[e] r[f]r[c]rr ] grrfrrer rerr errc} //---------------------------------------- #PICO2={ [4 ce`c16ae16][4 "bdb16gc16] [4 eg`d16bg16][4 ce`c16ae16] [4 cfa16fc16] [4 dgb16gd16] [4 cf`c16fe16][4 ce`c16ge16] } #PICO3={ [4 ce`ce][4 "bdbc] [4 eg`dg][4 ce`ce] [4 cfac] [4 dgbd] [4 cf`ce][4 ce`ce] } //_TR6====================================================================================== TR=6 q50 @=82,90,1 o5 l16 v90 CHO=40 REV=20 V=110 IF(LongMode==on){ R1(8) R1(8)Sub{r-1} >#PICO0< EP.T(0,0,L1(8),0,127,L1(8)) #PICO0 Sub{>#PICO0_<}#PICO0_ } //Phase:5 l8 R1(3) R1(16) R1(16) R1(16) q80 EP.T(20,127,L1(16)) Sub{>#PICO2<}#PICO2 //Phase:6 #PICO2 #PICO2 #PICO2 #PICO2 //_TR7================================================================================================ TR=7 q20 @=39,16 o7 l16 v65 CHO=127 REV=40 V=110 IF(LongMode==on){ R1(8) R1(8) P.N(0,64,90,32,120,40,50,90,110,40,120,74,93,44,36,52,94) q.T(10,80,L1(16)) #PICO0 q50 v_.N(0,0,20,0,0,20,0,10) Sub{<#PICO1>} #PICO1 q80 #PICO1_ } //Phase : 5 P.N(0,64,90,32,120,40,50,90,110,40,120,74,93,44,36,52,94) R1(3) R1(16) l8 q60 v50 v_=0 EP.T(20,70,L1(16)) #PICO3 #PICO3 EP.T(50,127,L1(16)) #PICO2 //Phase : 6 #PICO2 #PICO2 #PICO2 #PICO2 //Phase : 7 EP(60,20,L1(16)) #PICO3 //_TR8================================================================================================ Str Code0={ ""a0"a0c0a1^1 //Am ""g0"g0"b0d1^1 //G ""e0"e0"b0g1^1 //Em7 ""a0"a0c0e1^1 //Am ""f0"f0c0f1^1 //F ""f0"f0"b0d1^1 //G7 "c0c0g0f1^1 //Csus4 "c0c0e0g1^1 //C } TR=8 q100 @=90 o5 l1 v65 CHO=20 REV=60 V=110 M=20 IF(LongMode==on){ R1(16) R1(16) R1(16) R1(16) } R1(3) //Phase:5 EP.T(34,127,L1(16)) [4 Code0 ] //Phase:6 R1(16) R1(16) EP.T(0,0,L1(14),35,127,!1) Code0 Code0 //Phase:7 Code0 //_TR9======================================================================= Str Code1={Sub{ v+20 `c1^1 b1`c2`d2 ^1^2`e2 `c1b2a2 ^1.b4`c4 b1.`d2 `c1^1 ^1a2b2 v-20} "a0c0a1^1 //Am "g0"b0d1^1 //G "e0"b0g1^1 //Em7 "a0c0e1^1 //Am "f0c0f1^1 //F "f0"b0d1^1 //G7 c0g0f1^1 //Csus4 c0e0g1^1 //C } Str Code2={Sub{ v+20 `c1^1 b1`c2`d2 ^1^2`e2 `c1b2a2 ^1.b4`c4 b1.`d2 `c1^1 ^1^1v-20} "a0c0a1^1 //Am "g0"b0d1^1 //G "e0"b0g1^1 //Em7 "a0c0e1^1 //Am "f0c0f1^1 //F "f0"b0d1^1 //G7 c0g0f1^1 //Csus4 c0e0g1^1 //C } //------------------------------------------------ TR=9 q100 @=82,90,1 o4 REV=120 v80 IF(LongMode==on){ R1(16) R1(16) R1(16) R1(16) } R1(3)EP=0 Sub{ R1(14) EP.T(0,127,L1(2)) } //Phase : 5 [4 Code1 ] v60 //Phase : 6 [4 Code1 ] //Phase : 7 Code2 //_TR10================================================================================================ UseKeyShift=off 調-() TR=10 o3 l8 q99 @=27,90 REV=15 CHO=45 V=100 IF(LongMode==on){ //------------------------------------------ /*Phase : :1*/ //------------------------------------------ //バスドラ [4 [4 v40"b0 v120c4]] [3[4 v40"b0 v120c4] ] [2v40"b0 v120c4]r*4[v40"b0 v120c8] [4[4 v40"b0 v120c4] ] Sub{v40 [16 d8 v+2] v+5 [8 d16]v+5[16 d32]} [3[4 v40"b0 v120c4] ] [5 v60"b0 v128c8.]r16 //------------------------------------------ /*Phase : :2*/ //------------------------------------------ Sub{v110 `c+4 v-50 [3 `c+4. v-20]} Sub{v34[4[4 rf+ v+4]]} [4[4 v40"b0 v120c4]] Sub{v90 [4[4 rf+ ]]} [3[4 v40"b0 v120c4]][3v40"b0 v120c4][v40"b0 v120c8] Sub{v90 [4[4 rf+ ]]} [3[4 v40"b0 v120c4]][3v40"b0 v120c4][v40"b0 v120c8] Sub{v110 [3[4 rf+]][3 rf+]a+16 f+16 f+} [4[4 v40"b0 v120c4]] //------------------------------------------ /*Phase : :3*/ //------------------------------------------ [ [ Sub{v90 [4[4 [f+16]a+]]} :[4[4 v40"b0 v120c4]] ] [3[4 v40"b0 v120c4] ] [2v40"b0 v120c4]r*4[v40"b0 v120c8] ] Sub{[4r-1] v50 [16 d8 v+2] v+5 [8 d16]v+5[48 d32]} //------------------------------------------ /*Phase : :4*/ //------------------------------------------ [ [ Sub{v90 [4[4 [f+16]a+]]} :[4[4 v40"b0 v120c4]] ] [3[4 v40"b0 v120c4] ] :[2v40"b0 v120c4]r*4[v40"b0 v120c8] ][5 v60"b0 v128c8.]r16 Sub{[4r-1] v50 [16 d8 v+2] v+5 [8 d16]v+5[48 d32]} } //------------------------------------------ /*Phase : :5*/ //------------------------------------------ Sub{v100 `e} R1(3) R1(16) Sub{v110 `c+4 v-50 [3 `c+4. v-20]} R1(16) R1(16) R1(16) Sub{[8r-1] v70 [16 [d8] v+1] [16 d8] v+5 [8 d16]v+5[48 d32]} Sub{[4 r-1] [[c.]c[c] r4][[c] r4] } //----------------------------------------- /*Phase : :6*/ //------------------------------------------ Sub{v110 `c+4 v-50 [3 `c+4. v-20]} [4 [ Sub{v60 [4[4 "a["a16]]]} Sub{v90 [4[4 [f+16]a+]]} :[4[4 v40"b0 v120c4]] ] [3[4 v40"b0 v120c4] ] [2v40"b0 v120c4]r*4[v40"b0 v120c8] ] Sub{[8r-1] v50 [16 [d8] v+1] [16 d8] v+5 [8 d16]v+5[48 d32]} [4 [ Sub{v110 r [16 `d+4]} Sub{v90 [4[4 [f+16]a+]]} :[4[4 v40"b0 v120c4]] ] :[3[4 v40"b0 v120c4] ] [2v40"b0 v120c4]r*4[v40"b0 v120c8] ]v+20 [["b0c.]"b0c["b0c]r4][["b0c] r4] [4 r8.] r4 Sub{[8r-1] v70 [16 [d8] v+1] [16 d8] v+5 [8 d16]v+5[48 d32]} //_TR11================================================================================================ TR=11 o3 l8 q99 @=25,90 REV=90 CHO=55 V=110 p=0//くぐもった音にする。 IF(LongMode==on){ //------------------------------ /*Phase : 1*/ //------------------------------ R1(4) Sub{r-2 v90[4"a16v-20][4"a16v+32]} Sub{r-2 v50 r32[4"a16 v-12][4"a16v+36]} R1(4) Sub{v110 `c+4 v-50 [3 `c+4. v-20]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} R1(4) //------------------------------ /*Phase : 2*/ //------------------------------ Sub{v110 `c+4 v-50 [3 `c+4. v-20]} Sub{v80 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} //------------------------------ /*Phase : 3*/ //------------------------------ Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} //------------------------------ /*Phase : 4*/ //------------------------------ Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v90 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} } //------------------------------ //Phase : 5 //------------------------------ R1(3) [4 R1(16)] //------------------------------ //Phase : 6 //------------------------------ Sub{v100 `c+} [4 [Sub{v110 [8 rrd+r]} R1(4) Sub{r-2 v90[4"a16v-15][4"a16v+32]} Sub{r-2 v50 r32[4"a16v-10][4"a16v+36]} Sub{v110 [8 rrd+r]} R1(4)] ] //_TR12================================================================================================ Function Bst(int,l=96){Sub{p=l v-20 [(int/!64) "b0c64] p=64 v+20} r%(int)} //Booooooooo!!!!!!! TR=12 o3 BR(32) @=27,90,1 V=127 v100 REV=0 CHO=10 l8 IF(LongMode==on){ //Phase : 1 R1(12) [[c4][c]Bst(!8.)r16][[c] Bst(!8.)r16] [4 Bst(!8)r16] Bst(!4,110) R1(16) Sub{r-4 Bst(!4,100)} R1(8) Sub{r-4 Bst(!8,105)} R1(8) Sub{r-1 [5 Bst(!8,105)r16]} R1(16) Sub{r-1 [4 Bst(!8)r16] Bst(!4,100) } } //Phase : 5 R1(3) R1(16) R1(16) R1(16) R1(16) Sub{[4r-1] [[c.]c[c]Bst(!8.)r16][[c] Bst(!8.)r16] [4 Bst(!8)r16] Bst(!4,110) } //Phase : 6 R1(16) Sub{r-1 [4 Bst(!8)r16] Bst(!4) } R1(8) Sub{r-4 Bst(!4,100)} R1(8) R1(16) R1(16) Sub{[4r-1] [[c.]c[c]Bst(!8.)r16][[c] Bst(!8.)r16] [4 Bst(!8)r16] Bst(!4,110) } //Phase : 7 //_TR13================================================================================================ //低音のバーストエフェクト TR=13 o3 REV=127 CHO=120 @=19 v127 V=120 BR(36) IF(LongMode==on){ R1(16) R1(16) R1(16) R1(16) } Sub{ p.T(70,0,!1.) ""c0"c1.} R1(3) R1(16)Sub{p.T(70,0,!1.)""c0"c1.} R1(16) R1(16) Sub{p.T(70,0,!1.)""c0"c1.} R1(16) //Phase:6 Sub{p.T(70,0,!1.)""c0"c1.} R1(16) R1(16) Sub{p.T(70,0,!1.)""c0"c1.} R1(16) R1(16) //Phase:7 Sub{p.T(70,0,!1.)""c0"c1.} //_TR14================================================================================================ TR=14 q100 @=123,3 v67 o7 REV=127 CHO=127 BR(36)//ベントレンジに注意っ! IF(LongMode==on){ //Phase : 1 Sub{p.T(127,0,L1(4)) P.T(97,30,L1(4)) EP.T(97,97,L1(2),97,60,L1(2)) "c0c0g0`c1^1^1^1 } R1(16) //Phase : 2 Sub{p.T(90,0,L1(2)) P.T(97,30,L1(2)) EP.T(97,20,L1(2)) "c0c0g0`c1^1 } R1(16) //Phase : 3 Sub{p.T(90,0,L1(2)) P.T(97,30,L1(2)) EP.T(97,20,L1(2)) "c0c0g0`c1^1 } R1(16) //Phase : 4 Sub{p.T(90,0,L1(2)) P.T(97,30,L1(2)) EP.T(97,20,L1(2)) "c0c0g0`c1^1 } R1(16) } //Phase : 5 Sub{p.T(90,0,L1(4)) P.T(97,30,L1(4)) EP.T(97,20,L1(4)) "c0c0g0`c1^1^1^1 } R1(3) R1(16) Sub{r-1 p.T(90,0,L1(2)) P.T(97,30,L1(2)) EP.T(97,20,L1(2)) "c0c0g0`c1^1 } R1(16) R1(16) R1(16)Sub{r-1 p.T(90,0,L1(2)) P.T(97,30,L1(2)) EP.T(97,20,L1(2)) "c0c0g0`c1^1 } //Phase:6 R1(16) R1(16) R1(16) R1(16) Sub{r-1 p.T(90,0,L1(2)) P.T(97,30,L1(2)) EP.T(97,20,L1(2)) "c0c0g0`c1^1 } //_TR16================================================================================================ UseKeyShift = on ; TR=16 @=114 q99 v60 o5 CHO=127 BR(24) V=100 Str Whoo={Sub{r-4 REV.T(64,16,!4) CHO.T(0,127,!4)p.T(0,64,!16)P.T(0,127,!4) [16 ""c0a64]}} Str Whoo2={Sub{r-4 REV.T(120,46,!4) CHO.T(0,127,!4)p.T(0,64,!16)P.T(0,127,!4) [16 ""c0a64]}} IF(LongMode==on){ Key=0 [ R1(4) Whoo R1(4)] Key=2;v+60 Whoo Key=0 Whoo v-60 R1(8) Key=0 [ R1(4) Whoo R1(4)] [ R1(4) Whoo R1(4)] R1(4) Whoo R1(4) } //Phase : 5 R1(3) Whoo Key=5 R1(8) Whoo2 Sub{r4. Key=0 Whoo2} R1(8) R1(16) R1(16) R1(16) Key=2 ;v+20 Whoo ; Key=0 Whoo;v-20 //Phase : 6 R1(16) Key=2 ;v+20 Whoo ; Key=0 Whoo;v-20 R1(16) R1(16) Key=2 ;v+20 Whoo ; Key=0 Whoo;v-20 R1(16) Key=2 ;v+20 Whoo ; Key=0 Whoo;v-20 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)