[PD-cvs] externals/frankenstein rhythms_memory.c,1.11,1.12

[dmorelli]

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

Modified Files:
	rhythms_memory.c 
Log Message:
adding init feature (memory reinitialization)

Index: rhythms_memory.c
===================================================================
RCS file: /cvsroot/pure-data/externals/frankenstein/rhythms_memory.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** rhythms_memory.c	7 Jan 2006 12:04:27 -0000	1.11
--- rhythms_memory.c	15 Jan 2006 02:14:01 -0000	1.12
***************
*** 400,403 ****
--- 400,413 ----
  }
  
+ // debugging function
+ void init(t_rhythms_memory *x)
+ {
+ 	if (x->curr_seq)
+ 		freeBeats(x->curr_seq);	
+ 	if (x->rhythms_memory)
+ 		rhythm_memory_free(x->rhythms_memory);
+ 	x->seq_initialized = 0;
+ 	rhythm_memory_create(&(x->rhythms_memory));
+ }
  
  // debugging function
***************
*** 427,430 ****
--- 437,441 ----
  	class_addmethod(rhythms_memory_class, (t_method)variation, gensym("variation"),
          A_GIMME, 0);
+ 	class_addmethod(rhythms_memory_class, (t_method)init, gensym("init"), 0);
  }