[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