[PD-cvs] externals/frankenstein chords_memory.c,1.1,1.2

[David Plans Casal]

Update of /cvsroot/pure-data/externals/frankenstein
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1098

Modified Files:
	chords_memory.c 
Log Message:
adding 9ths

Index: chords_memory.c
===================================================================
RCS file: /cvsroot/pure-data/externals/frankenstein/chords_memory.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** chords_memory.c	18 Oct 2005 23:10:53 -0000	1.1
--- chords_memory.c	1 Dec 2005 09:57:50 -0000	1.2
***************
*** 108,112 ****
  
  // how can a chord be?
! #define TYPES_NUM 10 // keep me updated
  typedef enum {
  			kMaj=0, 
--- 108,112 ----
  
  // how can a chord be?
! #define TYPES_NUM 11 // keep me updated
  typedef enum {
  			kMaj=0, 
***************
*** 119,128 ****
  			kMinMaj7=7,
  			kDim7=8,
! 			kHalfDim7=9
  			} chord_type_t;
  
  // how many tones do we have in our octave?
  #define TONES_NUM 12 // keep me updated
! typedef enum {I=0,
  			Id=1,
  			II=2,
--- 119,131 ----
  			kMinMaj7=7,
  			kDim7=8,
! 			kHalfDim7=9,
! 			//pland adding 9ths 30.11.12
! 			kDomb9=10
  			} chord_type_t;
  
  // how many tones do we have in our octave?
  #define TONES_NUM 12 // keep me updated
! typedef enum {
! 			I=0,
  			Id=1,
  			II=2,
***************
*** 153,157 ****
  // enumeration of absolute notes 
  // i'll need this when parsing strings like "C major"
! typedef enum {C=0,
  			Db=1,
  			D=2,
--- 156,161 ----
  // enumeration of absolute notes 
  // i'll need this when parsing strings like "C major"
! typedef enum {
! 			C=0,
  			Db=1,
  			D=2,
***************
*** 319,322 ****
--- 323,329 ----
  	if (strstr(substr, "dominant 7th"))
  		return kDom7;
+ 	// pland adding chords 30.11.05
+ 	if (strstr(substr, "dominant b9"))
+ 		return kDomb9;
  	// TODO: other chords
  	// beware when adding new chords
***************
*** 372,375 ****
--- 379,383 ----
  		case kDim7:		strcat(string, "diminished 7th");	  break;
  		case kMinMaj7:	strcat(string, "minor/major 7th");	  break;
+ 		case kDomb9:	strcat(string, "dominant b9");		  break;
  
  	}
***************
*** 772,778 ****
  
  	// send the solution list to outlet x_outchordssequence
! 	outlet_list(x->x_outchordssequence,
!                      gensym("list") ,
! 					 steps, 
  					 chords_sequence);
  
--- 780,786 ----
  
  	// send the solution list to outlet x_outchordssequence
! 	outlet_list(x->x_outchordssequence,
!                      gensym("list") ,
! 					 steps, 
  					 chords_sequence);