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

Added Files: test-rhythm.pd test.c Log Message: adding a dummy testing external for common functions

--- NEW FILE: test.c --- /* just a dummy test patch

*/

#include "m_pd.h"

#include "common.h" #include <time.h> #include <math.h> #include <stdlib.h>

static t_class *test_class;

typedef struct _test { t_object x_obj; // myself t_outlet *l_out; t_rhythm_event *seq; int seq_initialized; } t_test;

void test_free(t_test *x) { freeBeats(x->seq); }

static void test_bang(t_test *x) {

// generate a random value float rnd; t_rhythm_event *events; t_duration dur;

rnd = rand()/((double)RAND_MAX + 1); dur = float2duration(rnd);

post("random value=%f duration.numerator=%i duration.denominator=%i", rnd, dur.numerator, dur.denominator);

if (x->seq_initialized) { concatenateBeat(x->seq, 0, rnd); } else { setFirstBeat(&(x->seq), 0, rnd); x->seq_initialized = 1; }

// print the sequence events = x->seq; while(events) { post("event: numerator=%i, denominator=%i", events->duration.numerator, events->duration.denominator); events=events->next; } }

void *test_new(t_symbol *s, int argc, t_atom *argv) { int i; time_t a; t_test *x = (t_test *)pd_new(test_class); x->l_out = outlet_new(&x->x_obj, &s_list); x->seq_initialized = 0;

return (x); }

void test_setup(void) { test_class = class_new(gensym("test"), (t_newmethod)test_new, (t_method)test_free, sizeof(t_test), CLASS_DEFAULT, A_GIMME, 0); class_addbang(test_class, (t_method)test_bang);

}

--- NEW FILE: test-rhythm.pd --- #N canvas 0 0 458 308 12; #X obj 140 162 test; #X obj 140 102 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X connect 1 0 0 0;