externals/frankenstein chords_memory.c,1.3,1.4 - Pd-cvs

5 Dec 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