//SETA43 21/01/2014
// xsetaseta@gmail.com
// reproductor de wav desde tarjeta SD
// wav 11kHz mono
// Arduino Diecimila

#include <SD.h>
File dataFile;

String inputString = "";  
char fileplay[20] ;
boolean stringComplete = false;  

byte valor;
byte bufer0[100];
byte bufer1[100];
int din=0;
int dout=0;
byte nf=0;
byte vacio=1;
byte fin=1;

void setup()
{
  
  Serial.begin(9600);  
  inputString.reserve(50);
  
  pinMode(9, OUTPUT);
 
 // pinMode(4, OUTPUT);    // si utilizamos la salida 4 como CS de la tarjeta SD
 // if(!SD.begin(4)){    //  
   pinMode(10, OUTPUT);    // si utilizamos la salida 4 como CS de la tarjeta SD
  if(!SD.begin(10))
  {
    Serial.println("Tarjeta erronea o no insertada");    // Texto informativo
    return;
  }
  else
  {
    Serial.println("Tarjeta OK");    // Texto informativo
  }
  
cli();//stop interrupts

TCCR1A = 0x81;
TCCR1B = 0x01;
OCR1A = 255;
TIMSK1=0;

//timer interrupts
//by Amanda Ghassaei
//set timer2 interrupt at 11kHz
  TCCR2A = 0;// set entire TCCR2A register to 0
  TCCR2B = 0;// same for TCCR2B
  TCNT2  = 0;//initialize counter value to 0
  OCR2A = 182;// = (16*10^6) / (11000*8) - 1 (must be <256)  11khz
  // turn on CTC mode
  TCCR2A |= (1 << WGM21);
  // Set CS21 bit for 8 prescaler
  TCCR2B |= (1 << CS21);      
  // enable timer compare interrupt
  TIMSK2 |= (1 << OCIE2A);
sei();//allow interrupts
}//end setup


ISR(TIMER2_COMPA_vect)
{
  //timer1 interrupt 11kHz toggles
  if(nf==0) valor=bufer1[dout];
  if(nf==1) valor=bufer0[dout];
  dout++;
  if(dout>99)
    {
     vacio=1;
     dout=0;
     if(nf==1)
       nf=0;
      else
       nf=1;       
    }  
  OCR1AH = 0;
  OCR1AL = valor;     
  //PORTC= valor;
}

void loop()
{
  
  if(vacio == 1 && fin == 0)
    {     
     if(nf==0) for(din=0;din<100;din++) bufer0[din] = dataFile.read();
     if(nf==1) for(din=0;din<100;din++) bufer1[din] = dataFile.read();
     vacio=0;
     if(!dataFile.available())
       {
         Serial.println("Fin de cancion");
         for(din=0;din<100;din++){ bufer0[din]=128;  bufer1[din]=128;} //vacia bufer
         fin=1;
       }
    }
    
  if (stringComplete)
    {
     inputString.toCharArray(fileplay,19);
     fileplay[inputString.length()-1]=0; //clear \n
     if(strcmp(fileplay, "stop")  == 0)
       {
         Serial.println("Stop cancion");
         for(din=0;din<100;din++){ bufer0[din]=128;  bufer1[din]=128;} //vacia bufer
         dataFile.close();
         fin=1;         
       }
       else
       {
        inputString.toCharArray(fileplay,19);
        fileplay[inputString.length()-1]=0;
        dataFile.close();
        dataFile = SD.open(fileplay,FILE_READ);
        if (dataFile)
          {
           Serial.print("OK ");
           for(din=0;din<1000;din++) dataFile.read(); //quita 1000 bytes del wav
           fin=0;
          }
          else
          {
           Serial.print("Error ");
          }
          Serial.println(fileplay);
       }      
    inputString = "";
    stringComplete = false;
   }    
}

void serialEvent()
{
  while (Serial.available())
   {
    char inChar = (char)Serial.read();
    inputString += inChar;
    if (inChar == '\n')   stringComplete = true;
   }
}