Teensy guitar tab player

Status
Not open for further replies.
R

rcarr

Well-known member
I wrote this to learn how to use the audio library design tool and for testing my audio board. I am moving on to hooking up my display and learning how that works.

I thought I would post this code in case someone finds it interesting. That someone would probably not be a serious musician but maybe someone learning to write code and has an interest in guitar. The code is somewhat rough.

Ron

The code.... guitar_tab_player

Code: 
/*
Copyright (c) 2017 Ron Carr

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.
*/
// Just playing with the teensy design tool and audio library to get aquainted with the teensy.
// Possible improvements would be to parse the tab out of a text file on SD card and
// maybe use an array of pointers to the guitar strings to avoid duplicate code.

#include <Audio.h>
#include <Wire.h>
#include <SPI.h>
#include <SD.h>
#include <SerialFlash.h>

#include "pipeline.h"     // our song as a big char array

#define MIXER_GAIN 0.20
#define END_BAR  -5
#define MUTE     -4   // mute
#define RING     -3   // ring


 #define MAX_BAR 160

// some integer arrays to hold our local copy of which fret to play
int s1[MAX_BAR];
int s2[MAX_BAR];
int s3[MAX_BAR];
int s4[MAX_BAR];
int s5[MAX_BAR];
int s6[MAX_BAR];

int tab_pos;

 int tempo = 50;   // probably should parse this value out of the tab
 
// GUItool: begin automatically generated code
// original idea was an extra A string to play the 2nd guitar part, but changed the plan
AudioSynthKarplusStrong  string2;        //xy=104,175
AudioSynthKarplusStrong  string3;        //xy=105,222
AudioSynthKarplusStrong  string4;        //xy=105,271
AudioSynthKarplusStrong  string1;        //xy=106,127
AudioSynthKarplusStrong  string5;        //xy=109,322
AudioSynthKarplusStrong  string6;        //xy=112,369
// AudioSynthKarplusStrong  string7;        //xy=113,420
AudioMixer4              mixer2;         //xy=281,286
AudioMixer4              mixer1;         //xy=282,204
AudioMixer4              mixer3;         //xy=403,239  // guess could have used just two mixers
AudioOutputI2S           i2s1;           //xy=529,234
AudioConnection          patchCord1(string2, 0, mixer1, 1);
AudioConnection          patchCord2(string3, 0, mixer1, 2);
AudioConnection          patchCord3(string4, 0, mixer1, 3);
AudioConnection          patchCord4(string1, 0, mixer1, 0);
AudioConnection          patchCord5(string5, 0, mixer2, 0);
AudioConnection          patchCord6(string6, 0, mixer2, 1);
// AudioConnection          patchCord7(string7, 0, mixer2, 2);
AudioConnection          patchCord8(mixer2, 0, mixer3, 1);
AudioConnection          patchCord9(mixer1, 0, mixer3, 0);
AudioConnection          patchCord10(mixer3, 0, i2s1, 0);
AudioConnection          patchCord11(mixer3, 0, i2s1, 1);
AudioControlSGTL5000     sgtl5000_1;     //xy=271,49
// GUItool: end automatically generated code



void setup() {
  // put your setup code here, to run once:
 AudioMemory(15);
  sgtl5000_1.enable();
  sgtl5000_1.volume(0.6);
  mixer1.gain(0, MIXER_GAIN);
  mixer1.gain(1, MIXER_GAIN);
  mixer1.gain(2, MIXER_GAIN * 1.3);
  mixer1.gain(3, MIXER_GAIN * 1.3);
  mixer2.gain(0, MIXER_GAIN * 1.3);
  mixer2.gain(1, MIXER_GAIN);
  mixer2.gain(2, 0.0);
  mixer2.gain(3, 0.0);    // no connection
  mixer3.gain(0, 0.5);
  mixer3.gain(1, 0.5);
  mixer3.gain(2, 0.0);
  mixer3.gain(3, 0.0);

  Serial.begin(9600);
  tab_pos = load_bar_local(0);        // load initial frets information to local arrays 
 
}

void loop() {
  // put your main code here, to run repeatedly:
static int i;
float note;

   if( s6[i] == END_BAR ){     // need to load more from the tab
       tab_pos = load_bar_local( tab_pos );
       if( tab_pos == 0 ){   // end of the song was reached
          delay(5000);
          tab_pos = load_bar_local( 0 );   // start song again
          if( tab_pos == 0 ) while(1);     // hang on error
       }
       i = 0;
   }

   note = get_note( 6, s6[i] );
   if( note > 20.0 ) string6.noteOn( note, 0.9);
   else if( s6[i] == MUTE ) string6.noteOff( 0.9);
   
   note = get_note( 5, s5[i] );
   if( note > 20.0 ) string5.noteOn( note, 0.9);
   else if( s5[i] == MUTE ) string5.noteOff( 0.9);
   
   note = get_note( 4, s4[i] );
   if( note > 20.0 ) string4.noteOn( note, 0.9);
   else if( s4[i] == MUTE ) string4.noteOff( 0.9);
   
   note = get_note( 3, s3[i] );
   if( note > 20.0 ) string3.noteOn( note, 0.9);
   else if( s3[i] == MUTE ) string3.noteOff( 0.9);
   
   note = get_note( 2, s2[i] );
   if( note > 20.0 ) string2.noteOn( note, 0.9);
   else if( s2[i] == MUTE ) string2.noteOff( 0.9);
   
   note = get_note( 1, s1[i] );
   if( note > 20.0 ) string1.noteOn( note, 0.9);
   else if( s1[i] == MUTE ) string1.noteOff( 0.9);

   delay ( tempo );
   ++i;
}


float get_note( int string, int fret ){

const float base_note[] = { 0.0, 329.63, 246.94, 196.00, 146.83, 110.00, 82.41 };
float note;

  if( fret == RING || fret == MUTE ) return 0.0;
  if( fret < 0 || fret > 30 ) return 0.0;   // just in case an error makes it into the array
  
  note = base_note[string];
  while( fret-- ) note *= 1.059463094358;  // 12th root of 2.  Freq doubled on 12th fret.
  // Serial.println( note );
  return note;
}

// parse the .h char file and convert to internal integer storage
int load_bar_local( int pos ){

// our sample tab has two guitar parts.  We will merge both and our player will play both
// parts at the same time on one guitar.  He is very clever.
   clear_bar_local();
   pos= load_bar_local1(pos);
   if( pos != 0 ) pos= load_bar_local1(pos);   // merge 2nd part.  Comment out for tab with one guitar part.

   return pos;
}

int load_bar_local1( int pos ){
int i;
int *str;
char c, c2;

   i= 0;   str = &s1[0];   // assume  e string is first for safety

   while( (c = tab[pos++]) ){
     c2 = tab[pos];                    // look ahead may be needed
     if( c2 == 'e' && i > 0 ) break;   // normal done condition when part way through the tab
     if( c == 'Z' ) break;             // end of tab array character
     if( i >= MAX_BAR - 3 ) break;     // line is too long. Y3 - need extra place for END_BAR
                                       // and last parsed may be a number 10-19 which takes two
                                       // if off by one it is on the conservative side.
     switch( c ){
        case 'e':  str = &s1[0]; i = 0;  break;
        case 'B':  str = &s2[0]; i = 0;  break;
        case 'G':  str = &s3[0]; i = 0;  break;
        case 'D':  str = &s4[0]; i = 0;  break;
        case 'A':  str = &s5[0]; i = 0;  break;
        case 'E':  str = &s6[0]; i = 0;  break;
        case '|':  break;   // ignore these 
        case '-':  if( str[i] == END_BAR ) str[i] = RING;
                   ++i;   break;   // merge rather than overwrite
        case 'x':  str[i++] = MUTE; break;           
        case '0':  str[i++] = 0;  break;     // get this one out of the way
        
        case '1':    // special case as it may be followed by another number for frets 10 to 19
                     // no code written for frets above 19
            if( c2 >= '0' && c2 <= '9' ){
              str[i++] = 10 + ( c2 - '0' );
              str[i++] = RING;   // keep the tempo correct as extra number would normally be a '-'
              pos++;             // skip past the 2nd number in tab file
            }
            else str[i++] = 1;
        break;

        default:
           if( c >= '2' && c <= '9' ) str[i++] = c - '0';
        break;
                      
     }   // end case
     
   }  // end while
   
   if( c == 'Z' && i == 0 ) return 0;
   if( c == 0 ) return 0;
   return pos;
}

void clear_bar_local(){
//  put something in the arrays to show no strings are to be played
int i;

    for( i = 0; i < MAX_BAR; ++i ){
      s1[i] =  END_BAR;   
      s2[i] =  END_BAR;
      s3[i] =  END_BAR;
      s4[i] =  END_BAR;
      s5[i] =  END_BAR;
      s6[i] =  END_BAR;
    } 
}

And the header pipeline.h

Code: 
// I marked the end of the "file" with a Z
const char tab[] = "\
e|-------------------------------------|\
B|-------------------------------------|\
G|-------------------------------------|\
D|-------------------------------------|\
A|-14--13-12-11-10-9-8-7-6-5-4-3-2-1-0-|\
E|-------------------------------------|\
\
e|-------------------------------------|\
B|-------------------------------------|\
G|-------------------------------------|\
D|-------------------------------------|\
A|-14--13-12-11-10-9-8-7-6-5-4-3-2-1-0-|\
E|-------------------------------------|\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------------------------------|---------------------------------|\
D|---------------------------------|---------------------------------|\
A|-----2-------2-------2-------2---|-----2-------2-------2-------2---|\
E|-0-------3-------0-------3-------|-0-------3-------0-------3-------|\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------------------------------|---------------------------------|\
D|---------------------------------|---------------------------------|\
A|-----2-------2-------2-------2---|-----2-------2-------2-------2---|\
E|-0-------3-------0-------3-------|-0-------3-------0-------3-------|\
\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------------------------------|---------------------------------|\
D|---------------------------------|---------------------------------|\
A|-----2-------2-------2-------2---|-----2-------2-------2-------2---|\
E|-0-------3-------0-------3-------|-0-------3-------0-------3-------|\
\
e|0--------------------------------|0--------------------------------|\
B|-0-------------------------------|-0-------------------------------|\
G|--0------------------------------|--0------------------------------|\
D|---2-----------------------------|---2-----------------------------|\
A|----2----------------------------|----2----------------------------|\
E|-----0---------------------------|-----0---------------------------|\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------------------------------|---------------------------------|\
D|---------------------------------|---------------------------------|\
A|-----2-------2-------2-------2---|-----2-------2-------2-------2---|\
E|-0-------3-------0-------3-------|-0-------3-------0-------3-------|\
\
e|0--------------------------------|0--------------------------------|\
B|-0-------------------------------|-0-------------------------------|\
G|--0------------------------------|--0------------------------------|\
D|---2-----------------------------|---2-----------------------------|\
A|----2----------------------------|----2----------------------------|\
E|-----0---------------------------|-----0---------------------------|\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------------------------------|---------------------------------|\
D|---------0-------2-------0---2---|-4---2---0---2-------4-------2---|\
A|-2-------------------------------|---------------------------------|\
E|---------------------------------|---------------------------------|\
\
e|0--------------------------------|---------------------------------|\
B|-0-------------------------------|---------------------------------|\
G|--0------------------------------|---------------------------------|\
D|---2-----------------------------|---------------------------------|\
A|---------------------------------|---------------------------------|\
E|---------------------------------|---------------------------------|\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------------------------------|---------------------------------|\
D|-4-------2-------0---2---0-------|---------------------------------|\
A|-----------------------------2---|---------------------------------|\
E|---------------------------------|---------------------------------|\
\
e|---------------------------------|---------------------7---5---3---|\
B|---------------------------------|---------5---8-------------------|\
G|---------------------------------|---------------------------------|\
D|---------------------------------|-----7---------------------------|\
A|---------------------------------|---------------------------------|\
E|---------------------------------|---------------------------------|\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------0-------2-------0---2---|-4---2---0---2-------4-------2---|\
D|-2-------------------------------|---------------------------------|\
A|---------------------------------|---------------------------------|\
E|---------------------------------|---------------------------------|\
\
e|-5-------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------------------------------|---------------------------------|\
D|---------------------------------|---------------------------------|\
A|---------------------------------|---------------------------------|\
E|---------------------------------|---------------------------------|\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|-4-------2-------0---2---0-------|---------------------------------|\
D|-----------------------------2---|---------------------------------|\
A|---------------------------------|---------------------------------|\
E|---------------------------------|---------------------------------|\
\
e|---------------------------------|---------5---8-------12--10--8---|\
B|---------------------------------|-----5---------------------------|\
G|---------------------------------|---------------------------------|\
D|---------------------------------|---------------------------------|\
A|---------------------------------|---------------------------------|\
E|---------------------------------|---------------------------------|\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|-4-----4-4---4-------4---4---4---|-5-----5-5---5-------5---5---5---|\
D|-4-----4-4---4-------4---4---4---|-5-----5-5---5-------5---5---5---|\
A|-2-----2-0---2-------0---2---0---|-3-----3-0---3-------0---3---0---|\
E|---------------------------------|---------------------------------|\
\
e|-7-------------------------------|-----3---------------------------|\
B|---------------------------------|----5----------------------------|\
G|---------------------------------|---5-----------------------------|\
D|---------------------------------|--5------------------------------|\
A|---------------------------------|-3-------------------------------|\
E|---------------------------------|---------------------------------|\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|-4-----4-4---4-------4---4---4---|-5-----5-5---5-------5---5---5---|\
D|-4-----4-4---4-------4---4---4---|-5-----5-5---5-------5---5---5---|\
A|-2-----2-0---2-------0---2---0---|-3-----3-0---3-------0---3---0---|\
E|---------------------------------|---------------------------------|\
\
e|-----2---------------------------|-----3---------------------------|\
B|----4----------------------------|----5----------------------------|\
G|---4-----------------------------|---5-----------------------------|\
D|--4------------------------------|--5------------------------------|\
A|-2-------------------------------|-3-------------------------------|\
E|---------------------------------|---------------------------------|\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|-4-----4-4---4-------4---4---4---|-4-----4-4---4-------4---4---4---|\
D|-4-----4-4---4-------4---4---4---|-4-----4-4---4-------4---4---4---|\
A|-2-----2-0---2-------0---2---0---|-2-----2-0---2-------0---2---0---|\
E|---------------------------------|---------------------------------|\
\
e|-----2---------------------------|-----2---------------------------|\
B|----4----------------------------|----4----------------------------|\
G|---4-----------------------------|---4-----------------------------|\
D|--4------------------------------|--4------------------------------|\
A|-2-------------------------------|-2-------------------------------|\
E|---------------------------------|---------------------------------|\
\
\
e|---------------------------------|---------------------------------|\
B|---------------------------------|---------------------------------|\
G|---------------------------------|-2-------------------------------|\
D|-2-----2-0---2-------0---2---0---|-2-------------------------------|\
A|-0-----0-0---0-------0---0---0---|-0-------------------------------|\
E|---------------------------------|---------------------------------|\
\
e|-----0---------------------------|---------------------------------|\
B|----2----------------------------|---------------------------------|\
G|---2-----------------------------|---------------------------------|\
D|--2------------------------------|---------------------------------|\
A|-0-------------------------------|-14--131211109-8-7-6-5-4-3-2-1-0-|\
E|---------------------------------|---------------------------------|\
Z";
 
Last edited:
Nice idea to encode the music.

Would it be ok to copy this, maybe include it with the library as an example? I didn't see any open source info like MIT, public domain, or other mention that it's ok for people to copy & use in their projects.
 
Certainly Paul. Do you need me to add something to the file and repost or is this message good enough for permission? Edit - found the MIT example on wiki and added it to the first post.
 
Last edited:
Duhjoker said:
Why was i sent a costco advertisement in my email posted from this thread?
Click to expand...

I guess, if you are subscribed to this thread, and it was hijacked by spammer therefore you will get also notified. Jammer may then be deleted by other user, but notification is faster.
So, spam not only clutters forum, but will automatically send to subscribed users.
@PJRC, anything we can do about this?
 
WMXZ said:
@PJRC, anything we can do about this?
Click to expand...

Well, yes, yes and no.

Yes, Robin does (mostly unseen) anti-spam work every day. Her efforts keep the spam problem at fairly manageable levels.

Yes, more anti-spam measures are possible, but they come with consequences. Most of those fall into 2 broad categories: harmfully affecting legitimate conversation/questions (particularly first-time user questions which are a top priority) and diluting/distracting from everything else PJRC does. I believe everyone can agree there's a lot for us to do, especially on the software and documentation, that can help many people much more than anti-spam work.

And no, there does not seem to be any final, 100% effective solution to the spam problem. Like so many other things, it's all a matter of imperfect trade-offs.
 
Status
Not open for further replies.
Back
Top