サクラトップ 掲示板トップ ログイン

君が代 (MIDI Collection) - サクラ曲掲示板6

曲掲示板6にエディタ機能が追加されました！気軽に曲を作成してみましょう！
H゛

君が代 (MIDI Collection)

H゛動画
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/bells.dls)"}
  2. CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/hats.dls)"}
  3.  
  4. INT TRACK_KEY = 0 ; // 原曲キーは0です。色々キー変えて好みの君が代を見付けて下さい。(-5～5)の範囲内推奨です。
  5.  
  6. INT EST=126PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"君が代 (MIDI Collection)"}Copyright={H゛}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
  7. FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
  8. FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
  9. FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
  10. Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
  11. K=TRACK_KEY;
  12. //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)
  13. WIN(01,01,083,00,0,K,064,6,7,127,09,0)WIN(07,07,039,08,0,K,074,5,2,120,10,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
  14. WIN(02,02,082,00,0,K,064,0,2,100,10,0)WIN(08,08,083,00,0,K,000,5,7,100,09,2)WIN(14,14,082,01,0,K,100,2,3,120,10,0)
  15. WIN(03,03,081,00,0,K,000,5,2,110,10,0)WIN(09,09,083,00,0,K,127,5,7,100,09,2)WIN(15,15,003,00,0,K,096,3,8,110,10,0)
  16. WIN(04,04,083,00,0,K,127,5,2,110,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
  17. WIN(05,05,039,00,0,K,054,5,2,120,10,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source
作者からのコメント
子供の頃から音楽的に苦手だった曲をダンスナンバーにアレンジしました！
このコード進行でオリンピックの表彰台とかやって欲しいです！
ベッタベタなコード、ペラペラの上音に強いリズム、マスタリング無しの一発勝負・・
ちょっとMSGSで作ってた頃の雰囲気あると思います！
TW-MUSIC2でどうぞ！
作曲者
Weitten BY : H.Hayashi, Y.Oku, F.Eckert
H゛ - KimigaYoRemix.mml : https://www.youtube.com/watch?v=nUhCTAE6LCA
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
TW-MUSIC2 (bells.dls / hats.dls)
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
▶ YouTubeで見る
投稿日時
2023-06-07 13:38
更新日時
2023-06-07 13:38
お気に入り
ひとりそのらしゅんkorin
ダウンロード数
221
タグ
タグはありません。
→この曲(id:2463)に問題がある場合こちらへ

感謝のコメント

感謝のコメント募集中です!!
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）