サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ちょっとした仕掛けに挑戦したり・・本題はダンス系ですが、クラシックピアノ系が好きな方も是非に。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ TrackName={"Monoclome noize -Mocn-"} Copyright={"Agr"} MetaText ={"2005/04/13-2005/04/23"} /*------------------------------------------------------------------------------ ダウンロードありがとうございました!!! 別名:たまにはちゃんとMMLで仕掛けとか作って見ようの会 ……初歩的な事しかできないですが…… 曲自体も結構遊びばっかりで出来てしまった感じです。毎回ですかうああん 音を楽しむde音楽です。ただし制作に限って。w 無駄に最初が長くなってしまったので、最後の方焦っているのが見え見えです。 しかも「トラック数少な目で」というのを目標にしたせいか、盛りの所が盛れていないと言うか…… こんな音を入れれば、とかアドバイスを切望したいです>< しかし結局はトラック数、いつもぐらい入っていたりとか……OTL 最後まで聴いて頂けると嬉しいです!; そしてアドバイス……とおまけの方も宜しくお願いします。。(実はおまけに作った方が気に入っていたり by.Agr NO09 メアド…jig_bag@hotmail.com 再生時間 … 2:55 ------------------------------------------------------------------------------*/ Int BPM= 130 ;// テンポ。130推奨。ある程度早くすると何か起こりますw /*----------------------------------------------------------------------------*/ System.MeasureShift(1) ResetGS;ResetXG;ResetGM;r1 Include(delay.h); /*----------------------------------------------*/ Int KEY= 3 //音階調整 Key(KEY-x) Str PN = {ペダル} Str PF = {放す} Str PFN = {放す ペダル} If(BPM<150){ TimeSignature(4,4) //Techno noise mncn// Tempo(600);Time(2:4:0)Tempo=BPM; Int MI = 44;Int LA = 76; Str A ={'"ace'};Str S ={'"g#"be'};Str D ={'"g"a#e'};Str F ={'"ad'}; Str G ={'"g#d'};Str H ={'"gc'};Str J ={'"ac'};Str K ={'"g#"b'};Str L ={'"ac#e'^}; Str W1 = {A;S;D;F;G;H;J;K;}//'"ac#e'^ Str TC = {d#8.d8."g8} //8 Str TN = {[8c][4"g#][4"a#]} //1 Str M1 = {e4.c4.e4f4.e4.d4e4.f4.g4g4.f4.e4d4.e4.d4c4.d4.c4"b4.g#4."b4c4.`d4.c4} Str B1 = {o(3)[8c8d#g][4"g#8cd#]MidiDelay({o(3)[4>"a#^df]},3,!8.) o(3)} Str B2 = {o(3)[8c8d#g][4"g#8cd#]MidiDelay({o(7)[4[2[2gggg]] Time(24:1:0)o(4)l(2)音色(Strings1)cd Track(6) v(87) v.Random(10) o(4) l(2) q(100) Time(24:1:0)c;EP.T(127,50,!2)d;EP(127) Time(27:1:0)>P.W(127,100,!4,100,0,!1^)[4'c"d#d#g'1'"g#"ccd#'2'"a#"ddf'2] Track(7) v(50) o(7) l(16) q(100) Time(3:1:0)[4EP.T(127,30,!2)[8c][8r]] [4EP.T(127,30,!2)[8'"cg'][8r]] Time(26:1:0)v(127)EP.T(127,30,!2)[8'"cg'][8r] Time(34:1:0)v(127)EP.T(127,40,!4,30,107,!2.)[8'"cg']P.T(127,50,!2)[8'"cg']P(127)EP(127)v(60) Track(9) v(30) v.Random(10) o(8) l(2) q(100) Time(3:1:0)[24p%.T(0,8191,!8)e,p%.T(8191,0,!8)"b] /*----------------------------------------------*/ ///////////// NEXT time on 35 //////////////////// /*----------------------------------------------*/ Track(1) v(120) o(7) l(16) q(100) Time(35:1:0)[2 r-8;MidiDelay({dd#dc},8,!4)[4r1]r-8] Track(2) v(100) v.Random(10) o(4) l(16) q(100) Time(35:1:0)[4[4cdd#d][2"g#"a#c"a#][2"a#cdc]] Track(3) v(100) v.Random(10) o(4) l(4) q(100) Time(42:1:0);TY1;'eg'1r4 Track(4) v(100) v.Random(10) o(3) l(16) q(100) Time(35:1:0)[1B1;B2;] Track(5) v(60) v.Random(10) o(5) l(1) q(100) Time(35:1:0) v(110) [4'c"d#d#g'1'"g#"ccd#'2'"a#"ddf'2] Track(6) v(100) v.Random(10) o(4) l(2) q(100) Time(35:1:0) v(105)>[4'c"d#d#g'1'"g#"ccd#'2'"a#"ddf'2] Track(7) v(50) o(7) l(16) q(100) Time(35:1:0)[7[16c]] Time(42:1:0)v(127)EP.T(127,40,!4,30,107,!2.)[8'"cg']P.T(127,50,!2)[8'"cg']P(127)EP(127)v(60) /*----------------------------------------------*/ ///////////// MIDLL X1 time on 43 //////////////// /*----------------------------------------------*/ Track(1) v(60) o(7) l(8) q(100) Time(MI+16:1:0)MidiDelayS(M2) Key(KEY+0) Time(MI+8:1:0)MidiDelayS(M1);M1;M1 Time(MI+16:1:25)M1;Time(MI+16:1:50)M1;Time(MI+16:1:75)M1; Track(2) v(100) o(4) l(16) q(100) Time(MI+16:1:0)M1; //++------------------------------------------------------**++ Key(KEY-3) o(7) l(16) Time(MI+24:1:0)[2 r-8;MidiDelay({dd#dc},3,!4)[4r1]r-8] Track(7) v(68) o(7) l(16) q(100) Sub{[100 P.T(0,127,!1,127,0,!1) r*1^1]} Time(MI:1:0)[4 r-8;MidiDelay({dd#dc},3,!4)[4r1]r-8] v(60) [4 MidiDelay({[4[4dd#dc]]},8,!4)] P(127) Key(KEY+0) //++------------------------------------------------------**++ Track(3) v(100) v.Random(10) o(4) l(4) q(100) Time(MI-1:1:0)r2;TY1;'eg'2 Time(MI+15:1:0);TY1;'eg'1r4 Track(4) v(100) v.Random(10) o(3) l(16) q(100) Time(MI:1:0)B3;B3;B3;B3; Track(5) v(40) v.Random(10) o(5) l(1) q(110) P(64) Time(MI:1:0) W1;W1;cg<']][2[2TE1'cg>>cg''cgP.W(127,100,!4,100,0,!1^)[4'c"d#d#g'1'"g#"ccd#'2'"a#"ddf'2] Track(7) v(63) o(8) l(16) q(100) Time(LA:1:0)[4EP.T(127,30,!2)[8c][8r]] [2EP.T(127,30,!2)[8'"cg'][8r]] v(107)EP.T(127,40,!4,30,107,!2.)[8'"cg']P.T(127,50,!2)[8'"cg']v(90) P(127) [10 EP.T(127,30,!2)[8'"cg'][8r]] /*----------------------------------------------*/ }ELSE{TimeSignature(3,4) //Walz noise mncn// Tempo(600);Time(2:4:0)Tempo=BPM;Print ={"おまけなので、流す程度に…(笑)オススメBPMは180辺りです。"} /*----------------------------------------------*/ Int MA = 3; Str A ={'"ace'};Str S ={'"g#"be'};Str D ={'"g"a#e'};Str F ={'"ad'}; Str G ={'"g#d'};Str H ={'"gc'};Str J ={'"ac'};Str K ={'"g#"b'};Str L ={'"ac#e'}; /*----------------------------------------------*/ Track(01) V(127) EP(127) P(075) REV(000) CHO(000) 音色(BrightPiano);Track(02) V(127) EP(127) P(055) REV(000) CHO(000) 音色(GrandPiano)// /*----------------------------------------------*/ TrackSync /*----------------------------------------------*/ Track(10) CH(10) l(16) Time(1:1:0) Rhythm{} Track(1) v.Random(10) o(4) l(4) q(120) Time(MA:1:0)v.T(70,100,!1+1)EP.T(70,127,!1+1+1) [6"ace"g#"be"g"a#e"f"ad"f"g#d"e"gc"d#"gc"g#"be] Time(MA:1:0)v100>> TempoChange(BPM,BPM-25,!1+1+1+1+1)TempoChange(BPM-20,BPM,!1)[7c"a"b]TempoChange(BPM-30,BPM,!1)ce"b TempoChange(BPM,BPM-30,!1+1+1+1+1)TempoChange(BPM-30,BPM,!1)[3ecd]efg[3gfe]TempoChange(BPM-60,BPM,!2+4)dc" Tempo(BPM-80)bTempo(BPM)v(127) PN;ecefe8^d8;PFN;efgg^f8e8;PFN;dedcdc"b"g#"bcdc;PF PN;ecefe8^d8;PFN;efgg^f8e8;PFN;dedcdc"b"g#"TempoChange(BPM,BPM-20,!1)bcdc;PF TempoChange(BPM,BPM-15,!1+1+1+1+1+1)>>a>ca^^^^^^^ } この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)