arduino/Sound/Sound.pde

   1 /*
   2  * Bit-bang sound
   3  * <~~Harvie 2oo8
   4  */
   5
   6 #define sndout 13
   7
   8 void sound(char sndpin, float freq, float duration) { //Play bit-bang sound
   9   if(duration<=0) return; if(freq<=0) { delay(duration); return; }
  10   freq=((1000000/2)/freq); //Convert freq to delay (us)
  11   duration*=1000; //Convert duration to us
  12   pinMode(sndpin, OUTPUT);
  13   for(;duration>0;duration-=2*freq) {
  14     digitalWrite(sndpin, HIGH); delayMicroseconds(freq);
  15     digitalWrite(sndpin, LOW);  delayMicroseconds(freq);
  16   }
  17   pinMode(sndpin, INPUT); //Close pin to avoid noise (optional)
  18 }
  19
  20 float get_tone(char tone, char octave) { //Return tone frequency or 0
  21   if(octave+tone<=0) return 0;
  22   float freq;
  23   switch (tone) { //THX2MS GW-BASIC Reference 4freqs muhaha ;D
  24     case 'c': case 'C': freq=130.81; break;
  25     case 'd': case 'D': freq=146.83; break;
  26     case 'e': case 'E': freq=164.81; break;
  27     case 'f': case 'F': freq=174.61; break;
  28     case 'g': case 'G': freq=196; break;
  29     case 'a': case 'A': freq=220; break;
  30     case 'b': case 'B': freq=246.94; break;
  31     default: return 0;
  32   }
  33   return (freq*pow(2,octave-1));
  34 }
  35
  36 void sound_test() { //Check da' sound ;))
  37   sound(sndout, 440, 500);
  38   sound(sndout, get_tone('a', 1), 500);
  39   return;
  40 }
  41
  42 void play_melody(char sndpin, char *melody, char octave, int duration) {
  43   for(char i=0;melody[i]!=0;i++) sound(sndpin, get_tone(melody[i], octave), duration);
  44   return;
  45 }
  46
  47 void stupnice_priklad() {
  48   char oktava = 1;
  49   int delka = 500;
  50   char stupnice[]="cdefgab";
  51
  52   play_melody(sndout, stupnice, oktava, delka);
  53   sound(sndout, get_tone(stupnice[0], oktava+1), delka); //C
  54 }
  55
  56 void setup() { // run once, when the sketch starts
  57
  58 }
  59
  60 void loop() { // run over and over again
  61   //delay(10000); return;//Silence! I'll kill you!
  62   //--->Fun with sound (uncomment one):
  63   //sound_test();
  64   //stupnice_priklad();
  65   //while(1) sound(sndout, rand()/20, 10);
  66   //int i=0; while(1) sound(sndout, i++, 10);
  67   //float i=0; while(1) sound(sndout, sin(i+=0.01)*600, 10);
  68   //float i=0; while(1) { sound(sndout, sin(i+=0.01)*550, 10); sound(sndout, cos(i)*400, 10); }
  69   //sound(sndout, 440, 30000);
  70
  71   int octave, duration;
  72   //You can use lot of more old siemens/ericson monotone ringtones found on net, google or http://www.gsmarena.com/ringlist.php3?idMaker=3
  73   char melody[]="CCDEECCFFAAGGE-CCDEGGEFEDDCC-CCDEECCFFAAGGE-CCDEGGEFEDDC"; octave=1; duration=300; //Bob Marley's Redemption song - intro ;D
  74   //char melody[]="GGGGEEEEEEEEEE" "EEEEEEEEGGCCCC" "DEEEEEEEE----FFFF" "FFFFFFFEEEE" "EEEEDDDD" "EEDDDDGGGGEEEE" "EEEEEEEEEEEEEE" "GGCCCCDEEEEEEEE----" "FFFFFFFFFFF" "EEEEEEGG" "GGFFDDCCCC"; octave=2; duration=100; //Jingle Bells
  75   //char melody[]="D-F-GG-D-F-GGG--D-F-GG-F-DD"; octave=2; duration=180; //Depp Purple - Smoke on the water //alternative: "cpdpfppcpepffppcpdpfppdpc"
  76   //char melody[]="CC-E-F-AGG-E-C-AFFFGG--FFFGAPCCCC"; octave=3; duration=180; //The Simpsons theme
  77   //char melody[]="CFGG-GG-GG-GC-------CFGGG-GG-GG-GD"; octave=2; duration=300; //X-Files theme
  78   //char melody[]="CDCEE--EE-EE----EEDEGG--EDECC"; octave=2; duration=300; //Beatles - Hard days night
  79   //char melody[]="HHHH--AAGGAAHHAAGGAAGG--GG-----HHHH--GG--AAHHGGAA--"; octave=2; duration=300; //Offspring - Why don't you get a job
  80   //char melody[]="AA-AEEGGAA-ADDBBAA-AEEGGAA-ADDBB"; octave=2; duration=300; //Off Spring - Pretty Flyv
  81   //char melody[]="AAgacfaAgadDdcAgacfaAgadDdc AgaaffGv"; octave=2; duration=200; //Eiffel 65 - Blue
  82   //char melody[]="HHHHHHAAAAAAGGAAA-HHHHHH" "AAAAAAFFGGEE-HHHHHHAAAAAA" "AAAAAA-HHHHHHAAAAAAFFGGEE"; octave=2; duration=300; //Bob Dylan - Knockin On Heavens Door
  83   //char melody[]="bBbBpFFpbepdpcpbBbBpFpBepdpcpbBbBp FpbepdpbepCC"; octave=1; duration=200; //Star Wars
  84   //char melody[]="f p c p d p e p f p c p d p e p f p c p d p e p F p p g c e g e G p g c f g f GG"; octave=2; duration=100; //NBA
  85
  86   play_melody(sndout, melody, octave, duration);
  87   delay(2000);
  88 }
  89