[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