#define BZ 3 //ブザーピン
#define LED 13 //LEDーピン

#define F1min 620 //pu(低音)の最低周波数
#define F1max 660 //pu(低音)の最高周波数
#define F2min 2700 //i(高音)の最低周波数
#define F2max 3200 //i(高音)の最高周波数

#define puTime 150 //pu(低音)の時間（ミリ秒）
#define iTime 20   //i(高音)の時間（ミリ秒）

boolean BZval;
word tempo;

void setup(){
  pinMode( BZ, OUTPUT);
  pinMode( LED, OUTPUT);
  delay(500);
  randomSeed(analogRead(0)); //乱数補正
}

void loop(){
  pui();
  delay(50);
  pui();
  delay(1000);

  MoruCarIntro();
  delay(1500);
  pui();
  delay(1000);
  
  while(1){
    delay(random(2000));    
    pui();
  }
}

void pui(){
  float F1=getF(1);
  float F2=getF(2);
  BeepF(F1,puTime);
  Bendto(F1,F2);
  BeepF(F2,iTime);
}

void Bendto(float Fcur,float Fend){
  while(Fcur<Fend){
    digitalWrite(BZ,BZval);
    digitalWrite(LED,BZval);
    delayMicroseconds(5e5/Fcur);  
    Fcur*=1.01;
    BZval=!BZval;
  }
  digitalWrite(LED,0);
}

void BeepF(float Fbeep,unsigned long Tbeep){
  unsigned long starttime=millis();
  while(millis()-starttime<Tbeep){
    digitalWrite(BZ,BZval);    
    digitalWrite(LED,BZval);
    delayMicroseconds(5e5/Fbeep);  
    BZval=!BZval;
  }
  digitalWrite(LED,0);
}

int getF(int Fi){
  if(Fi==1){
    return F1min+random(F1max-F1min);
  }
  else if(Fi==2){
    return F2min+random(F2max-F2min);
  }
}


void MoruCarIntro(){
  tempo=250;
  sound('C',6,0,16,1);
  sound('B',5,0,16,1);
  sound('C',6,0,16,1);
  sound('B',5,0,16,1);
  sound('C',6,0,16,1);
  sound('B',5,0,16,1);

  sound('A',5,0,8,1);
  sound('F',5,1,8,1);  
  sound('A',5,0,4,1);
  sound('B',5,0,4,1);
  
  sound('C',5,0,8,1);  
  sound('D',5,0,8,1);  
  sound('E',5,0,8,1);
  sound('N',5,0,8,1);  
  sound('F',5,1,8,1);  
  sound('N',5,0,8,1);  
  sound('D',5,0,8,1);
  sound('N',5,0,8,1);  
  sound('N',5,0,4,1);  

  sound('A',5,0,8,1);
  sound('F',5,1,8,1);  
  sound('A',5,0,4,1);
  sound('B',5,0,4,1);
  
  sound('D',6,0,8,1);  
  sound('D',6,1,8,1);  
  sound('E',6,0,8,1);
  sound('N',5,0,8,1);  
  sound('E',6,0,8,1);  
  sound('N',6,0,8,1);  
  sound('F',6,1,4,1);
  sound('N',6,0,4,1);  

  sound('G',4,0,4,1);
  sound('F',4,1,4,1);
  sound('F',4,0,4,1);
  sound('E',4,0,4,1);


  sound('A',5,0,8,1);
  sound('F',5,1,8,1);  
  sound('A',5,0,4,1);
  sound('B',5,0,4,1);
  
  sound('C',5,0,8,1);  
  sound('D',5,0,8,1);  
  sound('E',5,0,8,1);
  sound('N',5,0,8,1);  
  sound('F',5,1,8,1);  
  sound('N',5,0,8,1);  
  sound('D',5,0,8,1);
  sound('N',5,0,8,1);  
  sound('N',5,0,4,1);  

}

void sound(char key,int octave,int key_shift,byte beat1,byte beat2){
  boolean Ns=0;
  int shift=12*(octave-4)+key_shift;
  if(key == 'A'){
    shift=shift+0;
  }
  else if(key == 'B'){
    shift=shift+2;
  }
  else if(key == 'C'){
    shift=shift+3;
  }
  else if(key == 'D'){
    shift=shift+5;
  }
  else if(key == 'E'){
    shift=shift+7;
  }
  else if(key == 'F'){
    shift=shift+8;
  }
  else if(key == 'G'){
    shift=shift+10;
  }
  else if(key == 'N'){
    Ns=1;
  }
  unsigned long start=millis();
  word soundtime=60/float(tempo*beat1/beat2)*1000*4;//ms
  float F=440*pow(2,(float(shift)/12));
  int T=1e6/F/2;
  if(Ns==0){    
    while(millis()-start < soundtime){
      digitalWrite(BZ,BZval);
      digitalWrite(LED,BZval);
      delayMicroseconds( T );
      BZval=!BZval;
    }
    BZval=0;
    digitalWrite(BZ,BZval);
    digitalWrite(LED,BZval);
  }
  else{
    delay(soundtime);  
  }
}