サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 前作から時間が空いてしまいましたが、今回はソースを見やすくしたり今まで使っていなかった機能を使ってみたりしています。トランスっぽい歌モノを作りました。どうぞ聞いてみてください! 曲データ(サクラから貼り付けます。) //★■■■■◇■■■■★■■■■◇■■■■★■■■■◇■■■■★■■■■◇■■■■★ SoundType=0;TrackName={"DESTNITION〜TRANCE MIX"}Copyright={"yu-suke"}Tempo = 150 Include(unison.h);Include(fadeio.h);Include(gs.h);Include(bend.h);Include(delay.h);ResetGS; r4 SoundType=0; Function HRM (Int HRM_TR,Int HRM_CH,Int HRM_VOI,Int HRM_VOI2,Int HRM_V,Int HRM_EP, Int HRM_M,Int HRM_REV,Int HRM_CHO,Int HRM_BR,Int HRM_P,Int HRM_FT4,Str HRM_META) {TR(HRM_TR); CH(HRM_CH); @(HRM_VOI,HRM_VOI2); V(HRM_V);EP(HRM_EP); M(HRM_M); REV(HRM_REV); CHO(HRM_CHO);BR(HRM_BR); P(HRM_P); FineTune(HRM_FT); MetaText(HRM_META);} Function HRM2 (Int HRM_v=100,Int HRM_q=80,Int HRM_o=5,Int HRM_l=8,Int HRM_t=0) {v(HRM_v); q(HRM_q); o(HRM_o); l(HRM_l); t(HRM_t);} KeyFlag#(cedfgab) //◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪SQUAR LEAD♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=1rHRM2(127,100,005,016,000,)HRM(01,01,081,000,080,127,000,127,127,000,064,)Time(011:1:0) STR IN1={OctaveUnison([a^g#^f#^g#a^ag#^f#^g#^a^g#^f#^g#a^ag#^f#^g#^a^g#^f#^g#a^ag#^f#^g#^a^g#^a^b`c#^`c#b^a^g#^])} STR BM1={OctaveUnison([16r4f#8r8]} [IN1;[8r1]v127Fadein(8)BM1;r1;BM1;]BM1;[16r1]Fadein(8)BM1;[r1][BM1;]IN1;Fadeout(4)'a`a'1^1^1^1 //◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪SAWTOOTH LEAD T♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=2rHRM2(127,100,005,016,000,)HRM(02,02,082,000,075,127,000,127,070,000,127,)Time(002:1:0) STR IN2={OctaveUnison(MidiDelayS([4f#^e^f#^:ef#^f#e^f#^e^]g#a^ag#^f#^e^[4f#^e^f#^:ef#^f#e^f#^e^]g#a^ag#^)f#^e^)} STR AM2={OctaveUnison(MidiDelayS(r4f#f#rf#r4f#rf#rr4eerer4ererr4ddrdr4drdrr4eerer4ererr4f#f#rf#r4f#rf#rr4eerer4ererr4f#f#rf#r4ererr4f#f#rf#r4)f#rf#r)} STR AMS2={OctaveUnison(MidiDelayS([3r4f#f#rf#r4f#rf#rr4eerer4ererr4ddrdr4drdrr4eerer4erer]r4f#f#rf#r4f#rf#rr4eerer4ererr4f#f#rf#r4ererr4f#f#rf#r4)f#rf#r)} STR BM2={OctaveUnison([4f#rc#rerf#:f#rf#rc#erf#r]arag#rf#rer[4f#rc#rerf#:f#rf#rc#erf#r]f#rf#f#rf#rf#r)} IN2;r1[IN2;AM2;BM2;r1IN2;]IN2;AMS2;BM2;[r1][3IN2;] //◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪SAWTOOTH LEAD U♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=3rHRM2(127,100,005,016,000,)HRM(03,03,082,000,070,127,000,127,127,000,000,)Time(002:1:0) STR IN3={OctaveUnison(MidiDelayS([4a^g#^a^:g#a^ag#^a^g#^]b`c#^`c#b^a^g#^[4a^g#^a^:g#a^ag#^a^g#^]b`c#^`c#b^)a^g#^)} STR AM3={OctaveUnison(MidiDelayS(r4aarar4ararr4g#g#rg#r4g#rg#rr4aarar4ararr4g#g#rg#r4g#rg#rr4aarar4ararr4g#g#rg#r4g#rg#rr4aarar4g#rg#rr4aarar4)arar)} STR AMS3={OctaveUnison(MidiDelayS([3r4aarar4ararr4g#g#rg#r4g#rg#rr4aarar4ararr4g#g#rg#r4g#rg#r]r4aarar4ararr4g#g#rg#r4g#rg#rr4aarar4g#rg#rr4aarar4)arar)} IN3;r1[IN3;AM3;[8r1];r1IN3;]IN3;AMS3;[8r1];[r1][3IN3;] //◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪SAWTOOTH LEAD V♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=4rHRM2(127,100,006,016,000,)HRM(04,04,082,000,069,127,000,127,127,000,064,)Time(002:1:0) STR IN4={OctaveUnison(MidiDelayS([7ee"a"aer"aere"a"aeera]ee"a"aer"aere"a"a)eera)} IN4;r1[IN4;[8r1][8r1]r1;IN4;]IN4;[7r1][r1][17r1][3IN4;] //◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪SAWTOOTH LEAD W♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=5rHRM2(127,100,005,016,000,)HRM(05,05,082,000,127,127,000,127,127,000,127,)Time(02:1:0) Array k = (067,067,!004);Array j = (127,127,!004);v.onTime( j,k,j,k,j,k,j,k); STR IN5={[SUB{[4ddd^][4eee^][8f#f#f#^]}[4f#f#f#^][4g#g#g#^][8aaa^]]} STR AM5={SUB{[4f#f#f#^][4eee^][4ddd^][4eee^][4f#f#f#^][4eee^][ddd^][eee^][4f#f#f#^]}[4aaa^][4g#g#g#^][4f#f#f#^][4g#g#g#^][4aaa^][4g#g#g#^][f#f#f#^][g#g#g#^][4aaa^]} STR AMS5={SUB{[[4f#f#f#^][4eee^][4ddd^][4eee^]]}[[4aaa^][4g#g#g#^][4f#f#f#^][4g#g#g#^]]} STR BM5={SUB{[4ddd^][4eee^][4f#f#f#^][4eee^][4bbb^][4c#c#c#^][4ddd^][4eee^]}[4f#f#f#^][4g#g#g#^][4aaa^][4bbb^][4ddd^][4eee^][4f#f#f#^][4g#g#g#^]} STR SB5={[4SUB{[ddd^][eee^][4f#f#f#^]}[f#f#f#^][g#g#g#^][4aaa^]]} SB5;r1;IN5;[8r1]BM5;r1SB5;IN5;AM5;BM5;r1SB5;SB5;Fadein(8)AMS5;AM5;BM5[r1][3SB5;];Fadeout(4)'f#`c#'1^1^1^1 //◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪♪SQUAR LEAD♪♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=7rHRM2(127,100,005,016,000,)HRM(007,007,082,000,127,127,000,127,127,000,000,)Time(02:1:0) Array m = (067,067,!004);Array A = (127,127,!004);v.onTime( m,A,m,A,m,A,m,A); STR IN7={[SUB{[4ddd^][4eee^][8f#f#f#^]}[4f#f#f#^][4g#g#g#^][8aaa^]]} STR AM7={SUB{[4f#f#f#^][4eee^][4ddd^][4eee^][4f#f#f#^][4eee^][ddd^][eee^][4f#f#f#^]}[4aaa^][4g#g#g#^][4f#f#f#^][4g#g#g#^][4aaa^][4g#g#g#^][f#f#f#^][g#g#g#^][4aaa^]} STR AMS7={SUB{[[4f#f#f#^][4eee^][4ddd^][4eee^]]}[[4aaa^][4g#g#g#^][4f#f#f#^][4g#g#g#^]]} STR BM7={SUB{[4ddd^][4eee^][4f#f#f#^][4eee^][4bbb^][4c#c#c#^][4ddd^][4eee^]}[4f#f#f#^][4g#g#g#^][4aaa^][4bbb^][4ddd^][4eee^][4f#f#f#^][4g#g#g#^]} STR SB7={[4SUB{[ddd^][eee^][4f#f#f#^]}[f#f#f#^][g#g#g#^][4aaa^]]} SB7;r1;IN7;[8r1]BM7;r1SB7;IN7;AM7;BM7;r1SB7;SB7;Fadein(8)AMS7;AM7;BM7[r1][3SB7;];Fadeout(4)'f#a'1^1^1^1 //◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪CHOIR PAT♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=6rHRM2(127,100,004,001,000,)HRM(006,006,092,000,096,127,000,127,127,000,064,)Time(002:1:0) OctaveUnison([3"d2"e2"f#1]"d2"e2)EP.T( 127, 127, !2,127, 080, !2, ) '"f#f#'1EP.T( 040, 127, !1, )'f#`f#a'1 [OctaveUnison(["d"e"f#1^]"f#"e"d"e"f#"e"d2"e2"f# "d"e"f#"e""b"c#"d"e)EP.T( 040, 127, !1, )'e`eg#'1 OctaveUnison([4"d2"e2"f#1])] OctaveUnison([4"d2"e2"f#1][3"f#"e"d"e]"f#"e"d2"e2"f#) OctaveUnison("d"e"f#"e""b"c#"d)EP.T( 127, 127, !2,127, 090, !2,090, 004, !1, ) '"ee'1^;EP.T( 040, 127, !1, )'e`eg#'1 OctaveUnison([12"d2"e2"f#1]Fadeout(4)"f#1^1^1^1) //◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪BASSLEAD♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=8rHRM2(127,100,004,016,000,)HRM(008,008,088,000,127,127,000,127,127,000,065,)Time(011:1:0) STR IN8={[2[r4"f#f#"f#f#][r4"ee"ee][r4"f#f#"f#f#r4"f#f#"f#f#]]} STR AM8={[r4"f#f#"f#f#][r4"ee"ee][r4"dd"dd][r4"ee"ee][r4"f#f#"f#f#][r4"ee"ee]r4"dd"ddr4"ee"ee[r4"f#f#"f#f#]} STR AMS8={[3r4"f#f#r"f#r4"f#r"f#rr4"eer"er4er"err4"ddr"dr4dr"drr4"eer"er4"erer]r4"f#f#r"f#r4f#r"f#rr4"eer"er4er"err4"ddr"dr4"ere"rr4"f#f#r"f#r4f#r"f#r} STR BM8={r4"ddr"dr4drdrr4"eer"er4ererr4"f#f#r"f#r4f#rf#rr4"eer"er4ererr4"bbr"br4brbrr4"c#c#r"c#r4c#rc#rr4"ddr"dr4drdrr4"eer"er4ererr1} STR BMS8={drrdrrdrrdrrdrdrerrerrerrerrereef#rrf#rrf#rrf#rrf#rf#rerrerrerrerreree"brr"brr"brr"brr"br"brc#rrc#rrc#rrc#rrc#rc#c#drrdrrdrrdrrdrdrerrerrerrerreree[r1]} STR SB8={[4drrdrrerrrerererf#rrf#rrf#rrf#rrf#rer]} [IN8;AM8;BM8;SB8;]SB8;AMS8;BMS8;[3SB8;]Fadeout(4)f#1^1^1^1 //◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪BASSLEAD♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=12rHRM2(127,100,004,016,000,)HRM(012,012,088,000,100,127,000,000,127,000,000,)Time(011:1:0) STR IN12={[2[r4"f#f#"f#f#][r4"ee"ee][r4"f#f#"f#f#r4"f#f#"f#f#]]} STR AM12={[r4"f#f#"f#f#][r4"ee"ee][r4"dd"dd][r4"ee"ee][r4"f#f#"f#f#][r4"ee"ee]r4"dd"ddr4"ee"ee[r4"f#f#"f#f#]} STR AMS12={[3r4"f#f#r"f#r4"f#r"f#rr4"eer"er4er"err4"ddr"dr4dr"drr4"eer"er4"erer]r4"f#f#r"f#r4f#r"f#rr4"eer"er4er"err4"ddr"dr4"ere"rr4"f#f#r"f#r4f#r"f#r} STR BM12={r4"ddr"dr4drdrr4"eer"er4ererr4"f#f#r"f#r4f#rf#rr4"eer"er4ererr4"bbr"br4brbrr4"c#c#r"c#r4c#rc#rr4"ddr"dr4drdrr4"eer"er4ererr1} STR BMS12={drrdrrdrrdrrdrdrerrerrerrerrereef#rrf#rrf#rrf#rrf#rf#rerrerrerrerreree"brr"brr"brr"brr"br"brc#rrc#rrc#rrc#rrc#rc#c#drrdrrdrrdrrdrdrerrerrerrerreree[r1]} STR SB12={[4drrdrrerrrerererf#rrf#rrf#rrf#rrf#rer]} v(000)[IN12;AM12;BM12;v(100)SB12;v(000)]v(100)SB12;v(000);AMS12;v(100)BMS12;[3SB12;]Fadeout(4)f#1^1^1^1 //◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪SYNTH BASS♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=9rHRM2(127,100,003,016,000,)HRM(009,009,040,000,122,127,000,127,127,000,058,)Time(011:1:0) STR IN9={[[4"d"ddd][4"e"eee][7"f#"f#f#f#]"e"eee]}STR AM9={[[4"f#"f#f#f#][4"e"eee]:[4"d"ddd][4"e"eee]]["d"ddd]["e"eee][4"f#"f#f#f#]} STR AMS9={["f#1"e1"d1"e1]} STR BM9={[4"d"ddd][4"e"eee][4"f#"f#f#f#][4"e"eee][4""b""b"b"b][4"c#"c#c#c#][4"d"ddd][4"e"eee]r1}STR SB9={[4["d"ddd]["e"eee][4"f#"f#f#f#]]} [IN9;AM9;BM9;SB9;]SB9;AMS9;AM9;BM9[9r1][SB9;]Fadeout(4)f#1^1^1^1 //◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪MUSIC BOX♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=16rHRM2(127,100,006,008,000,)HRM(016,016,11,000,127,127,000,000,000,000,070,)Time(001:1:0) STR SB16={OctaveUnison(rrrrrf#g#aa^`c#^b8.a8.g#a8.g#8.f#^f#g#aa^`c#^b8.a8.b`c#^^^^f#g#aa^`c#^b8.a8.g#a8.g#8.f#^f#f#ef#^`c#^f#^`c#^f#1^1)} STR AM16={OctaveUnison(f#8f#16f#8e16f#4c#8e8f#8e4e8f#16c#4.r16c#8"b8"a8"b8"a8"b8"a16"b8."a8"b4c#8c#4c#8e8f#8f#8f#16f#8e16f#4c#8e8f#8e4e8f#16c#8.c#8"b8c#8d4a4g#8f#8e8f#1^)} STR BM16={OctaveUnison(dd16dd16d4def#e8.c#8.c#4def#f#f#16f#e16f#4f#g#ag#8.e8.e4"b"a"b"b4f#f#4c#"bc#c#4g#g#4c#"bc#d4aa4dc#de4.bb2)} STR SBS16={OctaveUnison(rrrrrf#g#aa^`c#^b8.a8.g#a8.g#8.f#^f#g#aa^`c#^b8.a8.b`c#^^^^f#g#aa^`c#^b8.a8.g#a8.g#8.f#^f#f#ef#^`c#^f#^`c#^f#^^^^f#g#aa^`c#^b8.a8.g#a8.g#8.f#^f#g#aa^`c#^b8.a8.b`c#^^^^f#g#aa^`c#^b8.a8.g#a8.g#8.f#^f#f#ef#^`c#^f#^`c#^f#1^1)} SB16;r1[7r1]AM16;BM16;SB16;[7r1]AM16;BM16;SBS16;[24r1]SBS16; //◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪MUSIC BOX♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=15rHRM2(127,100,005,008,000,)HRM(015,015,12,000,071,127,000,000,000,000,070,)Time(023:1:0) STR AM15={OctaveUnison(aa16ag#16a4rrr[3r1])} STR BM15={OctaveUnison(f#f#16f#f#16f#4[3r1]dc#drrrrrederrrrrederrrrrf#ef#g#4.eerr1)} STR SBS15={OctaveUnison([r1]r2.^rrrrrrr^"a"bc#d4f#4e8.d8.c#d8.c#8.f#1rrrrrrrrrrr)} AM15;BM15;SBS15;r4[12r1]AM15;BM15;SBS15;SBS15;[34r1]SBS15; //◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪DARMS♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=10 GS_RHYTHM(1)Time(002:1:0)HRM2 (127,127,004,008,000,)HRM(010,010,025,000,127,127,000,127,127,000,065,)BR(12) p(039) $h{n42,}$d{'n81n80'}$c{'n81n80n83'}$t{'n42'}$m{n55,}$s{'n38n39n28n75n80n85'}$b{'n27n32n33n35n36n41'} STR IN0={Rythm{{b1[3b2.^b8b1]b1 }m1[3m2.^^m1]m1 }} STR INST={Rythm{{b1b2.^b8b1b2.^b8b1b2.^b8b4b4b4b4b4b4b4b4b4b}l16[m1m1m1m1]}} STR IN={Rythm{{[8b4b4b4b4]}{[16r4s4]}[32t16t16c16r16]}} STR INS={Rythm{{[8b4b4b4b4]}m1[7r1]}}STR INSI={Rythm{{b4r4rr4r4}m1}} STR INK={Rythm{{[7b4b4b4b4]b4b4l8bbb16b16b16r}{[16r4s4]}[32t16t16c16r16]}} IN0;r1;[3IN]r1;[4IN]r1[IN];INS;[IN][r1]INST;IN;INK;INSI //◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆♪スネアロール♪◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ TR=11 GS_RHYTHM(2) Time(002:1:0)HRM2 (127,127,004,016,000,)HRM(011,011,026,000,127,127,000,127,127,000,070,) $s{'n38n82n70n40'}音色(AnalogSet) STR GH={Rythm{l16[6r1]r16EP.T( 030, 076, !1, 076, 127, !1 )[31s]l24rrrEP.T( 040, 127, !1, )[21s]l16[6r1]EP.T( 030, 076, !1, 076, 127, !1 )r16[23s]l24[12s]}} STR GP={Rythm{l16EP.T( 030, 076, !1, 076, 127, !1 )r16[23s]l24[12s]}} STR GY={Rythm{EP.T( 060, 060, !2, 040, 127, !2)l16r[7s]l24[12s]}} STR GG={Rythm{[6r1]l16r16EP.T( 030, 076, !1, 076, 127, !1 )[31s]l24rrrEP.T( 040, 127, !1, )[21s]}} STR GU={Rythm{l16[6r1]EP.T( 030, 070, !1 )r16[15s]EP.T( 070, 100, !2, 065, 127, !2)l16r[7s]l24[12s]}} STR GD={Rythm{l16[6r1]EP.T( 030, 076, !1, 076, 127, !1 )r16[23s]l24[12s]}} GH;[[7r1]GY;l16GG;GU;GD]GU;[7r1]GY;[7r1]GY;[8r1]GP;GU;GD //◇■■■■☆■■■■◇■■■■☆■■■■◇■■■■☆■■■■◇■■■■☆■■■■◇ この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)