Update of /cvsroot/pure-data/externals/frankenstein In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1098
Modified Files: chords_memory.c Log Message: adding 9ths
Index: chords_memory.c =================================================================== RCS file: /cvsroot/pure-data/externals/frankenstein/chords_memory.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** chords_memory.c 18 Oct 2005 23:10:53 -0000 1.1 --- chords_memory.c 1 Dec 2005 09:57:50 -0000 1.2 *************** *** 108,112 ****
// how can a chord be? ! #define TYPES_NUM 10 // keep me updated typedef enum { kMaj=0, --- 108,112 ----
// how can a chord be? ! #define TYPES_NUM 11 // keep me updated typedef enum { kMaj=0, *************** *** 119,128 **** kMinMaj7=7, kDim7=8, ! kHalfDim7=9 } chord_type_t;
// how many tones do we have in our octave? #define TONES_NUM 12 // keep me updated ! typedef enum {I=0, Id=1, II=2, --- 119,131 ---- kMinMaj7=7, kDim7=8, ! kHalfDim7=9, ! //pland adding 9ths 30.11.12 ! kDomb9=10 } chord_type_t;
// how many tones do we have in our octave? #define TONES_NUM 12 // keep me updated ! typedef enum { ! I=0, Id=1, II=2, *************** *** 153,157 **** // enumeration of absolute notes // i'll need this when parsing strings like "C major" ! typedef enum {C=0, Db=1, D=2, --- 156,161 ---- // enumeration of absolute notes // i'll need this when parsing strings like "C major" ! typedef enum { ! C=0, Db=1, D=2, *************** *** 319,322 **** --- 323,329 ---- if (strstr(substr, "dominant 7th")) return kDom7; + // pland adding chords 30.11.05 + if (strstr(substr, "dominant b9")) + return kDomb9; // TODO: other chords // beware when adding new chords *************** *** 372,375 **** --- 379,383 ---- case kDim7: strcat(string, "diminished 7th"); break; case kMinMaj7: strcat(string, "minor/major 7th"); break; + case kDomb9: strcat(string, "dominant b9"); break;
} *************** *** 772,778 ****
// send the solution list to outlet x_outchordssequence ! outlet_list(x->x_outchordssequence, ! gensym("list") , ! steps, chords_sequence);
--- 780,786 ----
// send the solution list to outlet x_outchordssequence ! outlet_list(x->x_outchordssequence, ! gensym("list") , ! steps, chords_sequence);