サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル J-POP ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 新書式で、スコアに近い書き方を目指してみました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"「サクラ咲く」"} 作者{"メロン"} Int L= 3 ;// Loops // 新書式で、スコアに近い書き方を目指してみました。 //------------------------------------------------------------------------------ 音源初期化 Tempo=144 Include(chord2.h); Include(delay.h); Function PowC(Str S,D=-5){ Int CK=Key; Sub{ Key=(CK+12); S; Key=CK; } Sub{ Key=(CK+D); S; Key=CK; } Key=CK;S;} Function K(S){Array A={y64,0},{y64,0y64,66} Str Z=A(S)Z} Function DS(Str S){UseKeyShift(0)S UseKeyShift(1)} Str D8_1={DS({[n36n38]r-1[8n42,8]})} Str Tamb1={DS({n54[n54,8][r8n54,8]})} Str Tamb2={DS({[r8n54,8]r8[3n54,8]})} Str XM={ cegcegce } Str Xm={ ce-gce-gce- } Str XC={TrackKey(0) XM}Str XDb={TrackKey(1) XM}Str XD={TrackKey(2) XM} Str XEb={TrackKey(3) XM}Str XE={TrackKey(4) XM}Str XAb={TrackKey(-3)XM} Str XEm={TrackKey(4) Xm}Str XF={TrackKey(5) XM}Str XG={TrackKey(-5) XM} Str Pops_Set={ TR=1 K(1) @1 o6 q100 l8 TR=2 K(0) @5 o5 q100 l1 P=96 t.N(0,10,20)@25o4 TR=16 v40 l8 @12 P=122 o7 K(1) TR=3 K(0) @33 o3 q80 l4 TR=10 @1 TR=100CH=10 TR=101CH=10 v70 // Tamb } Str Intoro_1={ TR=1v88 P=30 y64,0 TR=1 cK defgede efgabaga d-e-f-g-a`cb`c e-4.g2+8 TR=2 C6 Em6 Db7 Eb6 TR=16 r1 r1 r1 r1 TR=3 cgcg8c8 ebeb8e8 d-a-d-a-8d-8 e-4.b-2+8 TR=4 P=32@90l1q100v77o4 TR=4 PowC({c e d- e-}) TR=10 D8_1 D8_1 D8_1 n49,4.n49,2+8 TR=100 r1 r1 r1 DS({[7n36,8][n36,16]}) TR=101 Tamb1 Tamb1 Tamb1 DS({n54,4.n54[3n54,8]}) } Str Intoro_2={ TR=1 ddddf+f+f+f+ feefccdcd a-a->ccdc}1-8 TR=2 D6 F6 Ab6 G7 TR=16r1 r1 r1 r1 TR=3 dada8d8 f`cf`c8f8 a-e-a-e-8a-8 l8gggabagal4 TR=4 PowC({d f a- g}) TR=10 D8_1 D8_1 D8_1 D8_1 TR=100 r1 r1 r1 n49n38n38[4n38,16] TR=101 Tamb1 Tamb1 Tamb1 DS({n54,4.n54[3n54,8]}) } Str AMelo_1={ TR=1 y64,0M=55 @82l8 [re4dcccg] l4f l8 TR=2P=96 C Em Db7 Eb TR=16 XC XEm XDb XEb TR=3 cgcg8c8 ebeb8e8 d-a-d-a-8d-8 e-b-e-b-8e-8 TR=4 P=32@90l1q100v77o4 PowC({c e d- e-}) TR=10 D8_1 D8_1 D8_1 D8_1 TR=100 r1 r1 r1 DS({[7n36,8][n36,16]}) TR=101 Tamb2 Tamb2 Tamb2 DS({n54,4.n54[3n54,8]}) } Str AMelo_2={ TR=1 d4.e4.d4 f4.`c2 e-2+8a-4. g1 TR=2 D F Ab G7 TR=16 XD XF XAb XG TR=3 dada8d8 f`cf`c8f8 a-e-a-e-8a-8 l8gggabagal4 TR=4 PowC({d f a- g}) TR=10 D8_1 D8_1 D8_1 D8_1 TR=100 r1 r1 r1 DS({[7n36,8][n36,16]}) TR=101 Tamb2 Tamb2 Tamb2 DS({n54,4.n54[3n54,8]}) } Str AMelo_3={ TR=1 r4l4 gaga8b8+2 l8`cba`c fa-a-a-`ca-a-f4 e-1-8 TR=2P=96 C Em Db7 Eb TR=16r8 PowC({c1 e1 d1 e1}) TR=3 cgcg8c8 ebeb8e8 d-a-d-a-8d-8 e-b-e-b-8e-8 TR=4 P=32@90l1q100v77o4 PowC({c e d- e-}) TR=10 D8_1 D8_1 D8_1 D8_1 TR=100CH=10 r1 r1 r1 DS({[7n36,8][n36,16]}) TR=101 DS({ [n54,2] [n54,2] [n54,2] [n54,2]}) } Str AMelo_4={ TR=1 [rddd] [rfff] [ra-a-a-] rggg`dbb y64,0`d TR=2 D F Ab G7 TR=16PowC({d2 a2 f2 `c2 a2 e-2 [3g8] b8 g4 g8}) TR=3 dada8d8 f`cf`c8f8 a-e-a-e-8a-8 l8gggabagal4 TR=4 PowC({ d1 f1 a-1 g1}) r-8 TR=10 D8_1 D8_1 D8_1 D8_1 TR=100 r1 r1 r1 r1 TR=101 DS({ [n54,2] [n54,2] [n54,2] [n54,2]}) } //------------------------------ Play [(L) Pops_Set Intoro_1 Intoro_2 [ AMelo_1 AMelo_2 ] AMelo_3 AMelo_4 ] Int _B=9 Include(fadeio.h)r-%(384*_B)FadeoutAll(_B) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)