サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル J-POP ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ......... 曲データ(サクラから貼り付けます。) // ============================================================================= Include(delay.h); // ============================================================================= Function DoMain() { Track(00) CH(01); TrackName = {"● ●● ●●●(ONO-CHORD)"} Copyright = {"Music by AK-i(エーケイアイ)"} MetaText = {""} RESET; Tempo(118) TimeSignature = 4,4 KeyFlag-(); GStringo=(4,4,5,5,5,6); Array CD_Em =( 0, 2, 2, 0, 0, 0); Array CD_C =( 3, 3, 5, 5, 5, 3); Array CD_D =( 2, 5, 4, 2, 3, 2); Array CD_D_2 =( 5, 5, 7, 7, 7, 5); Array CD_G =( 3, 5, 5, 4, 3, 3); Array CD_Em_2 =(-1, 2, 2, 4, 5, 3); Array CD_Bm =( 2, 2, 4, 4, 3, 2); Array CD_Am7_2 =( 5, 7, 5, 5, 5, 5); Array CD_BfM7 =( 1, 1, 3, 2, 3, 1); Array CD_Am7 =( 0, 0, 2, 0, 1, 0); Array CD_Gm7 =( 3, 5, 3, 3, 3, 3); Track(04); // [MAIN] ======================================================= CH(04); Time(9:1:00); @(83) P(60) V(108) REV(30) CHO(20) M(0) q(98) o6 [r8d8d8d8e8e8e8e8 r8f8g4r8d8c8c8 r8d8d8d8e8e8e8e8 :^8f8f4d8d16c16^4] ^8f8f4d8d16SUB{c16^4} r16d8f8 [a4d8f8Sub{a4.}r4f8g8 a8f8^8g16f16^8d8a8f8 f4^4d16c16d4^8 :d8c16d8.f8Sub{f2} r4d8f8] d8c16d8.f8a1 Track(01); // [GUITER] ===================================================== CH(01); Time(1:1:00); @(30) P(30) V(90) REV(120) CHO(40) q(98) [4 SetCord(CD_BfM7); l16 DoPickingDelay(5) DoPickingDelay(3) l8 DoPickingDelay(4) DoPickingDelay(5) DoPickingDelay(6) SetCord(CD_Am7); l16 DoPickingDelay(5) DoPickingDelay(3) l8 DoPickingDelay(4) DoPickingDelay(5) DoPickingDelay(6) SetCord(CD_Gm7); l16 DoPickingDelay(5) DoPickingDelay(3) l4 DoPickingDelay(4) l8 DoPickingDelay(2) SetCord(CD_C); l16 DoPickingDelay(5) DoPickingDelay(3) l8 DoPickingDelay(4) DoPickingDelay(5) DoPickingDelay(6) ] [ SetCord(CD_BfM7); l8 DoPickingDelay(5) [3r8] SetCord(CD_Am7); [3r8] l8 DoPickingDelay(6) SetCord(CD_Gm7); l8 DoPickingDelay(5) [3r8] SetCord(CD_C); [3r8] l8 DoPickingDelay(4) SetCord(CD_BfM7); l8 DoPickingDelay(5) [3r8] SetCord(CD_Am7); [3r8] l8 DoPickingDelay(4) SetCord(CD_Gm7); l8 DoPickingDelay(3) [3r8] SetCord(CD_C); [3r8] l8 DoPickingDelay(4) ] V(60) [4 SetCord(CD_BfM7); l4 DoPicking(1) DoPickingDelay(6) SetCord(CD_Am7); l4 DoPicking(1) DoPickingDelay(6) SetCord(CD_Gm7); l4 DoPicking(1) DoPickingDelay(6) SetCord(CD_C); l4 DoPicking(1) l8 [DoPickingDelay(6)] ] [ SetCord(CD_BfM7); l16 DoPickingDelay(5) DoPickingDelay(3) l8 DoPickingDelay(4) DoPickingDelay(5) DoPickingDelay(6) SetCord(CD_Am7); l16 DoPickingDelay(5) DoPickingDelay(3) l8 DoPickingDelay(4) DoPickingDelay(5) DoPickingDelay(6) SetCord(CD_Gm7); l16 DoPickingDelay(5) DoPickingDelay(3) l4 DoPickingDelay(4) l8 DoPickingDelay(2) SetCord(CD_C); l16 DoPickingDelay(5) DoPickingDelay(3) l8 DoPickingDelay(4) DoPickingDelay(5) DoPickingDelay(6) ] SetCord(CD_BfM7); l4 DoPickingDelay(5) Track(02); // [BASE] ======================================================= CH(02); Time(1:1:00); @(39) P(60) V(50) REV(120) CHO(40) q(98) o2 [17 SetCord(CD_BfM7); l16 GetNoteName(3) r16 GetNoteName(3) GetNoteName(4) GetNoteName(5) r16 GetNoteName(2) SetCord(CD_Am7); l16 GetNoteName(3) r16 GetNoteName(3) GetNoteName(4) GetNoteName(5) r16 GetNoteName(2) SetCord(CD_Gm7); l16 GetNoteName(3) r16 GetNoteName(3) GetNoteName(4) GetNoteName(5) r16 GetNoteName(2) SetCord(CD_C); l16 GetNoteName(3) r16 GetNoteName(3) GetNoteName(4) GetNoteName(5) r16 GetNoteName(2) ] SetCord(CD_BfM7); l16 GetNoteName(3) Track(03); // [GUITER] ===================================================== CH(03); Time(1:1:00); @(30) P(90) CHO(40) q(60) V(71) REV(118) M(112) #CP1={ SetStrokeTimeNote( 0, 4, 6, 8,10,12); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 1); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 1); }; #CP2={ SetStrokeTimeNote( 0, 1, 2, 3, 4, 5); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 1); SetStrokeTimeNote( 0, 4, 6, 8,10,12); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 4, 0); }; SetSoundVolumeNote(98,104,94,97,112,116); q(116); [4 SetCord(CD_BfM7); #CP1 SetCord(CD_Am7); #CP1 SetCord(CD_Gm7); #CP1 SetCord(CD_C); #CP1 ] [4 SetCord(CD_BfM7); #CP1 SetCord(CD_Am7); #CP1 SetCord(CD_Gm7); #CP1 SetCord(CD_C); #CP1 ] [4 SetCord(CD_BfM7); #CP2 SetCord(CD_Am7); #CP2 SetCord(CD_Gm7); #CP2 SetCord(CD_C); #CP2 ] [ SetCord(CD_BfM7); #CP1 SetCord(CD_Am7); #CP1 SetCord(CD_Gm7); #CP1 SetCord(CD_C); #CP1 ] Track(10); // [Drums] ===================================================== CH(10) Time(1:1:00); @(JazzSet); V(120); $o{n(OpenHiHat),} $b{n(Kick1),} $s{n(Snare1),} $c{n(PedalHiHat),} #B01 ={Rythm{[v100 b16 r16 v90 b16 v80 b16 v110 b16 r16 v100 b16 v80 b16 ]}} #S01 ={Rythm{ v80 r4 s4 r4 s4}} #H01 ={Rythm{[4 v110 c16 c16 v60 o8 ]}} #DR01={Sub{#B01}Sub{#S01}Sub{#H01}r1} [[4 #DR01]] [[4 #DR01]] [[4 #DR01]] [4 #DR01] } // ========================================================================== // Array GStringo=(4,4,5,5,5,6); Array GStringh=(4,9,2,7,11,4); Array SpecifiedCord=(0,0,0,0,0,0); Array SystemSoundTimeNote = ( 0, 4, 8,12,16,20); Array SystemSoundUseString = ( 1, 1, 1, 1, 1, 1); Array SystemSoundVolumeNote = (60,60,60,60,60,60); Array EXCEPTION = (); EXCEPTION(0) = ("(EXCEPTION REPORT) >>>>"); EXCEPTION(1) = (" EXCEPTION DoPicking [ 引数に不適切な値 ]"); EXCEPTION(2) = (" EXCEPTION DoStroke [ 引数に不適切な値 ]"); Function SetCord(Array Cord){ SpecifiedCord = Cord; } Function SetSoundVolumeNote(Array SoundVolumeNote){ SystemSoundVolumeNote = SoundVolumeNote; } Function SetStrokeTimeNote(Array SoundTimeNote){ SystemSoundTimeNote = SoundTimeNote; } Function SetStrokeUseString(Array SoundUseString){ SystemSoundUseString = SoundUseString; } Function DoStroke(Int SoundLength,Int Direction){ Int TempVolume = MML(v); Int System = 0; v.onNote(SystemSoundVolumeNote); t.onNote(SystemSoundTimeNote); ' IF(Direction==0){ System++; IF(SystemSoundUseString(0)==1){DoPicking(1);} IF(SystemSoundUseString(1)==1){DoPicking(2);} IF(SystemSoundUseString(2)==1){DoPicking(3);} IF(SystemSoundUseString(3)==1){DoPicking(4);} IF(SystemSoundUseString(4)==1){DoPicking(5);} IF(SystemSoundUseString(5)==1){DoPicking(6);} } IF(Direction==1){ System++; IF(SystemSoundUseString(5)==1){DoPicking(6);} IF(SystemSoundUseString(4)==1){DoPicking(5);} IF(SystemSoundUseString(3)==1){DoPicking(4);} IF(SystemSoundUseString(2)==1){DoPicking(3);} IF(SystemSoundUseString(1)==1){DoPicking(2);} IF(SystemSoundUseString(0)==1){DoPicking(1);} } IF(System==0){ Print(EXCEPTION(0)); Print(EXCEPTION(2) +" -> "+ Direction); } '(SoundLength) t.onNote(0); v.onNote(TempVolume); } Function DoPicking(Int StringNumber){ IF(StringNumber == 0){ Print(EXCEPTION(0)); Print(EXCEPTION(1) +" -> "+ StringNumber); } Int Oct=GStringo(StringNumber-1); Int SysHangar = SpecifiedCord(StringNumber-1) + GStringh(StringNumber-1); IF(SysHangar >= 12){Oct++;} IF(SpecifiedCord(StringNumber-1) == -1){ r; }ELSE{ o(Oct);GetNoteName(SysHangar); } } Function DoPickingDelay(Int StringNumber){ IF(StringNumber == 0){ Print(EXCEPTION(0)); Print(EXCEPTION(1) +" -> "+ StringNumber); } Int Oct=GStringo(StringNumber-1); Int SysHangar = SpecifiedCord(StringNumber-1) + GStringh(StringNumber-1); IF(SysHangar >= 12){Oct++;} IF(SpecifiedCord(StringNumber-1) == -1){ r; }ELSE{ Str ARG = GetNoteNameStr(SysHangar); o(Oct);MidiDelayS(ARG); } } Function GetNoteName(Int FN){ If(FN>=12){FN = FN % 12;} If(FN==0) {c*} If(FN==1) {c+} If(FN==2) {d*} If(FN==3) {d+} If(FN==4) {e*} If(FN==5) {f*} If(FN==6) {f+} If(FN==7) {g*} If(FN==8) {g+} If(FN==9) {a*} If(FN==10){a+} If(FN==11){b*} Result=Returnstr; } Function GetNoteNameStr(Int FN){ If(FN>=12){FN = FN -12;} If(FN==0) {Result="c*";} If(FN==1) {Result="c+";} If(FN==2) {Result="d*";} If(FN==3) {Result="d+";} If(FN==4) {Result="e*";} If(FN==5) {Result="f*";} If(FN==6) {Result="f+";} If(FN==7) {Result="g*";} If(FN==8) {Result="g+";} If(FN==9) {Result="a*";} If(FN==10){Result="a+";} If(FN==11){Result="b*";} } Function RESET(){ System.MeasureShift(1); IF(SoundType==0){ ResetGM; } IF(SoundType==1){ ResetGS; } IF(SoundType==2){ ResetXG; } } // ========================================================================== // DoMain(); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)