Update of /cvsroot/pure-data/externals/frankenstein In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16741
Modified Files: chords_memory.c Log Message: adding kDom9
Index: chords_memory.c =================================================================== RCS file: /cvsroot/pure-data/externals/frankenstein/chords_memory.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** chords_memory.c 1 Dec 2005 09:57:50 -0000 1.2 --- chords_memory.c 5 Dec 2005 16:47:45 -0000 1.3 *************** *** 29,32 **** --- 29,37 ---- aug7maj (tot 13 forms) + + pland adding more chord types here: + + + we have 12 grades: I *************** *** 108,112 ****
// how can a chord be? ! #define TYPES_NUM 11 // keep me updated typedef enum { kMaj=0, --- 113,117 ----
// how can a chord be? ! #define TYPES_NUM 13 // keep me updated typedef enum { kMaj=0, *************** *** 120,125 **** kDim7=8, kHalfDim7=9, ! //pland adding 9ths 30.11.12 kDomb9=10 } chord_type_t;
--- 125,132 ---- kDim7=8, kHalfDim7=9, ! //pland adding 9ths 30.11.05 and beyond kDomb9=10 + kMaj9=11 + kDom9=12 } chord_type_t;
*************** *** 326,329 **** --- 333,340 ---- if (strstr(substr, "dominant b9")) return kDomb9; + if (strstr(substr, "major 9th")) + return kMaj9; + if (strstr(substr, "dominant 9th")) + return kDom9; // TODO: other chords // beware when adding new chords