サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント chord4.h のテストに作ってみました。詰め詰めにして16行に・・(笑)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"お夜食はスープで"} 作者{"メロン"} // chord4.h のテストに作ってみました。詰め詰めにして16行に・・(笑)。 //------------------------------------------------------------------------------ 音源初期化 Include(chord4.h);Function Q(K,M,D){TimeKey(K)Mode(M)}Function RS(Array AR){ Str A=AR(Random(SizeOf(AR)))A}Str Dim={ System.KeyFlag=(-1,-2,0,0,-1,0,-1);}Str Dr Function C(Str L){Str D={'cegb'}D=D+L D}Function J(Str B,D){UseKeyShift(0)B UseKeyShift=1} Str Dr1={J({[n36n38]r-1[8n42,8]})}Str Dr2={J({[4n36,8n38,8]r-1n49,4.n49,2+8r-1[4n46,4]})} Str Dr3={J({[n36,4.:n36,8][n36,16]r-1r8n38,4.rn38r-1[4n46]})}Str Dr4={J({[4n36]r-1rn38r[4 n38,16]r-1r2+8n49,4.})}Function X(){TR=2l8[q95C q35C rq95C]TR=8P=32@27q40l8v77[rC]rl16[C] r8C r TR=9P=127v88@49 q100o6RS({>eccd*eg<},{gb>ce<},{>d*ecTR=3c4.c8g4.c8 TR=10Dr}TR=2o5 @19o6 P=32 v88 TR=16P=64 TR=3@33o3 Str SA={v127Q(0,0)M=77q95v127c2+8d8e b-4.e4.g gf2+8d8 gfe8d> d2e2e-"b-2"b2c2c1c+2d2.c"b2.e-c1.<[r1]r2.}Str SB={[g-16g16g+16+8.d-b-4b2.+8 :a-e8d2d-4a-1r8]>de8e-2d-1+4r8<}TR=1@66 [4r1] [SA]SB[4r1]SA TR=4@49[4r1][SA]SB[4r1]SA Str E={Dr=Dr1 Q(0,0)X Q(-2,0)Dim X Q(2,1)X Q(-5,4)Dr=Dr2 X}Str F={Q(0,5)X Q(5,1)X Q(1,4)X Q(-5,4)X}STR G={Dr=Dr3 Q(-6,5)X Q(-1,1)R Q(-4,6)R Dr=Dr4 Q(1,4)R}E[[3E]F][G]E[3E]F[3E] Int _B=10 Include(fadeio.h)r-%(384*_B)FadeoutAll(_B) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)