サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル アニメ・ゲーム ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 何かを題材にそこからメロディを作ろう!と考えてふと目に付いた物が時計で、14:30分でした。時刻から作ったメロディです。BGMってあんまり作らないんですが意外と綺麗にまとまりました。2回ループさせてます。是非聴いてください! 曲データ(サクラから貼り付けます。) TrackName={"----------14:30----------"}Copyright={"∴ab"}MetaText={""}INT KEY=0Key(KEY) Tempo(118)Time(2:1:0)Include(gs.h);TimeSignature=4,4;System.MeasureShift = 1;ResetGM; r2 ResetGS; r2TrackSync; Str Rdm={v.Random(10);q.Random(15);t.Random(2);} Str Pn={r64 y64,127 r-64};Str Pf={r-64 y64,0 r64};Str Pp={Pf;Pn;} Function TR1V(Int Vol){TR 1 V(Vol); TR 2 V(Vol);} Function TR1(Str X){TR 1 Rdm; P 0 BR 12 p%0 FineTune(64); UseKeyShift(on); X;TR 2 Rdm; P 127 BR 12 p%0 FineTune(68); UseKeyShift(on); X;} Function TR2V(Int Vol){TR 3 V(Vol); TR 4 V(Vol);} Function TR2(Str X){TR 3 Rdm; P 0 BR 12 p%0 FineTune(64);UseKeyShift(on); X; TR 4 Rdm; P 127 BR 12 p%0 FineTune(68); UseKeyShift(on); X;} Function TR3V(Int Vol){TR 5 V(Vol); TR 6 V(Vol);} Function TR3(Str X){TR 5 Rdm; P 0 BR 12 p%0 FineTune(64);UseKeyShift(on);X TR 6 Rdm; P 127 BR 12 p%0 FineTune(68);UseKeyShift(on); X} Function TR4V(Int Vol){TR 11 V(Vol); TR 12 V(Vol);} Function TR4(Str X){TR 11 Rdm; P 0 BR 12 p%0 FineTune(64);UseKeyShift(on); X TR 12Rdm; P 127 BR 12 p% 0 FineTune(68);UseKeyShift(on); X} Int TR5R = 16;Function TR5V(Int Vol){TR 7 V(Vol); TR 8 V(Vol-20); TR 9 V(Vol-40);} Function TR5(Str X){TR 7 Rdm; P 64 BR 12 p%0 FineTune(64);UseKeyShift(on); X TR 8 Rdm; P 127 BR 12 p%0 FineTune(68);UseKeyShift(on); r(TR5R) X TR 9 Rdm; P 0 BR 12 p%0 FineTune(60);UseKeyShift(on); r(TR5R/2) X} Int TR6R = 4;Function TR6V(Int Vol){TR 13 V(Vol); TR 14 V(Vol-20); TR 15 V(Vol-40);} Function TR6(Str X){TR 13 Rdm; P 64 BR 12 p%0 FineTune(64);UseKeyShift(on); X TR 14 Rdm; P 127 BR 12 p%0 FineTune(68);UseKeyShift(on); r(TR6R) X TR 15 Rdm; P 0 BR 12 p%0 FineTune(60);UseKeyShift(on); r(TR6R/2) X} FUNCTION HT(AA,AB,AC,AD,AG,AH,AI,AJ,AK,AL){TR=AA;CH=AB;@=AC;V=AD;q=(AG);REV=(AH);CHO=AI;M=AJ;P=AK;}Include(chord.h);Include(unison.h); STR MR1={EP(127)@(12)[q(50)f#rdrf#rdradgdf#rererc#rerc#rgc#f#c#erdrdr"brdr"br:g"bf#"berc#dq(99)e^^^^^^^"a^^^^^^^]gd"bgd"bf#gq(99)a1} STR MR2={EP.W(30,127,!16,127,0,!1+1+1)q(99)@(57)rrb^`c#^`d^`c#^^b^^a^^^^^f#^^b^^^^^^b`c#`d^^b^^`d^`g^^`f#^^`d^`d^^^^^`e^^^^^^^^^rrb^`c#^`d^`c#^^b^^a#^^^f#^e^f#d^^^^"b^d^g^^f#^^d^d^^^^^"bdg^^f#^^d^d^^^e^^^d1+1} STR MR3={EP.T(50,100,!1+1,100,0,!1+1)@(11)[4d^g^a^g^][4d^f#^a^f#^]} // TR CH @ V q REV CHO M P // HT(001,001,057,110,088,020,050,010,064)TR1V(127)TR1(r1l16[[8r1]MR2;r1+1]) HT(002,002,012,127,090,040,050,030,064)TR2V(120)TR2(r1>l16[MR1[8r1]MR3]) STR BS1={l16[d^d^dd^d^^`d^d^d^c#^c#^c#c#^c#^^`c#^c#^c#^"b^"b^"b"b^"b^^b^"b^"b^:"a^"a^"a"a^"a^^a^g^e^]"a^"a^"a"a^"a^^e^c#^"a^} STR BS2={l8[["gg]["aa]["f#f#]["bb][4"gg][4"aa]]}STR BS3={l16[d^d^dd^d^^`d^a^g^][d^d^dd^d^^`d^a^f#^]} HT(007,007,088,065,088,020,050,010,064)STR BBS={Time(2:1:1)r1<<[BS1;BS2;BS3]}BBS;HT(008,008,088,065,088,020,050,010,064)BBS STR ST1={SUB{[d1c#1"b1"a1]}[f#1e1d1e2a2]} STR ST2={["b2c#2:c#2d2"b1c#2e2]'c#"a#'2d2"b1c#1}STR ST3={SUB{d1+1+1+1}g1+1f#1a2f#2} HT(004,004,051,070,099,060,050,030,032)TR4V(70)TR4(>q(99)@(51)r1[ST1;ST2;ST3]) STR GT1={EP(127)[[4'f#a'^dr][4'ae'^c#r][4'df#'^"br][4'ec#'^"ar]]} STR GT2={EP(127)l8[ペダル"g"bdf#放すペダル"ac#eg放すペダル"f#"ac#e放すペダル"bdf#b放すペダル"g"bdf#bf#d"b放すペダル:"ac#eg`c#aec#]"ac#ega`c#`e`g} STR GT3={EP.T(50,100,!1+1,100,0,!1+1)l8[ペダル[a`d`g`d]放す][ペダル[a`d`f#`d]放す]l16} HT(005,005,007,080,080,030,050,030,096)TR3V(80)TR3(r1@(1)l16[GT1;GT2;GT3]) STR BL1={[3r1]a^g^f#^e^d1[r1]a^e^c#^e^}STR BL2={[3r1]"a^c#^e^g^[4r1]}STR BL3={[4d^^^^^^^]} HT(006,006,015,117,080,030,050,030,064)>TR6R=16TR6(r1V(110)@(15)l8[BL1;BL2;BL3]) $d{'n33,n35,n36'}$t{'n33,n35,n36,n40'}$s{'n82,n80,n42'}$i{'n69,n44'}$n{'n81,n46'}$q{n49}$w{n57}$f{n64}$g{n63} STR DR1={Rhythm{{[[7srnrsrsr][nrsi]]}{[4drrrtrrr:drdrtrrr]drddtrtt[3drrrtrrrdrdrtrrr][3trdr][4t]}l1q[[r1]l2wl4qwl1:w]l16}} STR DR2={Rhythm{{[4drrrtrrr:drdrtrrr]drddtrtt[drrrtrrrdrdrtrrr][7trdr]trtt[4drrrtrrr:drdrtrrr]trddtrtt}{[6[3srnr]srnn][8nrsi][7srnrsrsr][nrsi]}l1qrrrwrl2[qw]l1[qw]l16}} HT(010,010,012,100,080,050,050,000,064)l16Rhythm{{l2qwl16}{[3srnr]nrrr}[trdr][5t]rrr}[DR1;DR2] STR BG1={[7r1]@(126,7)BR(100)p(100)q(99)P(64)EP.T(80,120,!1)'cd#d'1} STR BG2={[8r1]BR(0)p(64)EP.T(80,127,!1+1,127,80,!1+1)@(125,5)d1+1+1+1} HT(016,016,012,100,080,050,050,000,064)r1[BG1;BG2] この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)