[PD-cvs] externals/frankenstein test-rhythm.pd, NONE, 1.1 test.c, NONE, 1.1
dmorelli
morellid at users.sourceforge.net
Wed Nov 30 18:32:49 CET 2005
- Previous message: [PD-cvs] externals/frankenstein Makefile, 1.1, 1.2 common.c, 1.1, 1.2 common.h, 1.1, 1.2
- Next message: [PD-cvs] pd/src s_audio_pablio.h, 1.1.4.1.2.1, 1.1.4.1.2.2 s_audio_paring.h, 1.1.4.1.2.1, 1.1.4.1.2.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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;
- Previous message: [PD-cvs] externals/frankenstein Makefile, 1.1, 1.2 common.c, 1.1, 1.2 common.h, 1.1, 1.2
- Next message: [PD-cvs] pd/src s_audio_pablio.h, 1.1.4.1.2.1, 1.1.4.1.2.2 s_audio_paring.h, 1.1.4.1.2.1, 1.1.4.1.2.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list