[PD-cvs] externals/frankenstein chords_memory.c,1.2,1.3
David Plans Casal
pland at users.sourceforge.net
Mon Dec 5 17:47:48 CET 2005
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
More information about the Pd-cvs
mailing list