[PD-cvs] externals/frankenstein chords_memory.c,1.3,1.4
David Plans Casal
pland at users.sourceforge.net
Mon Dec 5 22:05:36 CET 2005
Update of /cvsroot/pure-data/externals/frankenstein
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11866
Modified Files:
chords_memory.c
Log Message:
adding the rest of the 9ths up to kDimMaj9
Index: chords_memory.c
===================================================================
RCS file: /cvsroot/pure-data/externals/frankenstein/chords_memory.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** chords_memory.c 5 Dec 2005 16:47:45 -0000 1.3
--- chords_memory.c 5 Dec 2005 21:05:34 -0000 1.4
***************
*** 113,117 ****
// how can a chord be?
! #define TYPES_NUM 13 // keep me updated
typedef enum {
kMaj=0,
--- 113,117 ----
// how can a chord be?
! #define TYPES_NUM 17 // keep me updated
typedef enum {
kMaj=0,
***************
*** 128,132 ****
kDomb9=10
kMaj9=11
! kDom9=12
} chord_type_t;
--- 128,136 ----
kDomb9=10
kMaj9=11
! kDom9=12
! kMin9=13
! kHalfDim9=14
! kMinMaj9=15
! kDimMaj9=16
} chord_type_t;
***************
*** 337,340 ****
--- 341,352 ----
if (strstr(substr, "dominant 9th"))
return kDom9;
+ if (strstr(substr, "minor 9th"))
+ return kMin9;
+ if (strstr(substr, "half diminished 9th"))
+ return kHalfDim9;
+ if (strstr(substr, "minor major 9th"))
+ return kMinMaj9;
+ if (strstr(substr, "diminished major 9th"))
+ return kDimMaj9;
// TODO: other chords
// beware when adding new chords
More information about the Pd-cvs
mailing list