４和音ピアノ　ichilatte+pancake版/Kidspod;

2018/12/15 16:40:57

GOOD!0
PLAY!0
VIEW1399

: palboon

４和音ピアノ　ichilatte+pancake版

ichigolatteとpancakeがキーボードを鍵盤にピアノにするプログラ厶です。
キーボードのZXC…がドレミ…に対応しています。SD…が黒鍵になります。
こんな感じで白鍵と黒鍵でキーボードいっぱいまで38音階使用できます
画面には音階を0〜37で数値を表示するので効果音を作曲する際に利用できると思います。
pancakeの機能を生かしてキーを短い間隔で連打すると和音になります。
ichigolatteとpancakeを持っている方は音楽を楽しんで下さい!

//SYNTHE
var t=new Array(32);//Arrey=keyMAP
t[0]=0x307a;t[1]=0x7073;t[2]=0x2d78;
t[3]=0x5b64;t[4]=0x5d63;t[5]=0x5c76;
t[6]=0x67;t[7]=0x62;t[8]=0x68;
t[9]=0x6e;t[10]=0x6a;t[11]=0x6d;t[12]=0x2c;t[13]=0x6c;t[14]=0x2e;
t[15]=0x3b;t[16]=0x2f;t[17]=0x71;
t[18]=0x32;t[19]=0x77;t[20]=0x33;
t[21]=0x65;t[22]=0x34;t[23]=0x72;
t[24]=0x74;t[25]=0x36;t[26]=0x79;
t[27]=0x37;t[28]=0x75;t[29]=0x69;
t[30]=0x39;t[31]=0x6f;
var c=0;//c=SOUND CHANNEL
function so(){
 uart(128,11,9,0,255,1,255,2,255,3,255);
}
function snd(k){
 var a,i;
 c=c+1&3;
 a=t[0]&255,i=0;
 while(i<38){
  if(k==a){
   break();
  }
  i=i+1;
  a=t[i%32]>>(i/32*8)&255;
 }
 if(i>37){
 }else{
  uart(0x80,0x06,0x0a,c,4+i/12,i%12);
  setTout(so,400);//SOUND OFF
 log(i," ");
 }
}
setKprs(snd);

４和音ピアノ ichilatte+pancake版

４和音ピアノ　ichilatte+pancake版