サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 星人さんの関数郡に刺激されて、以前やったギタリンをまたやってみました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"花色の人生"} 作者{"メロン"} // 星人さんの関数郡に刺激されて、以前やったギタリンをまたやってみました。 // ソースをちょっと見ると判るかと思いますが、リード・メロとドラムを除いて、 // それ以外はギタリンの設定(とコード進行)でこの曲はできてます。 // この曲を聴いていると、酸いも甘いも経験してきて、人生の悲哀や哀歓を超えて・・・って // 感じが自分はするんですが、どうでしょうか・・。シルバー・エイジ・・とか(笑)。 //------------------------------------------------------------------------------ 音源初期化 //-----[ ギタリン Ver.0.1 ]----------------------------------------------------- Int Z= 100 ;// 音量(v値) Int _Kx= 16 ;// 個数 Array _Zx= Z,0,Z,Z,0,Z,Z,Z,Z,Z,0,Z,0,Z,Z,Z Int _Ox= 4 ;// 基礎音階 Int _Ox2= 4 ;// 音階幅 Int _Qx= 127 ;// ペダル 0, 127, (-1) Int _Px= off ;// ランダム・パンポット on, off //-----[ 関数部 (いじらないこと)] -------------------------------------------- Function S2A(Str K,D){ Array H; Str Y; Int CT; Int Hit; For(Int N=1;MID(K,N,1)!={};N++){ IF(MID(K,N,1)!={ }){ Y=Y+MID(K,N,1); H(CT)=Y; Hit=1; } IF(MID(K,N,1)=={ }){ IF(Hit!=0){ IF(MID(K,N+1,1)!={ }){ CT++; } Y={}; } } } Result=H; } Function C2A(Str Cho,D){ Str X=Cho X.s({'},{}) X.s({*},{* }) X.s({* +},{*+ }) Result = S2A(X) } //------ Str _X_={ Int _W; Array _K; Str _H; y64,0y64,_Qx _K=C2A(Cho) [(_Kx) _H = _K(Random(SizeOf(_K))); o(Random(_Ox,_Ox+_Ox2)); v(_Zx(_W));_W++; IF(_Px==on){P(Random(128))} _H]} Include(chord.h);Function J(Str Cho,D){_X_}Function J2(Str Cho){_X_} //-----[ ギタリン ここまで ]---------------------------------------------------- TR=5v127V=103p%555 @67q99M=99 [[8r1]r8 a2gfedc+2"b-"a-ef1 e1g1b++1`c1r1+1 e-2a-fg-1 a-f-d-c-c--1 d-e2e- a-1 `d-g1r1][8r1] l8r `c-`cb-ba-ac c+1 d1a-g2 TR=6v127V=103 r8 @49q99M=99 [[8r1]r8 a2gfedc+2"b-"a-ef1 e1g1b++1`c1r1+1 e-2a-fg-1 a-f-d-c-c--1 d-e2e- a-1 `d-g1r1][8r1] l8r `c-`cb-ba-ac c+1 d1a-g2 Int Tone=50 [3 トラック1音符16@12 【【_Ox2=3 _Ox=4 _Kx=16 J(#Em7) J(#Cpdim) : J(#Fm7) J(#Bm7b5) 】J(#Db7) J(#C)】J(#D7) J(#Gm7) [J(#Eb7) J(#Abm7): J(#Dbm7) J(#Bb7) ] J(#Db7) J(#G7) トラック2@(Tone)l4@52 【【_Ox2=2 _Ox=5 _Kx=4 _Px=on _Zx= Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,0,Z,0,Z,Z,Z J(#Em7) J(#Apdim) : J(#Ab7) J(#G7) 】J(#Db7) J(#Em7)】J(#D7) J(#Gm7) [J(#Eb7) J(#Abm7): J(#Dbm7) J(#E7) ] J(#Db7) J(#G7) トラック12P=122@(Tone)l2 【【_Ox2=2 _Ox=4 _Kx=2 _Zx= Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,0,Z,0,Z,Z,Z J(#Am7) J(#Cpdim) : J(#Fm7) J(#G7) 】J(#G7) J(#C)】J(#D7) J(#Gm7) [J(#Eb7) J(#Abm7): J(#Dbm7) J(#Bb7) ] J(#Db7) J(#G7) トラック13P=0@(Tone)l1//@50//音符16 【【_Ox2=2 _Ox=4 _Kx=1 _Zx= Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,0,Z,0,Z,Z,Z J(#CM7) J(#Apdim) : J(#Dm7b5) J(#G7) 】J(#G7) J(#C)】J(#D7) J(#Gm7) [J(#Eb7) J(#Abm7): J(#Dbm7) J(#Bb7) ] J(#Db7) J(#G7) トラック3音階3 音色(AcousticBass) 【【_Ox2=2 _Ox=3 _Kx=4 _Zx= Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,0,Z,0,Z,Z,Z J(#CM7) J(#Am7) : J(#Dm7) J(#G7) 】J(#G7) J(#C)】J(#D7) J(#Gm7) [J(#Eb7) J(#Abm7): J(#Dbm7) J(#Bb7) ] J(#Db7)o3 v+25r8gb>df8 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)