#include "pitch.h"

/* a scale is a sequence of musical pitches 
   the following pitches are used is some tunings of pianos
   (rounded to the nearest integer)
 */
pitch scale [88] =
  { 
    {"A" , "" ,  0,   27},
    {"Bf", "As", 0,   29},
    {"B" , "" ,  0,   31},
    {"C" , "" ,  1,   33},
    {"Df", "Cs", 1,   35},
    {"D" , "" ,  1,   37},
    {"Ef", "Ds", 1,   39},
    {"E" , "" ,  1,   41},
    {"F" , "" ,  1,   44},
    {"Gf", "Fs", 1,   46},
    {"G" , "" ,  1,   49},
    {"Af", "Gs", 1,   52},
    {"A" , "" ,  1,   55},
    {"Bf", "As", 1,   58},
    {"B" , "" ,  1,   62},
    {"C" , "" ,  2,   65},
    {"Df", "Cs", 2,   69},
    {"D" , "" ,  2,   73},
    {"Ef", "Ds", 2,   78},
    {"E" , "" ,  2,   82},
    {"F" , "" ,  2,   87},
    {"Gf", "Fs", 2,   92},
    {"G" , "" ,  2,   98},
    {"Af", "Gs", 2,  104},
    {"A" , "" ,  2,  110},
    {"Bf", "As", 2,  117},
    {"B" , "" ,  2,  123},
    {"C" , "" ,  3,  130},
    {"Df", "Cs", 3,  138},
    {"D" , "" ,  3,  147},
    {"Ef", "Ds", 3,  155},
    {"E" , "" ,  3,  165},
    {"F" , "" ,  3,  175},
    {"Gf", "Fs", 3,  185},
    {"G" , "" ,  3,  196},
    {"Af", "Gs", 3,  208},
    {"A" , "" ,  3,  220},
    {"Bf", "As", 3,  233},
    {"B" , "" ,  3,  247},
    {"C" , "" ,  4,  262},
    {"Df", "Cs", 4,  277},
    {"D" , "" ,  4,  294},
    {"Ef", "Ds", 4,  311},
    {"E" , "" ,  4,  330},
    {"F" , "" ,  4,  349},
    {"Gf", "Fs", 4,  370},
    {"G" , "" ,  4,  392},
    {"Af", "Gs", 4,  415},
    {"A" , "" ,  4,  440},
    {"Bf", "As", 4,  466},
    {"B" , "" ,  4,  494},
    {"C" , "" ,  5,  523},
    {"Df", "Cs", 5,  554},
    {"D" , "" ,  5,  587},
    {"Ef", "Ds", 5,  622},
    {"E" , "" ,  5,  659},
    {"F" , "" ,  5,  698},
    {"Gf", "Fs", 5,  739},
    {"G" , "" ,  5,  783},
    {"Af", "Gs", 5,  830},
    {"A" , "" ,  5,  880},
    {"Bf", "As", 5,  932},
    {"B" , "" ,  5,  988},
    {"C" , "" ,  6, 1047},
    {"Df", "Cs", 6, 1109},
    {"D" , "" ,  6, 1175},
    {"Ef", "Ds", 6, 1245},
    {"E" , "" ,  6, 1319},
    {"F" , "" ,  6, 1397},
    {"Gf", "Fs", 6, 1480},
    {"G" , "" ,  6, 1568},
    {"Af", "Gs", 6, 1661},
    {"A" , "" ,  6, 1760},
    {"Bf", "As", 6, 1865},
    {"B" , "" ,  6, 1976},
    {"C" , "" ,  7, 2093},
    {"Df", "Cs", 7, 2217},
    {"D" , "" ,  7, 2349},
    {"Ef", "Ds", 7, 2489},
    {"E" , "" ,  7, 2637},
    {"F" , "" ,  7, 2794},
    {"Gf", "Fs", 7, 2960},
    {"G" , "" ,  7, 3136},
    {"Af", "Gs", 7, 3322},
    {"A" , "" ,  7, 3520},
    {"Bf", "As", 7, 3729},
    {"B" , "" ,  7, 3951},
    {"C" , "" ,  8, 4186}
 };