サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ヒーリング・ニューエイジ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント コード進行の設計と少しの工夫だけでどれだけできるか・・のテストです。 今回メロはありません。ちょっと軽いBGMな感じになっています。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"ヘッダ実験中"} 作者{"メロン"} // コード進行の設計と少しの工夫だけでどれだけできるか・・のテストです。 // 今回メロはありません。ちょっと軽いBGMな感じになっています。 // (メロンにしては長いソースだぁぁぁ(笑)。) //------------------------------------------------------------------------------ //------- ヘッダ予定部 開始(未完成の暫定版) //-------------------------------------------------- // chord.h の文字列コードを配列に分割して返す。 //-------------------------------------------------- //------------スペース区切りの文字列を配列にして返す。 Function S2A(Str K,D){ Array H; Str Y; Int CT; Int Hit; // XY()-->S2A For(Int N=1;MID(K,N,1)!={};N++){ IF(MID(K,N,1)!={ }){ Y=Y+MID(K,N,1); H(CT)=Y; Hit=1; } IF(MID(K,N,1)=={ }){ IF(Hit!=0){ IF(MID(K,N+1,1)!={ }){ CT++; } Y={}; } } } Result=H; } Function C2A(Str Cho,D){ // Str X={'c*e*g'} Str X=Cho X.s({'},{}) X.s({*},{* }) X.s({* +},{*+ }) Result = S2A(X) } Include(chord.h); Int MSW=0 Function _Cho(Str C,D){ IF(MSW==0){ Str S=C;S } // 互換モード。直接鳴る IF(MSW==1){ Str S=C; Result = S; }// アルペジオ/文字列モード。文字列で返却 IF(MSW==2){ Result = C2A(C); } // 配列で返却 } Function A(){ Result = _Cho(#A);} Function Ap(){ Result = _Cho(#Ap);} Function Bb(){ Result = _Cho(#Bb);} Function B(){ Result = _Cho(#B);} Function C(){ Result = _Cho(#C);} Function Cp(){ Result = _Cho(#Cp);} Function Db(){ Result = _Cho(#Db);} Function D(){ Result = _Cho(#D);} Function Dp(){ Result = _Cho(#Dp);} Function Eb(){ Result = _Cho(#Eb);} Function E(){ Result = _Cho(#E);} Function F(){ Result = _Cho(#F);} Function Fp(){ Result = _Cho(#Fp);} Function Gb(){ Result = _Cho(#Gb);} Function G(){ Result = _Cho(#G);} Function Gp(){ Result = _Cho(#Gp);} Function Ab(){ Result = _Cho(#Ab);} Function Am(){ Result = _Cho(#Am);} Function Apm(){ Result = _Cho(#Apm);} Function Bbm(){ Result = _Cho(#Bbm);} Function Bm(){ Result = _Cho(#Bm);} Function Cm(){ Result = _Cho(#Cm);} Function Cpm(){ Result = _Cho(#Cpm);} Function Dbm(){ Result = _Cho(#Dbm);} Function Dm(){ Result = _Cho(#Dm);} Function Dpm(){ Result = _Cho(#Dpm);} Function Ebm(){ Result = _Cho(#Ebm);} Function Em(){ Result = _Cho(#Em);} Function Fm(){ Result = _Cho(#Fm);} Function Fpm(){ Result = _Cho(#Fpm);} Function Gbm(){ Result = _Cho(#Gbm);} Function Gm(){ Result = _Cho(#Gm);} Function Gpm(){ Result = _Cho(#Gpm);} Function Abm(){ Result = _Cho(#Abm);} Function Am7(){ Result = _Cho(#Am7);} Function Apm7(){ Result = _Cho(#Apm7);} Function Bbm7(){ Result = _Cho(#Bbm7);} Function Bm7(){ Result = _Cho(#Bm7);} Function Cm7(){ Result = _Cho(#Cm7);} Function Cpm7(){ Result = _Cho(#Cpm7);} Function Dbm7(){ Result = _Cho(#Dbm7);} Function Dm7(){ Result = _Cho(#Dm7);} Function Dmp7(){ Result = _Cho(#Dpm7);} Function Ebm7(){ Result = _Cho(#Ebm7);} Function Em7(){ Result = _Cho(#Em7);} Function Fm7(){ Result = _Cho(#Fm7);} Function Fpm7(){ Result = _Cho(#Fpm7);} Function Gbm7(){ Result = _Cho(#Gbm7);} Function Gm7(){ Result = _Cho(#Gm7);} Function Gpm7(){ Result = _Cho(#Gpm7);} Function Abm7(){ Result = _Cho(#Abm7);} Function Am7b5(){ Result = _Cho(#Am7b5);} Function Apm7b5(){ Result = _Cho(#Apm7b5);} Function Bbm7b5(){ Result = _Cho(#Bbm7b5);} Function Bm7b5(){ Result = _Cho(#Bm7b5);} Function Cm7b5(){ Result = _Cho(#Cm7b5);} Function Cpm7b5(){ Result = _Cho(#Cpm7b5);} Function Dbm7b5(){ Result = _Cho(#Dbm7b5);} Function Dm7b5(){ Result = _Cho(#Dm7b5);} Function Dpm7b5(){ Result = _Cho(#Dpm7b5);} Function Ebm7b5(){ Result = _Cho(#Ebm7b5);} Function Em7b5(){ Result = _Cho(#Em7b5);} Function Fm7b5(){ Result = _Cho(#Fm7b5);} Function Fpm7b5(){ Result = _Cho(#Fpm7b5);} Function Gbm7b5(){ Result = _Cho(#Gbm7b5);} Function Gm7b5(){ Result = _Cho(#Gm7b5);} Function Gpm7b5(){ Result = _Cho(#Gpm7b5);} Function Abm7b5(){ Result = _Cho(#Abm7b5);} Function Am6(){ Result = _Cho(#Am6);} Function Apm6(){ Result = _Cho(#Apm6);} Function Bbm6(){ Result = _Cho(#Bbm6);} Function Bm6(){ Result = _Cho(#Bm6);} Function Cm6(){ Result = _Cho(#Cm6);} Function Cpm6(){ Result = _Cho(#Cpm6);} Function Dbm6(){ Result = _Cho(#Dbm6);} Function Dm6(){ Result = _Cho(#Dm6);} Function Dpm6(){ Result = _Cho(#Dpm6);} Function Ebm6(){ Result = _Cho(#Ebm6);} Function Em6(){ Result = _Cho(#Em6);} Function Fm6(){ Result = _Cho(#Fm6);} Function Fpm6(){ Result = _Cho(#Fpm6);} Function Gbm6(){ Result = _Cho(#Gbm6);} Function Gm6(){ Result = _Cho(#Gm6);} Function Gpm6(){ Result = _Cho(#Gpm6);} Function Abm6(){ Result = _Cho(#Abm6);} Function AmM7(){ Result = _Cho(#AmM7);} Function ApmM7(){ Result = _Cho(#ApmM7);} Function BbmM7(){ Result = _Cho(#BbmM7);} Function BmM7(){ Result = _Cho(#BmM7);} Function CmM7(){ Result = _Cho(#CmM7);} Function CpmM7(){ Result = _Cho(#CpmM7);} Function DbmM7(){ Result = _Cho(#DbmM7);} Function DmM7(){ Result = _Cho(#DmM7);} Function DpmM7(){ Result = _Cho(#DpmM7);} Function EbmM7(){ Result = _Cho(#EbmM7);} Function EmM7(){ Result = _Cho(#EmM7);} Function FmM7(){ Result = _Cho(#FmM7);} Function FpmM7(){ Result = _Cho(#FpmM7);} Function GbmM7(){ Result = _Cho(#GbmM7);} Function GmM7(){ Result = _Cho(#GmM7);} Function GpmM7(){ Result = _Cho(#GpmM7);} Function AbmM7(){ Result = _Cho(#AbmM7);} Function AM7(){ Result = _Cho(#AM7);} Function ApM7(){ Result = _Cho(#ApM7);} Function BbM7(){ Result = _Cho(#BbM7);} Function BM7(){ Result = _Cho(#BM7);} Function CM7(){ Result = _Cho(#CM7);} Function CpM7(){ Result = _Cho(#CpM7);} Function DbM7(){ Result = _Cho(#DbM7);} Function DM7(){ Result = _Cho(#DM7);} Function DpM7(){ Result = _Cho(#DpM7);} Function EbM7(){ Result = _Cho(#EbM7);} Function EM7(){ Result = _Cho(#EM7);} Function FM7(){ Result = _Cho(#FM7);} Function FpM7(){ Result = _Cho(#FpM7);} Function GbM7(){ Result = _Cho(#GbM7);} Function GM7(){ Result = _Cho(#GM7);} Function GpM7(){ Result = _Cho(#GpM7);} Function AbM7(){ Result = _Cho(#AbM7);} Function A7(){ Result = _Cho(#A7);} Function Ap7(){ Result = _Cho(#Ap7);} Function Bb7(){ Result = _Cho(#Bb7);} Function B7(){ Result = _Cho(#B7);} Function C7(){ Result = _Cho(#C7);} Function Cp7(){ Result = _Cho(#Cp7);} Function Db7(){ Result = _Cho(#Db7);} Function D7(){ Result = _Cho(#D7);} Function Dp7(){ Result = _Cho(#Dp7);} Function Eb7(){ Result = _Cho(#Eb7);} Function E7(){ Result = _Cho(#E7);} Function F7(){ Result = _Cho(#F7);} Function Fp7(){ Result = _Cho(#Fp7);} Function Gb7(){ Result = _Cho(#Gb7);} Function G7(){ Result = _Cho(#G7);} Function Gp7(){ Result = _Cho(#Gp7);} Function Ab7(){ Result = _Cho(#Ab7);} Function A7sus4(){ Result = _Cho(#A7sus4);} Function Ap7sus4(){ Result = _Cho(#Ap7sus4);} Function Bb7sus4(){ Result = _Cho(#Bb7sus4);} Function B7sus4(){ Result = _Cho(#B7sus4);} Function C7sus4(){ Result = _Cho(#C7sus4);} Function Cp7sus4(){ Result = _Cho(#Cp7sus4);} Function Db7sus4(){ Result = _Cho(#Db7sus4);} Function D7sus4(){ Result = _Cho(#D7sus4);} Function Dp7sus4(){ Result = _Cho(#Dp7sus4);} Function Eb7sus4(){ Result = _Cho(#Eb7sus4);} Function E7sus4(){ Result = _Cho(#E7sus4);} Function F7sus4(){ Result = _Cho(#F7sus4);} Function Fp7sus4(){ Result = _Cho(#Fp7sus4);} Function Gb7sus4(){ Result = _Cho(#Gb7sus4);} Function G7sus4(){ Result = _Cho(#G7sus4);} Function Gp7sus4(){ Result = _Cho(#Gp7sus4);} Function Ab7sus4(){ Result = _Cho(#Ab7sus4);} Function Asus4(){ Result = _Cho(#Asus4);} Function Apsus4(){ Result = _Cho(#Apsus4);} Function Bbsus4(){ Result = _Cho(#Bbsus4);} Function Bsus4(){ Result = _Cho(#Bsus4);} Function Csus4(){ Result = _Cho(#Csus4);} Function Cpsus4(){ Result = _Cho(#Cpsus4);} Function Dbsus4(){ Result = _Cho(#Dbsus4);} Function Dsus4(){ Result = _Cho(#Dsus4);} Function Dpsus4(){ Result = _Cho(#Dpsus4);} Function Ebsus4(){ Result = _Cho(#Ebsus4);} Function Esus4(){ Result = _Cho(#Esus4);} Function Fsus4(){ Result = _Cho(#Fsus4);} Function Fpsus4(){ Result = _Cho(#Fpsus4);} Function Gbsus4(){ Result = _Cho(#Gbsus4);} Function Gsus4(){ Result = _Cho(#Gsus4);} Function Gpsus4(){ Result = _Cho(#Gpsus4);} Function Absus4(){ Result = _Cho(#Absus4);} Function Adim(){ Result = _Cho(#Adim);} Function Apdim(){ Result = _Cho(#Apdim);} Function Bbdim(){ Result = _Cho(#Bbdim);} Function Bdim(){ Result = _Cho(#Bdim);} Function Cdim(){ Result = _Cho(#Cdim);} Function Cpdim(){ Result = _Cho(#Cpdim);} Function Dbdim(){ Result = _Cho(#Dbdim);} Function Ddim(){ Result = _Cho(#Ddim);} Function Dpdim(){ Result = _Cho(#Dpdim);} Function Ebdim(){ Result = _Cho(#Ebdim);} Function Edim(){ Result = _Cho(#Edim);} Function Fdim(){ Result = _Cho(#Fdim);} Function Fpdim(){ Result = _Cho(#Fpdim);} Function Gbdim(){ Result = _Cho(#Gbdim);} Function Gdim(){ Result = _Cho(#Gdim);} Function Gpdim(){ Result = _Cho(#Gpdim);} Function Abdim(){ Result = _Cho(#Abdim);} Function Aaug(){ Result = _Cho(#Aaug);} Function Apaug(){ Result = _Cho(#Apaug);} Function Bbaug(){ Result = _Cho(#Bbaug);} Function Baug(){ Result = _Cho(#Baug);} Function Caug(){ Result = _Cho(#Caug);} Function Cpaug(){ Result = _Cho(#Cpaug);} Function Dbaug(){ Result = _Cho(#Dbaug);} Function Daug(){ Result = _Cho(#Daug);} Function Dpaug(){ Result = _Cho(#Dpaug);} Function Ebaug(){ Result = _Cho(#Ebaug);} Function Eaug(){ Result = _Cho(#Eaug);} Function Faug(){ Result = _Cho(#Faug);} Function Fpaug(){ Result = _Cho(#Fpaug);} Function Gbaug(){ Result = _Cho(#Gbaug);} Function Gaug(){ Result = _Cho(#Gaug);} Function Gpaug(){ Result = _Cho(#Gpaug);} Function Abaug(){ Result = _Cho(#Abaug);} Function Aadd9(){ Result = _Cho(#Aadd9);} Function Apadd9(){ Result = _Cho(#Apadd9);} Function Bbadd9(){ Result = _Cho(#Bbadd9);} Function Badd9(){ Result = _Cho(#Badd9);} Function Cadd9(){ Result = _Cho(#Cadd9);} Function Cpadd9(){ Result = _Cho(#Cpadd9);} Function Dbadd9(){ Result = _Cho(#Dbadd9);} Function Dadd9(){ Result = _Cho(#Dadd9);} Function Dpadd9(){ Result = _Cho(#Dpadd9);} Function Ebadd9(){ Result = _Cho(#Ebadd9);} Function Eadd9(){ Result = _Cho(#Eadd9);} Function Fadd9(){ Result = _Cho(#Fadd9);} Function Fpadd9(){ Result = _Cho(#Fpadd9);} Function Gbadd9(){ Result = _Cho(#Gbadd9);} Function Gadd9(){ Result = _Cho(#Gadd9);} Function Gpadd9(){ Result = _Cho(#Gpadd9);} Function Abadd9(){ Result = _Cho(#Abadd9);} //--------------------------------------------------------------- // PSW ペダル・モード Int PSW=2; // 0: ノー・ペダル // 1: 全ペダル // 2: コードごとにペダル // OSW オクターブ・スイッチ Int OSW=1; // 0: ノーマル // 1: オクターブ・プラス Function Alpe(Str Cho, Int Outs=8){ Str X; Array Z; If(MSW!=1){Print({"---errrr---この関数は、MSW を 1 に設定しないと使えません。"}); EXIT;} MSW=2; Z=C2A(Cho); Int R = SizeOf(Z); For(Int N=0; N < R; N++){ Z(R+N) = {>} + Z(N) + {<};} // mode スイッチを付けること。 //y64,66 [(Outs) X=Z(Random(SizeOf(Z))) ; X ]y64,0 MSW=1; } Function Alpes(Str Chos, Int Outs=8){ Array Z = S2A(Chos); For(Int N=0; N < SizeOf(Z); N++){ IF(Z(N)=={>}){ > } IF(Z(N)=={<}){ < } IF(Z(N)=={o0}){ o0 } IF(Z(N)=={o1}){ o1 } IF(Z(N)=={o2}){ o2 } IF(Z(N)=={o3}){ o3 } IF(Z(N)=={o4}){ o4 } IF(Z(N)=={o5}){ o5 } IF(Z(N)=={o6}){ o6 } IF(Z(N)=={o7}){ o7 } IF(Z(N)=={o8}){ o8 } IF(Z(N)=={o9}){ o9 } IF(Z(N)=={o10}){ o10 } IF(Z(N)=={o11}){ o11 } IF(Z(N)=={A}){ Alpe(A, Outs); } IF(Z(N)=={Ap}){ Alpe(Ap, Outs); } IF(Z(N)=={Bb}){ Alpe(Bb, Outs); } IF(Z(N)=={B}){ Alpe(B, Outs); } IF(Z(N)=={C}){ Alpe(C, Outs); } IF(Z(N)=={Cp}){ Alpe(Cp, Outs); } IF(Z(N)=={Db}){ Alpe(Db, Outs); } IF(Z(N)=={D}){ Alpe(D, Outs); } IF(Z(N)=={Dp}){ Alpe(Dp, Outs); } IF(Z(N)=={Eb}){ Alpe(Eb, Outs); } IF(Z(N)=={E}){ Alpe(E, Outs); } IF(Z(N)=={F}){ Alpe(F, Outs); } IF(Z(N)=={Fp}){ Alpe(Fp, Outs); } IF(Z(N)=={Gb}){ Alpe(Gb, Outs); } IF(Z(N)=={G}){ Alpe(G, Outs); } IF(Z(N)=={Gp}){ Alpe(Gp, Outs); } IF(Z(N)=={Ab}){ Alpe(Ab, Outs); } IF(Z(N)=={Am}){ Alpe(Am, Outs); } IF(Z(N)=={Apm}){ Alpe(Apm, Outs); } IF(Z(N)=={Bbm}){ Alpe(Bbm, Outs); } IF(Z(N)=={Bm}){ Alpe(Bm, Outs); } IF(Z(N)=={Cm}){ Alpe(Cm, Outs); } IF(Z(N)=={Cpm}){ Alpe(Cpm, Outs); } IF(Z(N)=={Dbm}){ Alpe(Dbm, Outs); } IF(Z(N)=={Dm}){ Alpe(Dm, Outs); } IF(Z(N)=={Dpm}){ Alpe(Dpm, Outs); } IF(Z(N)=={Ebm}){ Alpe(Ebm, Outs); } IF(Z(N)=={Em}){ Alpe(Em, Outs); } IF(Z(N)=={Fm}){ Alpe(Fm, Outs); } IF(Z(N)=={Fpm}){ Alpe(Fpm, Outs); } IF(Z(N)=={Gbm}){ Alpe(Gbm, Outs); } IF(Z(N)=={Gm}){ Alpe(Gm, Outs); } IF(Z(N)=={Gpm}){ Alpe(Gpm, Outs); } IF(Z(N)=={Abm}){ Alpe(Abm, Outs); } IF(Z(N)=={Am7}){ Alpe(Am7, Outs); } IF(Z(N)=={Apm7}){ Alpe(Apm7, Outs); } IF(Z(N)=={Bbm7}){ Alpe(Bbm7, Outs); } IF(Z(N)=={Bm7}){ Alpe(Bm7, Outs); } IF(Z(N)=={Cm7}){ Alpe(Cm7, Outs); } IF(Z(N)=={Cpm7}){ Alpe(Cpm7, Outs); } IF(Z(N)=={Dbm7}){ Alpe(Dbm7, Outs); } IF(Z(N)=={Dm7}){ Alpe(Dm7, Outs); } IF(Z(N)=={Dpm7}){ Alpe(Dpm7, Outs); } IF(Z(N)=={Ebm7}){ Alpe(Ebm7, Outs); } IF(Z(N)=={Em7}){ Alpe(Em7, Outs); } IF(Z(N)=={Fm7}){ Alpe(Fm7, Outs); } IF(Z(N)=={Fpm7}){ Alpe(Fpm7, Outs); } IF(Z(N)=={Gbm7}){ Alpe(Gbm7, Outs); } IF(Z(N)=={Gm7}){ Alpe(Gm7, Outs); } IF(Z(N)=={Gpm7}){ Alpe(Gpm7, Outs); } IF(Z(N)=={Abm7}){ Alpe(Abm7, Outs); } IF(Z(N)=={Am7b5}){ Alpe(Am7b5, Outs); } IF(Z(N)=={Apm7b5}){ Alpe(Apm7b5, Outs); } IF(Z(N)=={Bbm7b5}){ Alpe(Bbm7b5, Outs); } IF(Z(N)=={Bm7b5}){ Alpe(Bm7b5, Outs); } IF(Z(N)=={Cm7b5}){ Alpe(Cm7b5, Outs); } IF(Z(N)=={Cpm7b5}){ Alpe(Cpm7b5, Outs); } IF(Z(N)=={Dbm7b5}){ Alpe(Dbm7b5, Outs); } IF(Z(N)=={Dm7b5}){ Alpe(Dm7b5, Outs); } IF(Z(N)=={Dpm7b5}){ Alpe(Dpm7b5, Outs); } IF(Z(N)=={Ebm7b5}){ Alpe(Ebm7b5, Outs); } IF(Z(N)=={Em7b5}){ Alpe(Em7b5, Outs); } IF(Z(N)=={Fm7b5}){ Alpe(Fm7b5, Outs); } IF(Z(N)=={Fpm7b5}){ Alpe(Fpm7b5, Outs); } IF(Z(N)=={Gbm7b5}){ Alpe(Gbm7b5, Outs); } IF(Z(N)=={Gm7b5}){ Alpe(Gm7b5, Outs); } IF(Z(N)=={Gpm7b5}){ Alpe(Gpm7b5, Outs); } IF(Z(N)=={Abm7b5}){ Alpe(Abm7b5, Outs); } IF(Z(N)=={Am6}){ Alpe(Am6, Outs); } IF(Z(N)=={Apm6}){ Alpe(Apm6, Outs); } IF(Z(N)=={Bbm6}){ Alpe(Bbm6, Outs); } IF(Z(N)=={Bm6}){ Alpe(Bm6, Outs); } IF(Z(N)=={Cm6}){ Alpe(Cm6, Outs); } IF(Z(N)=={Cpm6}){ Alpe(Cpm6, Outs); } IF(Z(N)=={Dbm6}){ Alpe(Dbm6, Outs); } IF(Z(N)=={Dm6}){ Alpe(Dm6, Outs); } IF(Z(N)=={Dpm6}){ Alpe(Dpm6, Outs); } IF(Z(N)=={Ebm6}){ Alpe(Ebm6, Outs); } IF(Z(N)=={Em6}){ Alpe(Em6, Outs); } IF(Z(N)=={Fm6}){ Alpe(Fm6, Outs); } IF(Z(N)=={Fpm6}){ Alpe(Fpm6, Outs); } IF(Z(N)=={Gbm6}){ Alpe(Gbm6, Outs); } IF(Z(N)=={Gm6}){ Alpe(Gm6, Outs); } IF(Z(N)=={Gpm6}){ Alpe(Gpm6, Outs); } IF(Z(N)=={Abm6}){ Alpe(Abm6, Outs); } IF(Z(N)=={AmM7}){ Alpe(AmM7, Outs); } IF(Z(N)=={ApmM7}){ Alpe(ApmM7, Outs); } IF(Z(N)=={BbmM7}){ Alpe(BbmM7, Outs); } IF(Z(N)=={BmM7}){ Alpe(BmM7, Outs); } IF(Z(N)=={CmM7}){ Alpe(CmM7, Outs); } IF(Z(N)=={CpmM7}){ Alpe(CpmM7, Outs); } IF(Z(N)=={DbmM7}){ Alpe(DbmM7, Outs); } IF(Z(N)=={DmM7}){ Alpe(DmM7, Outs); } IF(Z(N)=={DpmM7}){ Alpe(DpmM7, Outs); } IF(Z(N)=={EbmM7}){ Alpe(EbmM7, Outs); } IF(Z(N)=={EmM7}){ Alpe(EmM7, Outs); } IF(Z(N)=={FmM7}){ Alpe(FmM7, Outs); } IF(Z(N)=={FpmM7}){ Alpe(FpmM7, Outs); } IF(Z(N)=={GbmM7}){ Alpe(GbmM7, Outs); } IF(Z(N)=={GmM7}){ Alpe(GmM7, Outs); } IF(Z(N)=={GpmM7}){ Alpe(GpmM7, Outs); } IF(Z(N)=={AbmM7}){ Alpe(AbmM7, Outs); } IF(Z(N)=={AM7}){ Alpe(AM7, Outs); } IF(Z(N)=={ApM7}){ Alpe(ApM7, Outs); } IF(Z(N)=={BbM7}){ Alpe(BbM7, Outs); } IF(Z(N)=={BM7}){ Alpe(BM7, Outs); } IF(Z(N)=={CM7}){ Alpe(CM7, Outs); } IF(Z(N)=={CpM7}){ Alpe(CpM7, Outs); } IF(Z(N)=={DbM7}){ Alpe(DbM7, Outs); } IF(Z(N)=={DM7}){ Alpe(DM7, Outs); } IF(Z(N)=={DpM7}){ Alpe(DpM7, Outs); } IF(Z(N)=={EbM7}){ Alpe(EbM7, Outs); } IF(Z(N)=={EM7}){ Alpe(EM7, Outs); } IF(Z(N)=={FM7}){ Alpe(FM7, Outs); } IF(Z(N)=={FpM7}){ Alpe(FpM7, Outs); } IF(Z(N)=={GbM7}){ Alpe(GbM7, Outs); } IF(Z(N)=={GM7}){ Alpe(GM7, Outs); } IF(Z(N)=={GpM7}){ Alpe(GpM7, Outs); } IF(Z(N)=={AbM7}){ Alpe(AbM7, Outs); } IF(Z(N)=={A7}){ Alpe(A7, Outs); } IF(Z(N)=={Ap7}){ Alpe(Ap7, Outs); } IF(Z(N)=={Bb7}){ Alpe(Bb7, Outs); } IF(Z(N)=={B7}){ Alpe(B7, Outs); } IF(Z(N)=={C7}){ Alpe(C7, Outs); } IF(Z(N)=={Cp7}){ Alpe(Cp7, Outs); } IF(Z(N)=={Db7}){ Alpe(Db7, Outs); } IF(Z(N)=={D7}){ Alpe(D7, Outs); } IF(Z(N)=={Dp7}){ Alpe(Dp7, Outs); } IF(Z(N)=={Eb7}){ Alpe(Eb7, Outs); } IF(Z(N)=={E7}){ Alpe(E7, Outs); } IF(Z(N)=={F7}){ Alpe(F7, Outs); } IF(Z(N)=={Fp7}){ Alpe(Fp7, Outs); } IF(Z(N)=={Gb7}){ Alpe(Gb7, Outs); } IF(Z(N)=={G7}){ Alpe(G7, Outs); } IF(Z(N)=={Gp7}){ Alpe(Gp7, Outs); } IF(Z(N)=={Ab7}){ Alpe(Ab7, Outs); } IF(Z(N)=={A7sus4}){ Alpe(A7sus4, Outs); } IF(Z(N)=={Ap7sus4}){ Alpe(Ap7sus4, Outs); } IF(Z(N)=={Bb7sus4}){ Alpe(Bb7sus4, Outs); } IF(Z(N)=={B7sus4}){ Alpe(B7sus4, Outs); } IF(Z(N)=={C7sus4}){ Alpe(C7sus4, Outs); } IF(Z(N)=={Cp7sus4}){ Alpe(Cp7sus4, Outs); } IF(Z(N)=={Db7sus4}){ Alpe(Db7sus4, Outs); } IF(Z(N)=={D7sus4}){ Alpe(D7sus4, Outs); } IF(Z(N)=={Dp7sus4}){ Alpe(Dp7sus4, Outs); } IF(Z(N)=={Eb7sus4}){ Alpe(Eb7sus4, Outs); } IF(Z(N)=={E7sus4}){ Alpe(E7sus4, Outs); } IF(Z(N)=={F7sus4}){ Alpe(F7sus4, Outs); } IF(Z(N)=={Fp7sus4}){ Alpe(Fp7sus4, Outs); } IF(Z(N)=={Gb7sus4}){ Alpe(Gb7sus4, Outs); } IF(Z(N)=={G7sus4}){ Alpe(G7sus4, Outs); } IF(Z(N)=={Gp7sus4}){ Alpe(Gp7sus4, Outs); } IF(Z(N)=={Ab7sus4}){ Alpe(Ab7sus4, Outs); } IF(Z(N)=={Asus4}){ Alpe(Asus4, Outs); } IF(Z(N)=={Apsus4}){ Alpe(Apsus4, Outs); } IF(Z(N)=={Bbsus4}){ Alpe(Bbsus4, Outs); } IF(Z(N)=={Bsus4}){ Alpe(Bsus4, Outs); } IF(Z(N)=={Csus4}){ Alpe(Csus4, Outs); } IF(Z(N)=={Cpsus4}){ Alpe(Cpsus4, Outs); } IF(Z(N)=={Dbsus4}){ Alpe(Dbsus4, Outs); } IF(Z(N)=={Dsus4}){ Alpe(Dsus4, Outs); } IF(Z(N)=={Dpsus4}){ Alpe(Dpsus4, Outs); } IF(Z(N)=={Ebsus4}){ Alpe(Ebsus4, Outs); } IF(Z(N)=={Esus4}){ Alpe(Esus4, Outs); } IF(Z(N)=={Fsus4}){ Alpe(Fsus4, Outs); } IF(Z(N)=={Fpsus4}){ Alpe(Fpsus4, Outs); } IF(Z(N)=={Gbsus4}){ Alpe(Gbsus4, Outs); } IF(Z(N)=={Gsus4}){ Alpe(Gsus4, Outs); } IF(Z(N)=={Gpsus4}){ Alpe(Gpsus4, Outs); } IF(Z(N)=={Absus4}){ Alpe(Absus4, Outs); } IF(Z(N)=={Adim}){ Alpe(Adim, Outs); } IF(Z(N)=={Apdim}){ Alpe(Apdim, Outs); } IF(Z(N)=={Bbdim}){ Alpe(Bbdim, Outs); } IF(Z(N)=={Bdim}){ Alpe(Bdim, Outs); } IF(Z(N)=={Cdim}){ Alpe(Cdim, Outs); } IF(Z(N)=={Cpdim}){ Alpe(Cpdim, Outs); } IF(Z(N)=={Dbdim}){ Alpe(Dbdim, Outs); } IF(Z(N)=={Ddim}){ Alpe(Ddim, Outs); } IF(Z(N)=={Dpdim}){ Alpe(Dpdim, Outs); } IF(Z(N)=={Ebdim}){ Alpe(Ebdim, Outs); } IF(Z(N)=={Edim}){ Alpe(Edim, Outs); } IF(Z(N)=={Fdim}){ Alpe(Fdim, Outs); } IF(Z(N)=={Fpdim}){ Alpe(Fpdim, Outs); } IF(Z(N)=={Gbdim}){ Alpe(Gbdim, Outs); } IF(Z(N)=={Gdim}){ Alpe(Gdim, Outs); } IF(Z(N)=={Gpdim}){ Alpe(Gpdim, Outs); } IF(Z(N)=={Abdim}){ Alpe(Abdim, Outs); } IF(Z(N)=={Aaug}){ Alpe(Aaug, Outs); } IF(Z(N)=={Apaug}){ Alpe(Apaug, Outs); } IF(Z(N)=={Bbaug}){ Alpe(Bbaug, Outs); } IF(Z(N)=={Baug}){ Alpe(Baug, Outs); } IF(Z(N)=={Caug}){ Alpe(Caug, Outs); } IF(Z(N)=={Cpaug}){ Alpe(Cpaug, Outs); } IF(Z(N)=={Dbaug}){ Alpe(Dbaug, Outs); } IF(Z(N)=={Daug}){ Alpe(Daug, Outs); } IF(Z(N)=={Dpaug}){ Alpe(Dpaug, Outs); } IF(Z(N)=={Ebaug}){ Alpe(Ebaug, Outs); } IF(Z(N)=={Eaug}){ Alpe(Eaug, Outs); } IF(Z(N)=={Faug}){ Alpe(Faug, Outs); } IF(Z(N)=={Fpaug}){ Alpe(Fpaug, Outs); } IF(Z(N)=={Gbaug}){ Alpe(Gbaug, Outs); } IF(Z(N)=={Gaug}){ Alpe(Gaug, Outs); } IF(Z(N)=={Gpaug}){ Alpe(Gpaug, Outs); } IF(Z(N)=={Abaug}){ Alpe(Abaug, Outs); } IF(Z(N)=={Aadd9}){ Alpe(Aadd9, Outs); } IF(Z(N)=={Apadd9}){ Alpe(Apadd9, Outs); } IF(Z(N)=={Bbadd9}){ Alpe(Bbadd9, Outs); } IF(Z(N)=={Badd9}){ Alpe(Badd9, Outs); } IF(Z(N)=={Cadd9}){ Alpe(Cadd9, Outs); } IF(Z(N)=={Cpadd9}){ Alpe(Cpadd9, Outs); } IF(Z(N)=={Dbadd9}){ Alpe(Dbadd9, Outs); } IF(Z(N)=={Dadd9}){ Alpe(Dadd9, Outs); } IF(Z(N)=={Dpadd9}){ Alpe(Dpadd9, Outs); } IF(Z(N)=={Ebadd9}){ Alpe(Ebadd9, Outs); } IF(Z(N)=={Eadd9}){ Alpe(Eadd9, Outs); } IF(Z(N)=={Fadd9}){ Alpe(Fadd9, Outs); } IF(Z(N)=={Fpadd9}){ Alpe(Fpadd9, Outs); } IF(Z(N)=={Gbadd9}){ Alpe(Gbadd9, Outs); } IF(Z(N)=={Gadd9}){ Alpe(Gadd9, Outs); } IF(Z(N)=={Gpadd9}){ Alpe(Gpadd9, Outs); } IF(Z(N)=={Abadd9}){ Alpe(Abadd9, Outs); } // Xmadd9 他、追加予定 } } //------- ヘッダ予定部終わり /**************************************** 今回未使用 //------- おまけ部分をヘッダに入れるかどうか思案中・・。 //---------------------------------------------------- Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} // 直接鳴る。 //'cfga'1 'fa+cd'1 'gb-d-f'1 'egb-d'2 'eg+bd'2 // sus46 //---------------------------------------------------- Function Pow(Str S,Int D=+7){ Int CK=Key; //Sub{ Key=(CK+12); S; Key=CK; } Sub{ Key=(CK+D); S; Key=CK; } Key=CK;S;} // @31o4 l16q120 Pow({abcdefgab>cde<})r16//テスト //---------------------------------------------------- Function PanDelay(Str Cho){ Sub{ [4 P(127)r8P(0)r8 ] } [8 Cho v-10] v100} /*******************テスト y64,66 l16@5@27o5 [4PanDelay('ace')] [4PanDelay('dfa')] y64,0 ********************/ //------- おまけ部分おわり。 ****************************************/ //----------------- ここからユーザー部 音源初期化 Function J(){Result = RandomSelect(0,100)} Function K(){v.N(J,J,J,J,J,J,J,J,J,J,J,J,J,J,J,J)} Str A1={Am7 Dm7 Bdim E7}Str A2={Ebm7 Apdim Abm7 Db7} [ TR=1P=96q180 q300@27o4 PSW=0;l16MSW=1[K;Alpes(A1,16)] [K;Alpes(A2,16)] TR=11P=32q300V=55o6@9 PSW=0;l16MSW=1[K;Alpes(A1,16)] [K;Alpes(A2,16)] TR=3@33o3q150PSW=0; l8v.N(100,0,100,0,100,100,0,100) MSW=1; [Alpes(A1,8)] [Alpes(A2,8)] TR=4P=32@26r8 q150PSW=0;V=55 v.N(100,100,100,100)MSW=0;l1[A1][A2]r-8 TR=5@53 q150PSW=0;V=50 v.N(100,100,100,100)MSW=0;l1[A1][A2]r-8 TR=10[16[n36n37]r-1[8n(RandomSelect(42,42,42,42,42,42,42,44,46)),8]]] この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)