サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ジャズです。 自動アドリブみたいなものを作ってみました。 曲名は4度の間隔をよくつかったとこからきました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ Include(gs.h); //------------------------------------------------------------------------------ TrackName={"#4"}; Copyright={"αJA"}; TimeSignature=4,4; Tempo(150); System.MeasureShift = 1; ResetGM; r2 ResetGS; r2 TrackSync; //------------------------------------------------------------------------------ Int L= 32;//Loop /*何をやっても4位という微妙な順位にしかなれない人の心境…みたい、とか想像したり。*/ TR=1@(AltoSax)o4l8v127q99 [(L*2)Str S; Int X=RandomSelect(0,1,2,3,4,4,5,6,7,8,9,9,10,11,12,12); IF(X==0){S={g`cb`e}} IF(X==1){S={`c`f`d#`g#}} IF(X==2){S={`d2}} IF(X==3){S={r4`g16`f#16`f16`d16}} IF(X==4){S={a#16b4-16`cg}} IF(X==5){S={g16`c16`c#16`f#16a#16`d#16`e16`a16}} IF(X==6){S={g16`g16r16g16`c16a#16`d#16`g#16}} IF(X==7){S={b16`e16r16`a16r16``d16``c#16``c16}} IF(X==8){S={e16f#16g16a16b16`d16`c#16b16}} IF(X==9){S={a2}} IF(X==10){S={`g2}} IF(X==11){S={`d`g`f`a#}} IF(X==12){S={r4`f24`g24`f24b}} S]'g`g'4r4r2 TR=2@(Vibraphone)< [(L)Str P; Int A=RandomSelect(0,0,1,2,2,3,4,5); IF(A==0){P={r1}} IF(A==1){P={'a`c`e`g'8'a`c`e`g'8r8'df#a`c`e'8r4'df#a`c`e'8r8}} IF(A==2){P={'gb`d`f'1}} IF(A==3){P={r2r8'gb`d`f'8r4}} IF(A==4){P={'gb`d`f'4r2'df#a`c`e'4}} IF(A==5){P={r8'gb`d`f'8r4'a`c`e`g'4r4}}P]'gb`d`g'1 TR=3@(AcousticBass)o3q100v120[(L)"g4.g8d4.g8]'"g"b'1 TR=10Channel(10)@(JazzSet)$b{v80n36,}$s{v100n38,}$h{v90n42,} $k{v90n33,}$R{v90n59,} Function RS2(Array AR){Result=AR(Random(SizeOf(AR)));}Array U=({Rhythm{'bR'8R8R8'bR'8'bR'8R8R8'bRk'8}}, {Rhythm{'bR'8R8R8'bR'8'bR'8R8R8'bRk'16R16}},{Rhythm{'bR'8R8R8'bR'8'bR'8R8R8'bRks'8}},{Rhythm{'bR'8R8R8'bR'8'bR'8R8R8'bRks'16R16}}); Str D1=RS2(U); Str D2=RS2(U); Str D3=RS2(U); Str D4=RS2(U); Str T; [(L) T=RS2(D1,D2,D3,D4) Rhythm{T} ] Rhythm{c1} この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)