サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル アニメ・ゲーム ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント お久しぶりです。1ループ8秒のとても短いループ曲です。最近パンポットをいじることを覚えました。 曲データ(サクラから貼り付けます。) TrackName = {"シリアスムード"}; Copyright = {"S.Zayo"}; /* 1ループ4小節(8秒)の短いループ曲。 fadeio.hを使ってエクスプレッションでフェードアウトするとちょっと困ったことになるので、 メインボリュームでフェードアウトするようにスクリプトを自作。 その際fadeio.hの定義ファイルを多分に参考しました。 */ Int Repeat = 4; // 繰り返し回数を設定できます //-----------------------------variable definitions--------------------------------- Int In = 2;//イントロからメロディースタートまでの時間 Int Ltime = 4;//1ループの時間 Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間 Int Fade = 4;//フェードアウトにかかる時間 Int Tmp = 120;//テンポ Int Sig = 4; Int Ptime = (In+Ltime*Repeat+Fade)*Sig*60/Tmp; //---------------------------function definitions--------------------------------- Function Repstr(Str MML,Int Tim,Int Rep,Int Beg=0)//MML繰り返し処理関数 { Int I; For(I=0;I1){I = I+{^1}; Mes--;} Str CMD = {V.onTime(Prev,0,LEN)}; CMD.s({LEN},I); CMD; } Function FadeoutAll(Int Mes,Array X) { Int T = Time; For(Int J=1;J<=16;J++){ TR(J); CH(J); Time(T); FadeoutVol(Mes,X(J-1)); } } //------------------------------system establishing--------------------------------- TimeBase(96);System.MeasureShift(1); Time(0:1:0) Tempo(Tmp);TimeSignature(Sig,4);TrackSync;PrintPlayTime(Ptime); //-------------------------------string definitions--------------------------------- #E1 = {EP.onCycle(!4,80,85,90,105,127,120,110,100)}; Str Mel = { Slur(0,!2) EP.onTime((0,0,!2),(0,100,!2),(100,127,!2^4)) l4 Sub{rrd&e^^^}rrf+&a^^^ EP(100) l16 rrgr EP.onTime(127,60,!4) f+^"brrrrr l2 rrr }; Str Bcc = { Slur(0,!2) EP.onTime((0,0,!2),(0,100,!2),(100,127,!2^4)) l4 rrb-&b^^^r }; Str Kan = { l4 #E1; [16'df+'] }; Str KanIn = { l4 #E1; [8 'df+'] }; Str Gtr = { l16 EP.onCycle(!16,127,70,100,70) [64 '"f+"bf+b`d`f+'] }; Str GtrIn = { l16 EP.onCycle(!16,127,70,100,70) [32 '"f+"bf+b`d`f+'] }; Str Bass = { l16 #E1; [4 "brf+r"arc+"br"bf+r"arc+r] }; Str BassIn = { l16 #E1; ["brf+r"arc+"br"bf+r"arc+r] }; Str Rtm = { [8 l16 Sub{n42rrrn37rrr}[4n69n70]] }; Str RtmIn = { [4 l16 Sub{n42rrrn37rrr}[4n69n70]] }; //-----------------------------------Tracks-------------------------------------- /* Track 001,002,003,004,005,006,007,008,009,010,011,012,013,014,015,016 */ Array Vols = (127,110,105,115,070,090,100,100,100,090,070,100,100,100,100,100);//各トラックのメインボリューム FOR(Int A=1;A<=16;A++){TR(A); CH(A); V(Vols(A-1));} TR(1) Voice(45) M(20) REV(0) CHO(40) P(48) PitchBend(0) q100 v100 o5 Repstr(Mel,Ltime,Repeat); Time(Out:1:0) Mel; TR(2) Voice(45) M(20) REV(0) CHO(40) P(80) PitchBend(0) q100 v100 o6 Repstr(Mel,Ltime,Repeat); Time(Out:1:0) Mel; TR(3) Voice(53) M(0) REV(0) CHO(20) P(48) PitchBend(0) q100 v100 o4 Repstr(Bcc,Ltime,Repeat); Time(Out:1:0) Bcc; TR(4) Voice(53) M(0) REV(0) CHO(20) P(80) PitchBend(0) q100 v100 o3 Repstr(Bcc,Ltime,Repeat); Time(Out:1:0) Bcc; TR(5) Voice(25) M(0) REV(0) CHO(20) P(64) PitchBend(0) q100 v100 o4 Time(1:1:0) GtrIn; Repstr(Gtr,Ltime,Repeat); Time(Out:1:0) Gtr; TR(6) Voice(35) M(0) REV(0) CHO(0) P(64) PitchBend(0) q100 v100 o3 Time(1:1:0) BassIn; Repstr(Bass,Ltime,Repeat); Time(Out:1:0) Bass; TR(10) M(0) REV(0) CHO(0) P(64) v100 Time(1:1:0) RtmIn; Repstr(Rtm,Ltime,Repeat); Time(Out:1:0) Rtm; TR(11) Voice(15) M(10) REV(20) CHO(40) P(32) PitchBend(0) q100 v127 o5 Time(1:1:0) KanIn; Repstr(Kan,Ltime,Repeat); Time(Out:1:0) Kan; //-------------------------------effect on time---------------------------------- Time(Out:1:0) FadeoutAll(Fade,Vols); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)