サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル キッズ・ファミリー ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント コード進行自動発生ソフトです。C/Am キーオンリーですが、下に表示が出ます。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"コード進行お助けソフト2"} 作者{"メロン"} // コード進行自動発生ソフトです。C/Am キーオンリーですが、下に表示が出ます。 // プレイするたびに変わるので、一回聴いて、気に入りそうだったら、コピーしておきましょう。 Int SW = 0 ;// 0:ノーマル+ 標準+。 // 1:ノーマル++ 標準++。 2nd'ryドミナント入り。 // 2:Jazz ジャズ。 ジャズ・ドミナント入り。 Tempo = 150 ;// テンポ Int Tone= 49 ;// 音色番号 //------------------------------------------------------------------------------ Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function JTT(){ Result = RS2({Am },{Am6 },{Am7 },{C },{CM7 },{C6 },{Em },{Em7 },{Em6 });} Function JSS(){ Result = RS2({Fm },{Fm6 },{Fm7 },{F },{F6 },{FM7 },{Dm },{Dm7 },{Dm6 },{Dm7b5 },{Ab7 },{Ab6 },{AbM7 },{DbM7 },{Bb7 });} Function JDD(){ Result = RS2({G },{G7 },{Gaug },{Bdim },{Db7 },{Ddim },{E7 },{Fdim });} Function JD(){ Result = RS2({G },{G7 },{Gaug },{E7 });} Function TTDD(){ Result = RS2({E7 },{G7 },{B7 });} Function SSDD(){ Result = RS2({C7 },{A7 });} Function DDDD(){ Result = RS2({D7 },{Ab7 });} Function JTTDD(){ Result = RS2({E7 },{Fdim },{G7 },{Abdim },{B7 },{Cdim });} Function JSSDD(){ Result = RS2({C7 },{Dbdim },{A7 },{Bbdim },{Db7 },{Ddim },{Ab7 },{Adim },{F7 },{Gbdim });} Function JDDDD(){ Result = RS2({D7 },{Ebdim },{Ab7 },{Adim });} Str Z; Int L; IF(SW==0){[Z = Z + JTT + JTT + JSS + JD] Z=Z + JTT + JSS + JTT + JTT;L=12} IF(SW==1){[Z = Z + JTT + SSDD + JSS + DDDD + JDD + JTT;]L=12} IF(SW==2){[Z = Z + JTT + JSSDD + JSS + JDDDD + JDD + JTT;] L=12} Print(Z) //-------------------------------------------------------- 音源初期化 Include(chord2.h); TR=1@(Tone) l1q100 Z TR=10[(L)[n36n38]r-1[8n42,8]] この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)