.■ [ Was ist Musiktheorie? / 246 ] ■.

Pitchbend Master Records動画

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

INT SELECTRACK = 1 // 1 or 2
// 1: Was ist Musiktheorie?
// https://www.youtube.com/watch?v=883NoJD_b2I
//
// 2: 246
// https://www.youtube.com/watch?v=Ch2py0r3T10
//
// for Microsoft GS Wavetable SW Synth
//
If(SELECTRACK==1){
STR DBG={}
INT EST=123PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={Was ist Musiktheorie?}Copyright={"PMR (2015)"}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
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)}
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;}
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;
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+35;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}
//-(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)
WIN(01,01,082,00,0,K,030,0,0,060,10,0)WIN(07,07,039,08,0,K,000,0,0,100,09,0)WIN(13,13,119,00,0,0,020,0,0,127,10,0)
WIN(02,02,082,00,0,K,097,0,0,060,10,0)WIN(08,08,012,00,0,K,010,0,0,080,10,2)WIN(14,14,082,00,0,K,107,0,0,127,10,0)
WIN(03,03,081,00,0,K,020,0,0,100,10,0)WIN(09,09,012,00,0,K,117,0,0,080,10,2)WIN(15,15,003,00,0,K,000,0,0,127,10,0)
WIN(04,04,083,00,0,K,107,0,0,100,10,0)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,

作者からのコメント

+++++++ House Music +++++++ Minimal!!!

作曲者: Pitchbend Master Records (2015) +++tek030.mml+++ https://www.youtube.com/watch?v=883NoJD_b2I +++tek020.mml+++ https://www.youtube.com/watch?v=Ch2py0r3T10
ライセンス: 🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載: 許可
推奨音源: Microsoft GS Wavetable SW Synth (unsupported after Vista) --> please listen Youtube
ピコサクラ対応: 未対応
ピコサクラバージョン: 0.2.3
動画: ▶ YouTubeで見る
投稿日時: 2015-06-05 20:13
更新日時: 2015-06-05 20:20