星降る夜に

ふみこみどり動画

MML先頭 2000 文字だけ表示していますダウンロード全文を見る

TrackName = {"『星降る夜に』"}
Copyright = {"作曲：ふみこみどり"}
MetaText = {"公開日：2011/05/14
ジャンル：しっとりピアノ"}
/*
作者：ふみこみどり
http://asiangreen.boo.jp/
hajike_green@hotmail.com
音源
　制作者音源：KONTAKT 4 などなど
　推奨音源：MS-GS(Windows7)で調整しています。
　もしくはmp3(いろんなVST版)でどうぞ。
長さ：2分6秒
調性：ホ短調
mp3版はこちらからどうぞです。
http://asiangreen.boo.jp/music/2011-0514hoshi.mp3
//------------------------------------------------------------------------------
星降る夜に捧げる、小さな祈り。
//------------------------------------------------------------------------------
■作者より
はじめまして　または　おひさしぶりです。
ダウンロードどうもありがとうございます♪
久々に作曲しよう、と思って作ってみたピアノソロの小曲です。
穏やかに聴いていただければ幸いです♪
どうぞよろしくお願いします。
■注■
この曲は音源によって音色を変えられる仕組みになってます。
[0] ふつう用(MS-GS(Vista)で調整しています。)
[1] 作者環境用(いろんなVSTを使用)
　　※ちなみにmp3は[1]がもとになっています。*/
Int TYPE = 0; /* "="の後の数字を0 or 1にしてください。*/
//------------------------------------------------------------------------------
TIME(0:1:1)Tempo(96)
TIME(0:1:0)拍子3,8
調+(f)
TimeBase=480
//------------------------------------------------------------------------------
Str PO = {" y64,127 "}
Str PF = {" y64,0 "}
//------------------------------------------------------------------------------
IF((TYPE==0)) {
ResetGM();
TrackSync;
System.MeasureShift(1); //音源初期化用
}IF((TYPE==1)||(TYPE==2)) {
TrackSync;
System.MeasureShift(1); //音源初期化用
}
//------------------------------------------------------------------------------
Function SetTrack(Int nTrack)
{
IF(TYPE!=0 && TYPE!=1 && TYPE!=2){
Str ALT = {"TYPEの後の数字は、0～2の整数でお願いします～"};
Print(ALT);
End();
}
IF(TYPE==0) {
Track(nTrack)
}IF(TYPE==1) {
Track(nTrack)
IF(nTrack <= 16){Port(0);Channel(nTrack);}
IF((nTrack <= 32)&&(nTrack > 16)){Port(1);Channel(nTrack - 16);}
IF(nTrack > 32){Port(2);Channel(nTrack - 32);}
}
}
Function InitTrack(Int nTrack,
Int nNote,
Int nNote2,
Int nNote3,
Int nVol,
Int nPan,
Int nRev,
Int nCho,
Int nRezo,
Int nAtt,
Int nCut)
{