サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 前回「船旅」の「秋バージョン」です。コード感、曲調感の印象が少し変わったので、修正とせず、思い切って新規アップとし てみました。 今回は「秋真近」で しっとり感を微妙に増してみました。 前回(修正前)分で、いくつかバグがあったのでその修正もしています。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"秋の船旅"} 作者{"メロン"} // 前回「船旅」の「秋バージョン」です。コード感、曲調感の印象が少し変わったので、 // 修正とせず、思い切って新規アップとしてみました。 // 今回は「秋真近」でしっとり感を微妙に増してみました。 // 前回(修正前)分で、いくつかバグがあったのでその修正もしています。 Int NewOnly= 1 ;// 1:新規コード進行。 // 1 以外だと、前回の投稿分も鳴る(出る)ようになります。 // マイナスも可なので、頭に - を付けたりはずしたりするだけで // 試せるようになっています。 // ●修正点 // ・「秋感」を・・・と思い、コード進行を新たに追加。 // ・それに伴い、タイトルも変更。 // ・コード進行を表示させるようにした。 // ・Array SC の最後、{r},{r} を、{^},{r} に変更。これにメロがより自然で滑らかになった。 // ・コード進行をより自然にした。(コードのルートをキー変更で済ましているので、 // それでも少し「飛び感」は残りますね。各和音の構成音は展開形にして、できるだけ // 同じ音域になるように調整するとより自然でいいのですが、今後の課題です) // ・上記変更/修正により、新規コード「進行のみ鳴る」を今回のデフォルトとした。 // ・その他、前回いくつかあったバグの修正。 //------------------------------------------------------------------------------ 音源初期化Tempo=120 Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Int Px Str H={q99 M=77y64,0} Str H2={q99 M=0y64,66} Int X Function Z(Int Key, Int Type){ TimeKey(Key) IF(Type==0){TimeKeyFlag(,, 0, 0, 0, 0, 0, 0, 0)} // Maj IF(Type==1){TimeKeyFlag(,,-1,-1, 0, 0,-1, 0, 0)} // Min IF(Type==5){TimeKeyFlag(,,-1,-1, 0, 0,-1, 0,-1)} // Min b5 IF(Type==2){TimeKeyFlag(,, 0,-2, 0, 0,-1,+1,-1)} // Dim IF(Type==7){TimeKeyFlag(,, 0,-1, 0, 0, 0, 0, 0)}} // 7 Str Q1 Str Q2 Str Q3 Str Q4 Str Tone={o4@67o4H} Array SC={c},{d},{e},{f+g},{a},{b},{`c},{`d},{`e},{^},{r} Str A={ TR=1 P=Px l12 Tone [(Random(1,9)) Q1 = Q1 + RS2(SC)] Stretch{Q1}2 [(Random(1,9)) Q2 = Q2 + RS2(SC)] Stretch{Q2}2 [(Random(1,9)) Q3 = Q3 + RS2(SC)] Stretch{Q3}2 [(Random(1,9)) Q4 = Q4 + RS2(SC)] Stretch{Q4}2 TR=11@49o4 q99v90 M=77 Stretch{Q1}2 Stretch{Q2}2 Stretch{Q3}2 Stretch{Q4}2 Q1={} Q2={} Q3={} Q4={} TR=2 @49@90v77q100['cegb`d'1] TR=3 @33o3 RS({q.N(150,40) t.N(0,!8)}, {q80 t0}) [c [3RS({e},{g},{a},{d},{"b},{b})]] TR=10 UseKeyShift(0)@41 [[n36n38]r-1[6n42,12]n42,6n46n42,12] TR=111 CH=10 l12 r4+6 RS({n49},{r},{r},{r},{r},{r},{r}) r1.UseKeyShift(1)} Str CM7 ={Z(0,0)A} Str Em7 ={Z(4,1)A} Str Am7 ={Z(-3,1)A} Str C7 ={Z(0,7)A} Str DbDim={Z(1,2)A} Str Fpm7b5={Z(6,5)A} Str FM7 ={Z(5,0)A} Str Fm7 ={Z(5,1)A} Str Dm7b5={Z(2,5)A} Str DbM7 ={Z(1,0)A} Str Bb7 ={Z(-2,7)A} Str AbM7={Z(-4,0)A} Str Ab7 ={Z(-4,7)A}Str G7 ={Z(-5,7)A}Str Db7 ={Z(1,7)A} Str Gm7 ={Z(-5,1)A} Str E7 ={Z(4,7)A} Str D7 ={Z(2,7)A} Str Adim ={Z(-3,2)A} Str Ebm7={Z(3,1)A} Str F7 ={Z(5,7)A} Str B7 ={Z(-1,7)A}Str Abm7 ={Z(-4,1)A} Str Edim={Z(4,2)A} Str Cdim ={Z(0,2)A} Str Dm7 ={Z(2,1)A} Str A7 ={Z(-3,7)A} Str G72 ={Z(-5,7)A} Str Cm7 ={Z(0,1)A} Str Bm7 ={Z(-1,1)A}Str Ebdim={Z(3,2)A} Str Bm7b5={Z(-1,5)A} Str X0={CM7 DbDim Bb7 G7} Str X1={Am7 D7 DbM7 E7 Am7 Ab7 DbM7 G7} Str X2={Am7 Adim Fm7 Bb7 Em7 FM7 Ab7 Db7 }Str X3={Em7 Ebm7 DbDim Bm7b5 E7 Am7 Ebdim G7} Str X4={CM7 Cdim Abm7 Db7} Str X5={CM7 A7 Dm7 Db7} Str X6={Am7 Ebdim Gm7 Cdim Em7 Am7 D7 G7} Str X7={CM7 E7 Am7 G7} Str X8={CM7 Ab7 Db7 G7} Str X9={Cm7 Fm7 Dm7 G7} Str X10={Cm7 Fm7 D7 G7 Bm7 Em7 Ab7 G7} Array J=X0,X1,X2,X3,X4,X5,X6,X7,X8,X9,X10 Function K(X){MetaText(J(X))} [12 Px=RandomSelect(0,32,64,96,127) X=Random(11) IF(NewOnly==1){X=RandomSelect(1,2,3,6,10)} // X=6 // test IF(X==0){K(0) X0} IF(X==1){K(1) X1} IF(X==2){K(2) X2} IF(X==3){K(3) X3} IF(X==4){K(4) X4} IF(X==5){K(5) X5} IF(X==6){K(6) X6} IF(X==7){K(7) X7} IF(X==8){K(8) X8} IF(X==9){K(9) X9} IF(X==10){K(10) X10} Tone = RS2( {@1o6H2}, {@12o6H2},{@40o5H}, {@41o5H},{@44o4H},{@45o5 q99 M=0 y64,0}, {@49o5 H},{@49o6H}, {@53o5H},{@54o5H}, {@58o4H},{@59o5H},{@60o5H},{@62o5H},{@65o5H}, {@66o5H}, {@67o4H}, {@69o4H},{@70o6H}, {@71o5H},{@71o4H},{@72o6H},{@72o5H}, {@70o6H}, {@12o6H2},{@12o6H2}) ]Int N=7Include(fadeio.h)r-%(384*N)FadeoutAll(N) /******** SoundType=0;//------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"秋の船旅"} 作者{"メロン"} // 豪華客船での船旅・・・をイメージしてみました。 // 今回は「秋真近」でしっとり感を微妙に増してみました。 // 前回分で、いくつかバグがあったのでその修正もしています。 Int NewOnly= 0 ;// 0:新規コード進行。 // 0 以外だと、前回の投稿分も鳴る(出る)ようになります。 // (どれも、ワン・コード2小節です) // ●修正点 // ・Array SC 最後、{r},{r} を、{^},{r} に変更。これにメロがより少し滑らかになった。 // ・コード進行をより自然にした。(コードのルートをキー変更で済ましているので、 // それでも少し「飛び感」は残りますね。各和音の構成音はできるだけ同じ音域にあると // より自然でいいのですが、今後の課題です。) // ・コード進行を表示させるようにした。 // ・上記変更/修正により、新規コード進行のみ鳴るのを今回のデフォルトとした。 // ・その他、前回いくつかあったバグの修正。 //------------------------------------------------------------------------------ 音源初期化Tempo=120 Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Int Px Str H={q99 M=77y64,0} Str H2={q99 M=0y64,66} Int X Function Z(Int Key, Int Type){ TimeKey(Key) IF(Type==0){TimeKeyFlag(,, 0, 0, 0, 0, 0, 0, 0)} // Maj IF(Type==1){TimeKeyFlag(,,-1,-1, 0, 0,-1, 0, 0)} // Min IF(Type==5){TimeKeyFlag(,,-1,-1, 0, 0,-1, 0,-1)} // Min b5 IF(Type==2){TimeKeyFlag(,, 0,-2, 0, 0,-1,+1,-1)} // Dim IF(Type==7){TimeKeyFlag(,, 0,-1, 0, 0, 0, 0, 0)}} // 7 Str Q1 Str Q2 Str Q3 Str Q4 Str Tone={o4@67o4H} Array SC={c},{d},{e},{g},{a},{b},{`c},{`d},{`e},{^},{r} Str A={ TR=1 P=Px l12 Tone [(Random(1,9)) Q1 = Q1 + RS2(SC)] Stretch{Q1}2 [(Random(1,9)) Q2 = Q2 + RS2(SC)] Stretch{Q2}2 [(Random(1,9)) Q3 = Q3 + RS2(SC)] Stretch{Q3}2 [(Random(1,9)) Q4 = Q4 + RS2(SC)] Stretch{Q4}2 TR=11@49o4 q99v90 M=77 Stretch{Q1}2 Stretch{Q2}2 Stretch{Q3}2 Stretch{Q4}2 Q1={} Q2={} Q3={} Q4={} TR=2 @49@90v77q100['cegb`d'1] TR=3 @33o3 RS({q.N(150,40) t.N(0,!8)}, {q80 t0}) [c [3RS({e},{g},{a},{d},{"b},{b})]] TR=10 UseKeyShift(0)@41 [[n36n38]r-1[6n42,12]n42,6n46n42,12] TR=111 CH=10 l12 r4+6 RS({n49},{r},{r},{r},{r},{r},{r}) r1.UseKeyShift(1)} Str CM7 ={Z(0,0)A} Str Em7 ={Z(4,1)A} Str Am7 ={Z(-3,1)A} Str C7 ={Z(0,7)A} Str DbDim={Z(1,2)A} Str Fpm7b5={Z(6,5)A} Str FM7 ={Z(5,0)A} Str Fm7 ={Z(5,1)A} Str Dm7b5={Z(2,5)A} Str DbM7 ={Z(1,0)A} Str Bb7 ={Z(-2,7)A} Str AbM7={Z(-4,0)A} Str Ab7 ={Z(-4,7)A}Str G7 ={Z(-5,7)A}Str Db7 ={Z(1,7)A} Str Gm7 ={Z(-5,1)A} Str E7 ={Z(4,7)A} Str D7 ={Z(2,7)A} Str Adim ={Z(-3,2)A} Str Ebm7={Z(3,1)A} Str F7 ={Z(5,7)A} Str B7 ={Z(-1,7)A}Str Abm7 ={Z(-4,1)A} Str Edim={Z(4,2)A} Str Cdim ={Z(0,2)A} Str Dm7 ={Z(2,1)A} Str A7 ={Z(-3,7)A} Str G72 ={Z(-5,7)A} Str Cm7 ={Z(0,1)A} Str Bm7 ={Z(-1,1)A}Str Ebdim={Z(3,2)A} Str X0={CM7 DbDim Bb7 G7} Str X1={Am7 D7 DbM7 E7 Am7 Ab7 DbM7 G7} Str X2={Am7 Adim Fm7 Bb7 Em7 FM7 Ab7 Db7 }Str X3={Em7 Ebm7 DbDim Bm7b5 E7 Am7 Ebdim G7} Str X4={CM7 Cdim Abm7 Db7} Str X5={CM7 A7 Dm7 Db7} Str X6={Am7 Ebdim Gm7 Cdim Em7 Am7 D7 G7} Str X7={CM7 E7 Am7 G7} Str X8={CM7 Ab7 Db7 G7} Str X9={Cm7 Fm7 Dm7 G7} Str X10={Cm7 Fm7 D7 G7 Bm7 Em7 Ab7 G7} Array J=X0,X1,X2,X3,X4,X5,X6,X7,X8,X9,X10 Function K(X){MetaText(J(X))} [12 Px=RandomSelect(0,32,64,96,127) X=Random(11) IF(NewOnly==0){X=RandomSelect(1,2,3,6,10)} // X=6 // test IF(X==0){K(0) X0} IF(X==1){K(1) X1} IF(X==2){K(2) X2} IF(X==3){K(3) X3} IF(X==4){K(4) X4} IF(X==5){K(5) X5} IF(X==6){K(6) X6} IF(X==7){K(7) X7} IF(X==8){K(8) X8} IF(X==9){K(9) X9} IF(X==10){K(10) X10} Tone = RS2( {@1o6H2}, {@12o6H2},{@40o5H}, {@41o5H},{@44o4H},{@45o5 q99 M=0 y64,0}, {@49o5 H},{@49o6H}, {@53o5H},{@54o5H}, {@58o4H},{@59o5H},{@60o5H},{@62o5H},{@65o5H}, {@66o5H}, {@67o4H}, {@69o4H},{@70o6H}, {@71o5H},{@71o4H},{@72o6H},{@72o5H}, {@70o6H}, {@12o6H2},{@12o6H2}) ]Int N=7Include(fadeio.h)r-%(384*N)FadeoutAll(N) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)