/*
Mathematica からSerial port を通じて'S'が送られると
LED を点灯して、その他はLED を消灯する。
*/
int inByte = 0;
int red = 10;
int yellow = 11;
int blue = 12;
void setup() {
pinMode(red,OUTPUT);
pinMode(yellow,OUTPUT);
pinMode(blue,OUTPUT);
Serial.begin(9600);
}
void loop() {
 if (Serial.available() > 0) {
  inByte = Serial.read();// シリアルから一文字よみとる
  if(inByte=='B'){ 
    
      digitalWrite(blue,HIGH);
      digitalWrite(red,LOW);
      delay(10000);
      digitalWrite(yellow,HIGH);
      digitalWrite(blue,LOW);
      delay(2000); 
      digitalWrite(red,HIGH);
      digitalWrite(yellow,LOW);
      delay(10000);
    
  }
  if(inByte=='Y'){
    
     digitalWrite(yellow,HIGH);
     digitalWrite(blue,LOW);
     delay(2000);
     digitalWrite(red,HIGH);
     digitalWrite(yellow,LOW);
     delay(10000);
     digitalWrite(blue,HIGH);
     digitalWrite(red,LOW);
     delay(10000);
    
   }
   if(inByte=='R'){
   
     digitalWrite(red,HIGH);
     digitalWrite(yellow,LOW);
     delay(10000);
     digitalWrite(blue,HIGH);
     digitalWrite(red,LOW);
     delay(10000);
     digitalWrite(yellow,HIGH);
     digitalWrite(blue,LOW);
     delay(2000);
    
   }
  }  
}