サクラトップ > 掲示板トップ > 投稿フォーム

サクラ曲掲示板 Part 5 - 投稿フォーム - 2074

曲の投稿にはユーザー登録が必要です。

曲　名

作　者名前: パスワード:

転　載
（ゲームのBGMなど使いたい場合、許可するかどうかを指定。
サクラ本体への収録はあらかじめご承諾ください。）
ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する

ジャンル

音　源
（パソコン内蔵音源、GS音源、GM音源など）

公開
（公開を中止して削除するときには、この項目を変更します。）

コメント
ＤＭさんの簡易ギターシュミの練習曲です。単なるアコギのストロークのみですがよかったら聞いてください。超簡単なコード進行ですいません・・・

曲データ（サクラから貼り付けます。）
// dSakura.dll Version.2.34d TrackName= {" [ 夕焼け空 ]　"} Copyright= {"げん"} //----------------------------------------------------------------------------------------------------- System.MeasureShift(1); ResetGS;ResetXG;ResetGM;r1; TrackSync; Tempo(115); TimeSignature(4,4); Str E1 = { EP(110) } Str E2 = { EP(90) } //DMさんのギターシュミを使ったお試し曲です。 //DMさんありがとうございます。まずはこんな感じで使ってみましたがいかがでしょうか？ //ギター関数より細かな設定ができて、アコギで曲を考える僕にはすごく使いやすかったです。 //タイトルはイメージです。簡単なコード進行で、30分足らずで作ってしまいましたが・・・ //単なるアコギのストロークのみです。メロディはこれから考えようかと。まずは聞いてみてください。 //次はアルペジオに挑戦します！！ //------------------------------------------------------------------------------------------------------ Array STune = (0,0,0,0,0,0); Str Sa;Str Sb;Str Sc;Str Sd;Str Se;Str Sf;Array St Str D;Str DM;Str U;Str UM; Function Mut(Str MStr){ Int Nowq=MML(q); q%4 MStr;q(Nowq) } Function StT(Int Hiki,Int Zure){ St(0)=Hiki;St(1)=Hiki+Zure*1; St(2)=Zure*2+Hiki;St(3)=Zure*3+Hiki;St(4)=Zure*4+Hiki;St(5)=Zure*5+Hiki; Print("ST= "+St)} #Form={ Sa={n(40 + STune(0) + #?1)} Sb={n(45 + STune(1) + #?2)} Sc={n(50 + STune(2) + #?3)} Sd={n(55 + STune(3) + #?4)} Se={n(59 + STune(4) + #?5)} Sf={n(64 + STune(5) + #?6)} } Function Stroke(SSa,SSb,SSc,SSd,SSe,SSf){ D={t_.N(St(0),St(1),St(2),St(3),St(4),St(5));'Sa Sb Sc Sd Se Sf t_(0)'} U={t_.N(St(5),St(4),St(3),St(2),St(1),St(0));'Sa Sb Sc Sd Se Sf t_(0)'} DM={t_.N(St(0),St(1),St(2),St(3),St(4),St(5));Mut({'Sa Sb Sc Sd Se Sf t_(0)'})} UM={t_.N(St(5),St(4),St(3),St(2),St(1),St(0));Mut({'Sa Sb Sc Sd Se Sf t_(0)'})} IF(SSa=1){ D.s({Sa},{Mut({Sa})});U.s({Sa},{Mut({Sa})}); }ELSE{ } IF(SSa=2){ D.s({Sa},{});U.s({Sa},{}); }ELSE{ } IF(SSb=1){ D.s({Sb},{Mut({Sb})});U.s({Sb},{Mut({Sb})}); }ELSE{ } IF(SSb=2){ D.s({Sb},{});U.s({Sb},{}); }ELSE{ } IF(SSc=1){ D.s({Sc},{Mut({Sc})});U.s({Sc},{Mut({Sc})}); }ELSE{ } IF(SSc=2){ D.s({Sc},{});U.s({Sc},{}); }ELSE{ } IF(SSd=1){ D.s({Sd},{Mut({Sd})});U.s({Sd},{Mut({Sd})}); }ELSE{ } IF(SSd=2){ D.s({Sd},{});U.s({Sd},{}); }ELSE{ } IF(SSe=1){ D.s({Se},{Mut({Se})});U.s({Se},{Mut({Se})}); }ELSE{ } IF(SSe=2){ D.s({Se},{});U.s({Se},{}); }ELSE{ } IF(SSf=1){ D.s({Sf},{Mut({Sf})});U.s({Sf},{Mut({Sf})}); }ELSE{ } IF(SSf=2){ D.s({Sf},{});U.s({Sf},{}); }ELSE{ } } //------------------------------------------------------------------------------------------------------------ TR=1 V(120) REV(120) EP(90) P(64) @26 StT(-2,1); q97;h1 #G1 ={#Form(3,2,0,0,3,3);Stroke(0,0,0,0,0,0);} #G2 ={#Form(3,2,0,0,0,3);Stroke(0,0,0,0,0,0);} #G7 ={#Form(3,2,0,0,0,1);Stroke(0,0,0,0,0,0);} #C ={#Form(0,3,2,0,1,0);Stroke(2,0,0,0,0,0);} #D ={#Form(0,0,0,2,3,2);Stroke(2,2,0,0,0,0);} #D7 ={#Form(0,0,0,2,1,2);Stroke(2,2,0,0,0,0);} #Dsus4 ={#Form(0,0,0,2,1,3);Stroke(2,2,0,0,0,0);} #Em ={#Form(0,2,2,0,0,0);Stroke(2,0,0,0,0,0);} #Am7 ={#Form(0,0,2,0,1,0);Stroke(2,0,0,0,0,0);} #Bm7 ={#Form(0,2,4,2,3,2);Stroke(2,0,0,0,0,0);} Str Pat1={l8. D;l16 U;D;U;E1 l4 D;} Str Pat2={E2 l16 D;U; E1 l8 D; E2 l16 U;D;} Str Pat3={l4 D;E1 l8 D;E2 l16 DM;U;DM;U;l8 DM;E1 D;E2 l16 DM;U;} Str Pat4={l8 D;D;E1 D;E2 l16 DM;U;DM;U;l8 DM;E1 D;E2 l16 DM;U;} Str Pat5={l8 D;D;E1 D;E2 l16 DM;U;DM;U;l8 DM;E1 l16 D;E1 U;D;U;} Str Pat6={l8 D;E1 D;E2 D;E1 D;E2 D;l16 DM;l8 U;E1 l16 UM;E2 l8 D;} Str Pat7={l8 D;E1 D;E2 D;E1 D;} Str Pat8={l8 D;l16 DM;E2 l8 U;E1 l16 UM;E2 l8 D;} Str Pat9={l4 D;E1 l8 D;E2 l16 D;U;} Str Pat10={l4 D;E1 l8 D;E2 l16 DM;U;} v(120) [2 #G1;Pat1; #D;Pat2; #C;Pat1; #D;Pat2;] #D;Pat7;#D;Pat8; v(110) #G1;Pat3; #G1;Pat4; #Em;Pat3; #Em;Pat4; #Am7;Pat3; #Am7;Pat4; #D7;Pat3; #D7;Pat5; #G1;Pat3; #G1;Pat4; #Em;Pat3; #Em;Pat4; #Am7;Pat3; #D7;Pat3; #G1;Pat4; v(120) #G1;Pat6; v(110) #C;Pat3; #C;Pat3; #G2;Pat3; #G2;Pat3; #D;Pat3; #D;Pat3; #G2;Pat3; #G7;Pat4; #C;Pat3; #C;Pat3; #Bm7;Pat3; #Em;Pat3; #Am7;Pat3; #Am7;Pat3; #D7;Pat3; v(120) #Dsus4;Pat7; v(127) #D7;Pat8; v(120) [2 #G2;Pat4; #D;Pat4; #Em;Pat4; #C;Pat9; #D;Pat10;] v(115) #C;Pat4; #G1;Pat4; #D;Pat4; v(125) #Em;Pat6; v(127) #Am7;Pat4; #D7;Pat4; #G1;Pat3; v(120) #G1;Pat4; [2 #G1;Pat6;] #G1;StT(-8,15);l1;D; //-------------------------------------------------------------------------------------------------------------------

この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか？
（←選択）

サクラトップ > 掲示板トップ > 投稿フォーム