サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 「なんとも言えないブルーな感じ・・・」を出してみたくて作ってみました。「やるせない陰鬱・・・」そんな感じです。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"ブルーな夜"} 作者{"メロン"} // 「なんとも言えないブルーな感じ・・・」を出してみたくて作ってみました。 // 「やるせない陰鬱・・・」そんな感じです。 // コードの「変な響き」にも耳を澄ませて聞いていただけると嬉しいです。 // 最後は、モードに慣れてない方向けのオマケみたいにして終了してみました。 // これやるとジャズじゃなくなる感じですが(笑)。 //------------------------------------------------------------------------------ 音源初期化 Function Ry(Str C,D=16){Array T Str A T(0)=C T(1)={^} T(2)={r} For(Int N=0;N`cg`da q85} Str In={ TR=1P=96 @67o4 l12 @12o6y64,66 "e"g+a a+b>d efg+ aa+b- a2. e-de- TR=2P=32 '"aceb'2+6 '"aceb'4 '"aceb'12+1 TR=12P=32q100o4v111 l1 ea TR=3@33o3q85 a2+6a12r6a12 a2. b12b-12a12 TR=10 r1+2. n36,12n38,12n36,12 } Str In2={ TR=1P=96 @67o4 l12 @12o6y64,66 [>"a4d+6e12+6 a12b6"g+12<]"ab`c b>cd cde- a+aa- b6b12+2 a+aa- TR=2P=32 l12 ['"aceb'4 '"a-c-e-b' r '"aceb' 'ace-g-'6 'eg+bd'4 'ace-g-'12] l4 'ace-g-' '"bdf+a' 'ce-f+a' 'dfbc' 'aceg+'6 'aceg+'12+2. TR=12P=32q100o4v111 l1 aea-e TR=3@33o3q85 [a4d+6e12 a6b4a12] v120 B`g+6`e12+2 e12f12f+12v100 TR=10[3DM]DB } Str H={ XA=ZZ(3,A) XB=ZZ(3,A) XC=ZZ(3,A) XD=ZZ(6,A) X=XA+XB+XA+XC+XA+XB+XD TR=1 X l4 r-12[3 RS(A)]r12 l12 [15 RS(A)] TR=2P=32 l12 ['"aceb'2+6 'aceb'12r6 '`ace-g-'12+1 ] TR=12P=32q100o4v111 l1 [4 RS({'"ae'}, {'"af+'}, {'"ae-'}) r%(-Q)] TR=3@33o3q85 IF(Random(5)!=0){ RS({l.N(!4,!12,!12,!12,!4,!4)},{l.N(!4,!6,!12,!4,!6,!12)},{l.N(!6,!12,!4,!6,!12,!4)}) [4 RS({"a},{a})[5RS({"g+},{"a},{"b},{c},{c},{d},{e},{g+},{a},{b},{`c})]] }Else{[B l4 RS({aefe}, {g+dec}) ]} TR=10[3DMA] DBA XA={}XB={}XC={}XD={} } Str HB={ XA=ZZ(3,A) XB=ZZ(3,A) XC=ZZ(3,A) XD=ZZ(6,A) X=XA+XB+XA+XC+XA+XB+XD TR=1 X l4 r-12[3 RS(A)]r12 l12 [15 RS(A)] TR=2P=32 l12 V=100 [4 CC=Ry(RS2({'"aceb'}, {'dfab'}, {'"ace-g-'}),12); CC ] TR=12P=32q100o4v111 l1 [4 Q=RandomSelect(-48,-24,0,24,48) r%(Q) RS({'"ae'}, {'"af+'}, {'"ae-'}) r%(-Q)] TR=3@33o3q85 RS({l.N(!4,!12,!12,!12,!4,!4)},{l.N(!4,!6,!12,!4,!6,!12)},{l.N(!6,!12,!4,!6,!12,!4)}) [4 RS({"a},{a})[5RS({"g+},{"a},{"b},{c},{c},{d},{e},{g+},{a},{b},{`c})]] TR=10[3DM] DB XA={}XB={}XC={}XD={} } In In2 [4H] In2 [8HB] In2 In TR=1e-6g6b6`e-6`g+1 '"ac+e'1+1 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)