サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル アニメ・ゲーム ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 自作のアコースティックピアノ音色完成!音色のテスト用として作ったものを投稿します。MP3はこちら。 http://www15.ocn.ne.jp/~seizinn/music/MP3/terrace.mp3 私のホームページで音色をダウンロードできるので、ピアノ使いの方、ぜひ一度使ってみてください〜。 曲データ(サクラから貼り付けます。) // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.372) //------------------------------------------------------------------------------ TrackName{"テラス"} Copyright{"星人 "} MetaText = {"ジャンル ゲーム・BGM 音源 TW−MUSIC2推奨 作成日時 7月19日"} /* コメント DLありがとうございます〜。 ピアノ音色のテスト用に作成・・・したのですが、これチェンバロ用っぽいですね(汗) テスト用なのでかなり単純です。全体を2回ループして終わります。 自作のジャンル別アクセント付加関数のBeat2が間違ってたので直しました(汗) 2Beatの曲作って初めて分かったという・・・(苦笑) 今回のピアノ音色ですが、家にあるアップライトピアノを使い、私が考案した特殊製法で 作ってみました。どうでしょうか?? 売ってる音源に思うようなものがなかったのと、高コストなので自作してみました。 ホームページ容量の関係でヴェロシティでのWAVE可変は不可能でしたが、 なかなか使えるものに仕上がったのではないかと思います。 興味が御ありでしたら、私のホームページでダウンロード出来ますので ぜひ使ってみてください〜。 この曲をDLSで演奏したMP3がこちらになります。そのうちリンク切れするかも。。 http://www15.ocn.ne.jp/~seizinn/music/MP3/terrace.mp3 作者 星人 */ //------------------------------------------------------------------------------ //関数群 By星人 //バグ防止のため、ここからはいじらないでください //ここから関数制御部分 //ジャンル別アクセント付加関数 //通常のバージョン。 //書式サンプル SGJC1({},{},0,0,0,0) //STR UWJMML 内に書き込んだMMLに STR UWJ に書き込んだジャンル別アクセントを加える。 //また、UVCに値を入力することで強弱の度合いを変更可能。省略すると通常のアクセントになる。 //UVChは強、UVCmは中、UVCsは小のアクセントの値を変える。 //音量を大きくするとき正の数、小さくするには負の数。 //第一引数は-11を超えるアクセントが裏返るものもある。 //有効なのは1〜16分音符まで。 //3ビートは3/4拍子用。 //ボサ・ノヴァは2拍で1つ Function SGJC1(STR UWJMML,STR UWJ,INT UVC,INT UVCh,INT UVCm,INT UVCs){ INT USRMMLv = MML(v); STR VOCUMML ={}; SWITCH( UWJ ){ CASE({Beat2}){ VOCUMML={v.onCycle(!16,MML(v)+8+UVC+UVCh,MML(v),MML(v),MML(v),MML(v)-15-UVC+UVCs,MML(v),MML(v),MML(v));}} CASE({Beat3}){ VOCUMML={v.onCycle(!16,MML(v)+8+UVC+UVCh,MML(v),MML(v),MML(v),MML(v)-15-UVC+UVCs,MML(v),MML(v),MML(v),MML(v)-15-UVC+UVCs,MML(v),MML(v),MML(v));}} CASE({Beat4}){ VOCUMML={v.onCycle(!16,MML(v)+8+UVC+UVCh,MML(v),MML(v),MML(v),MML(v)-15-UVC+UVCs,MML(v),MML(v),MML(v),MML(v)-8-UVC/2+UVCm,MML(v),MML(v),MML(v),MML(v)-15-UVC-+UVCs,MML(v),MML(v),MML(v));}} CASE({Beat8}){ VOCUMML={v.onCycle(!16,MML(v)-8-UVC/2+UVCm,MML(v),MML(v)-15-UVC+UVCs,MML(v),MML(v)+8+UVC+UVCh,MML(v),MML(v)-15-UVC+UVCs,MML(v),MML(v)-8-UVC/2+UVCm,MML(v),MML(v)-15-UVC+UVCs,MML(v),MML(v)+8+UVC+UVCh,MML(v),MML(v)-15-UVC+UVCs,MML(v));}} CASE({Beat16}){ VOCUMML={v.onCycle(!16,MML(v)-8-UVC/2+UVCm,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-15-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-15-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-15-UVC+UVCs);}} CASE({ボサ・ノヴァ}){ VOCUMML={v.onCycle(!16,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs);}} CASE({タンゴ}){ VOCUMML={v.onCycle(!16,MML(v)+8+UVC+UVCh,MML(v),MML(v),MML(v),MML(v)-15-UVC+UVCs,MML(v),MML(v),MML(v),MML(v)-8-UVC/2+UVCm,MML(v),MML(v),MML(v),MML(v)-15-UVC-+UVCs,MML(v),MML(v),MML(v)+18+UVC+UVCh);}} CASE({ロッカバラード}){ VOCUMML={v.onCycle(!12,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs,MML(v)-15-UVC+UVCs);}} CASE({テクノ}){ VOCUMML={v.onCycle(!16,MML(v)-8-UVC/2+UVCm,MML(v)-12-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v));}} CASE({テクノ2}){ VOCUMML={v.onCycle(!16,MML(v)+8+UVC+UVCh,MML(v),MML(v),MML(v),MML(v)-12-UVC+UVCs,MML(v),MML(v),MML(v),MML(v)-8-UVC/2+UVCm,MML(v),MML(v),MML(v),MML(v)-12-UVC+UVCs,MML(v),MML(v),MML(v));}} CASE({テクノ3}){ VOCUMML={v.onCycle(!16,MML(v)-8-UVC/2+UVCm,MML(v)-12-UVC+UVCs,MML(v)+8+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-12-UVC+UVCs,MML(v)+3+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-12-UVC+UVCs,MML(v)+3+UVC+UVCh,MML(v)-15-UVC+UVCs,MML(v)-8-UVC/2+UVCm,MML(v)-12-UVC+UVCs,MML(v)+16+UVC+UVCh,MML(v)-18-UVC+UVCs);}} DEFAULT{ PRINT{値が不正、または入力されていません。} } } VOCUMML; UWJMML; v(USRMMLv); } //ユーザアクセント設定版 //USER1 第一引数がユーザ設定値全体の掛算、第二引数が割り算。4分の4拍子用。 //USER2 第一引数がユーザ設定値全体の掛算、第二引数が割り算。4分の3拍子用。 //書式サンプル SGJC2({},{USER1},1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) Function SGJC2(STR UWJMML2,STR UWJ2,INT UVCmul,INT UVCdiv,INT UVC2,INT UVC3,INT UVC4,INT UVC5,INT UVC6,INT UVC7,INT UVC8,INT UVC9,INT UVC10,INT UVC11,INT UVC12,INT UVC13,INT UVC14,INT UVC15,INT UVC16,INT UVC17){ INT USRMMLv2 = MML(v); STR VOCUMML2 ={}; SWITCH( UWJ2 ){ CASE({USER1}){ VOCUMML2={v.onCycle(!16,MML(v)+UVC2*UVCmul/UVCdiv,MML(v)+UVC3*UVCmul/UVCdiv,MML(v)+UVC4*UVCmul/UVCdiv,MML(v)+UVC5*UVCmul/UVCdiv,MML(v)+UVC6*UVCmul/UVCdiv,MML(v)+UVC7*UVCmul/UVCdiv,MML(v)+UVC8*UVCmul/UVCdiv,MML(v)+UVC9*UVCmul/UVCdiv,MML(v)+UVC10*UVCmul/UVCdiv,MML(v)+UVC11*UVCmul/UVCdiv,MML(v)+UVC12*UVCmul/UVCdiv,MML(v)+UVC13*UVCmul/UVCdiv,MML(v)+UVC14*UVCmul/UVCdiv,MML(v)+UVC15*UVCmul/UVCdiv,MML(v)+UVC16*UVCmul/UVCdiv,MML(v)+UVC17*UVCmul/UVCdiv);}} CASE({USER2}){ VOCUMML2={v.onCycle(!16,MML(v)+UVC2*UVCmul/UVCdiv,MML(v)+UVC3*UVCmul/UVCdiv,MML(v)+UVC4*UVCmul/UVCdiv,MML(v)+UVC5*UVCmul/UVCdiv,MML(v)+UVC6*UVCmul/UVCdiv,MML(v)+UVC7*UVCmul/UVCdiv,MML(v)+UVC8*UVCmul/UVCdiv,MML(v)+UVC9*UVCmul/UVCdiv,MML(v)+UVC10*UVCmul/UVCdiv,MML(v)+UVC11*UVCmul/UVCdiv,MML(v)+UVC12*UVCmul/UVCdiv,MML(v)+UVC13*UVCmul/UVCdiv);}} DEFAULT{ PRINT{値が不正、または入力されていません。} } } VOCUMML2; UWJMML2; v(USRMMLv2); } //ここまで //自作関数群 //ジャンル別アクセント付加関数 //Include(sgjc.h); //書式 SGJC1({},{},0,0,0,0) //SGJC2({},{USER1},1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) //作曲補助関数 //Include(sgfcs.h); //書式 SGGC({「ドミファラ`ド」ー「"ソドミソシ」ー},0,0,0,0,0,0,0,{C4}) ////SGWAW1({「ドミファラ`ド」ー「"ソドミソシ」ー},,{U1}) //コード生成関数 //Include(sgcd1.h); //書式 C(11) //オープンコード(ドロップ系) C(12)C(13) //転回系用 C(21)C(31) //種類はC Cm C7 Cm7 Cmaj7 Caug Cdim C6 Cm6 Csus4 //D E F G A Bのコードについても同様に対応。(Dmなど) //コード生成関数補助変数 //STR RR = {「ッッッッ」}; //上位音源用メモ //y71 TVFレゾナンス(クセのある音に。-64~0~63まで) //y74 TVFカットオフ周波数(高いと明るく、低いと暗く。-64~0~63まで) //y73 アタック・タイム y73(64) //y75 ディケイ・タイム y75(64) //y72 リリース・タイム y72(64) //y65 ポルタメント y65(127)=on y65(0)=off //y5 ポルタメント・タイム y5(0) //リセット各種 //ResetGM; //SysEx$=F0,7E,7F,09,01,F7; //ResetGS; //SysEx$=F0,41,10,42,12,40,00,7F,00,41,F7; //ResetXG; //SysEx$=F0,7E,7F,09,03,F7; //ResetGM2; //SysEx$=F0,41,10,00,48,12,00,00,00,00,00,00,F7; //Resetネイティブ;(Roland SDシリーズ) //SysEx$=F0,7E,7F,09,02,F7; //GMシステムオフ; Sonic Cell等、MIDI機器を標準状態に初期化; //サクラに標準搭載の定義ファイル //Include(delay.h); //タイム・ベース TimeBase(96) //ベンド・レンジ BR=12 拍子2,4 TrackSync; テンポ110 Key(0) トラック1; 時間(1:1:0); v100 o5 q99 l16 P(64)EP(127)V(100)REV(0)CHO(0) @(1,11,11) SGJC1({ [2 [2 ドッソラソッミファソッ"ソ"ソドドレレ ミファミーレミレード"シドーソー"ソー ドッソラソッミファソッ"ソ"ソドドレレ ミファミーレミレード"シドードーーー ] "ラッ"ラ"シドッドレ"ソッ"ソ"シドッ"シッ "ラッ"ソッ"ラッミッレッレド"シッ"シッ "ラッ"ラ"シドッドレ"ソッ"ソ"シドッ"シッ ド"ソド"シドレドレミファミファソー"ソー ドッソラソッミファソッ"ソ"ソドドレレ ミファミーレミレード"シドーソー"ソー ドッソラソッミファソッ"ソ"ソドドレレ ミファミーレミレード"シドードーーー ] },{Beat2},0,0,0,0) トラック2; 時間(1:1:0); v100 o4 q99 l8 P(64)EP(127)V(100)REV(0)CHO(0) @(1,11,11) SGJC1({ [2 [2 l8 ソッミッドッドッ l16 ドレドー"シド"シー"ラ"ソソーミーミー l8 ソッミッドッドッ l16 ドレドー"シド"シー"ラ"ソソー「ド"ソ」ーーー ] l8 ドッドッ"ソッ"ソッ"ラッ"ラッ"シ16ド16"シ16ド16レ"ソ ドッドッ"ソッ"ソッ"ラッ"ラッ"シ16ド16"シ16ド16ソ"ソ l8 ソッミッドッドッ l16 ドレドー"シド"シー"ラ"ソソーミーミー l8 ソッミッドッドッ l16 ドレドー"シド"シー"ラ"ソソー「ド"ソ」ーーー ] },{Beat2},0,0,0,0) Key(0) トラック10; 時間(1:1:0); v80 o3 q99 l8 P(64)EP(127)V(92)REV(0)CHO(0) @(001) ~{ず} = {n36,} //Bass-drum ~{た} = {n38,} //Snare ~{こ} = {n62,} //MuteHighConga ~{か} = {n63,} //OpenHighConga ~{つ} = {n42,} //Hi-hat close ~{ち} = {n46,} //Hi-hat open ~{ぱ} = {n49,} //Crash cymbal ~{と} = {n50,} //High tom1 ~{て} = {n48,} //High tom2 ~{む} = {n45,} //Middle tom ~{ろ} = {n43,} //Low tom ~{だ} = {n54,} //tambourrine ~{す} = {n57,} //Crash cymbal2 ~{し} = {n55,} //Splash symbal ~{ら} = {n59,} //Ride cymbal //<リズムパターンの定義> #DRUM1 = { l16 Sub{ ちっっっ|ちっっっ|ちっっっ|ちっっっ } Sub{ っつっつ|っっつっ|っつっつ|っっつっ } Sub{ っっっこ|「かた」っっこ|っっこっ|「たか」っここ } ずっっっ|っっっっ|ずっっっ|っっっっ } #DRUM2 = { l16 Sub{ ちっっっ|ちっっっ|ちっっっ|ちっっっ } Sub{ っつっつ|っっつっ|っつっつ|っっつっ } Sub{ っっっこ|「かた」っっこ|っっこっ|「たか」っこっ } ずっっっ|っっっっ|ずっっっ|っっっっ } //リズムパターンの定義> //パターン演奏 SGJC1({ [31 #DRUM1] #DRUM2 },{Beat2},0,0,0,0) //---------------------------------------- この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)