サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント どうも、5Rです。今回はトランスという音楽を作ってみました。 1分ちょっとの曲なので聞いてみてください♪ ◆MP3→ http://www.geocities.jp/ttappjp/Cyber_drive.mp3 曲データ(サクラから貼り付けます。) /* [ タイトル ] Cyber drive(EDIT Ver.) [ 著作権者 ] 5R [ 推奨音源 ] MP3のほうで聞いてくれると嬉しいです [ 制作音源 ] S-YXG50 and TW-MUSIC2 [チャンネル数] 16 [ Mail ] basaman@ka6.koalanet.ne.jp [ HP ] http://www.geocities.jp/ttappjp/ [ MP3 ] http://www.geocities.jp/ttappjp/Cyber_drive.mp3 [ ジャンル ] サイバートランス [ 転載条件 ] 許可 [ 制作環境 ] WindowsXP home Edition [ 演奏時間 ] 1分3秒 [ 備考 ] イヤホン推奨 [ コメント ] どうも、生まれて初めてトランスというモノを作ってみました、5Rです。 そもそもトランスというのはどういうモノかというと、一言では言えませんが クラブミュージックのひとつでいかに人を踊らせるか、いかに人をトランス状態に するかという目的でつくられた音楽で、基本的な構成は一つのいわゆるリフを 何回もループさせるという感じです。まぁ、一言で言えば単調な構成ってことです(笑 ところで、タイトルにEDIT Ver.ってありますが、EXTENDED Ver.は作らない予定です(何 MP3はメロディーや和音、ベースなどはXGでドラムはTW-MUSIC2のダンスセット をつかった重ね録りをしています。 まぁ、最近自分の作風が安定してませんがこれからも多分不安定なままでしょう(笑 っということで次回は久しぶりにアップテンポのロックを作ってみたいと思います(←誰も聞いてねーよ */ //-----------------------------------------------First Setting------------------------------------------------------- TrackName={"Cyber drive(EDIT Ver.)"}; Copyright={"5R"}; TimeBase=96; System.MeasureShift(3); ResetXG;r1 TrackSync; TimeSignature=4,4; INT ROCK=150 //-------------------------------------------------Setting----------------------------------------------------------- Function BASIS(B1,B2,B3,BC,BD,B4,BM,B5,B6,B7,B8,BA,BB) {TR=B1;ON(-1)CH=B2;@(B3,BC,BD);P=B4;M=BM;CHO=B5;REV=B6;v=(B7)V=(B8)q=(BA)o=(BB)} Function ON(A){Time(A:1:0)}STR INS ={InstrumentName} //***(TR , CH , @1 , MSB, LSB, P , M , CHO, REV, v , V , q , o )InstrumentName BASIS(001, 001, 082, 000, 000, 064, 010, 030, 127, 120, 115, 100, 005)INS={"Melody1"} BASIS(002, 002, 082, 000, 020, 044, 010, 020, 127, 127, 095, 100, 005)INS={"Melody2"} BASIS(003, 003, 082, 000, 041, 064, 010, 020, 127, 127, 095, 100, 005)INS={"Melody3"} BASIS(004, 004, 039, 000, 000, 064, 000, 000, 100, 100, 100, 100, 003)INS={"Bass"} BASIS(005, 005, 010, 000, 000, 104, 000, 010, 080, 095, 100, 100, 006)INS={"Pico2"} BASIS(006, 010, 026, 127, 000, 064, 000, 000, 030, 120, 127, 100, 005)INS={"Drum"} BASIS(007, 011, 025, 127, 000, 064, 000, 000, 030, 120, 127, 100, 005)INS={"Drum"} BASIS(008, 008, 051, 000, 000, 034, 030, 000, 080, 100, 100, 100, 003)INS={"Synth Strings"} BASIS(009, 009, 081, 064, 000, 064, 000, 000, 010, 127, 127, 100, 005)INS={"BGSound"} //***(TR , CH , @1 , MSB, LSB, P , M , CHO, REV, v , V , q , o )InstrumentName Function BASIS2(C1,C2,C3,C4){TR=C1 y72,C2 y73,C3 y75,C4} Str ___={000} //****(TR , RT , AT , DT ) BASIS2(001, 050, 066, 064) BASIS2(002, 050, 065, 064) BASIS2(003, 090, 065, 064) BASIS2(004, 060, 069, 063) BASIS2(005, 070, 060, 068) Time(-3:1:0)Tempo=2000 Time(000:4:0) Tempo=ROCK Function TT(F,S){Time(F:S:000)} Function OU3(Str D){Sub{D}>D<} Include(unison.h); Include(stdmsg.h); Include(bend.h); STR C={'c`cebg'} STR D={'d`df`c#a'} STR E={'e`eg`d#b'} STR F={'f`fa`e`c'} STR G={'ga#`d`g``g'} STR A={'a`c`e`a``a'} STR AM={'a#"`a#`c#`f+f+'} STR B={'b`d`f#`b``b'} Str MAIN={l8q95Sub{v127[a^^a^^abb^^b^^b^g^^g^^gaa^^^r4r4]} v90[f^^f^^fgg^^g^^g^e^^e^^eff^^^r4r4]} Str MAIN1={l8q95Sub{v127[a^^a^^abb^^b^^b^g^^g^^ga:a^^a^^a^]a^^^} v90[f^^f^^fgg^^g^^g^e^^e^^ef:f^^f^^f^]f^^^} Str MAIN2={l8q95Sub{v127[a^^a^^abb^^b^^b^g^^g^^gaa^^a^^a^]} v90[f^^f^^fgg^^g^^g^e^^e^^eff^^f^^f^]} Str MAIN0={l8q95Sub{v127[a^^a^^abb^^r^^^^g^^g^^gaa^^^r4r4]} v90[f^^f^^fgg^^r^^^^e^^e^^eff^^^r4r4]} Str EP1={EP.T(0,127,!1^1^1^1)} TR=1 ON(3)p64 EP1 OctaveUnison(MAIN1)r1 ON(12) [OctaveUnison(MAIN2)] OctaveUnison(MAIN0) TR=2 ON(3)p66 EP1 OctaveUnison(MAIN1)r1 ON(12) [OctaveUnison(MAIN2)] OctaveUnison(MAIN0) TR=3 ON(3)p61 EP1 OctaveUnison(MAIN1)r1 ON(12) [OctaveUnison(MAIN2)] OctaveUnison(MAIN0) TR=4 ON(012)l8 [3[4"aa][4"bb][4"gg][4"aa]] TR=5 l16 Str Pg={ga#`da#} Str Pa={a`c`e`c} Str Pb={b`d`f#`d} ON(20) [[4Pa] [4Pb] [4Pg] [4Pa]] TT(37,1) @120 EP.T(0,0,!8^16,0,127,!2) V=127 v127 b1^4 TR=6 ON(-001) p%-300 UseKeyShift=off v.Random(5) $k{y75,40v=127n(Kick1)} $s{y75,40v=90n(Snare1)} $d{y75,64v=110n(HandClap),} $w{y75,20v=120n(LowTom1)} $c{y75,50v=115n(ClosedHiHat)} $o{y75,70v=125n(OpenHiHat)} $m{y75,10v=120n(MidTom1)} $i{y75,11v=120n(MidTom2)} $g{y75,10v=120n(LowTom2)} $y{y75,70v=127n(RideCymbal1)} $a{y75,68v=120n(CrashCymbal2)} $h{y75,68v=120n(CrashCymbal1)} $N{y75,60v=120'n(Snare2)n(Snare1)'} ON(006)l4 Rhythm{[18k]} ON(012) Rhythm{[[16k'kd']]} TR=7 ON(008)l8 Rhythm{[10co]} ON(012) Rhythm{[[32co]]} TR=8 ON(003) l1 V.W(90,127,!1) EP1 [A B G: A]l2 A ON(012)l1 [6A B G: A]l1^1^2 A TR=9 TT(1,3) EP.T(0,127,!8) @115,64 'cc#dd#eff'1^2 @40,00,0 o2 EP.T(127,0,!1^1) '"c"c#"d"d#"e"f"f#"g"g#"a"a#"b'1^1 EP=127 TT(10,3) EP.T(0,127,!8) @115,64 'cc#dd#eff'1^2 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)