From 6b378329aa20ec2caa3f06968c2ac71d41dca7f9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Tue, 17 May 2005 16:50:28 +0000 Subject: renamed *_tilde.c-files to *~.c svn path=/trunk/externals/zexy/; revision=2998 --- src/dirac_tilde.c | 113 ------------------------------------------------------ 1 file changed, 113 deletions(-) delete mode 100644 src/dirac_tilde.c (limited to 'src/dirac_tilde.c') diff --git a/src/dirac_tilde.c b/src/dirac_tilde.c deleted file mode 100644 index 72cc4d3..0000000 --- a/src/dirac_tilde.c +++ /dev/null @@ -1,113 +0,0 @@ -/****************************************************** - * - * zexy - implementation file - * - * copyleft (c) IOhannes m zmölnig - * - * 1999:forum::für::umläute:2004 - * - * institute of electronic music and acoustics (iem) - * - ****************************************************** - * - * license: GNU General Public License v.2 - * - ******************************************************/ - - -/* -This external makes the two main test-functions available : -dirac~ : will make a single peak (eg: a 1 in all the 0s) at a desired position in the signal-vector - the position can be passed as an argument when creating the object -step~ : will make a unity step at a desired point in the signal-vector; the second input specifies a - length: after the so-specified time has elapsed, the step will toggle back to the previous - value; - the length can be passed as an argument when creating the object - with length==1 you might do the dirac~ thing a little bit more complicated - with length==0 the output just toggles between 0 and 1 every time you bang the object - -NOTE : the inlets do NOT specify any times but sample-NUMBERS; there are 64 samples in a signal-vector, - each "lasting" for 1/44100 secs. -*/ - -#include "zexy.h" - -/* ------------------------ dirac~ ----------------------------- */ - - -static t_class *dirac_class; - -typedef struct _dirac -{ - t_object x_obj; - t_float position; - t_float do_it; -} t_dirac; - -static void dirac_bang(t_dirac *x) -{ - x->do_it = x->position; -} - -static void dirac_float(t_dirac *x, t_float where) -{ - x->do_it = x->position = where; -} - -static t_int *dirac_perform(t_int *w) -{ - t_dirac *x = (t_dirac *)(w[1]); - t_float *out = (t_float *)(w[2]); - int n = (int)(w[3]); - - int do_it = x->do_it; - - while (n--) - { - *out++ = (!do_it--); - } - x->do_it = do_it; - - return (w+4); -} - -static void dirac_dsp(t_dirac *x, t_signal **sp) -{ - dsp_add(dirac_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); -} - -static void dirac_helper(void) -{ - post("%c dirac~-object :: generates a dirac (unity-pulse)", HEARTSYMBOL); - post("creation : \"dirac~ []\" : create a dirac at specified position (in samples)\n" - "inlet\t: \t: create a dirac at new position\n" - "\t 'bang'\t: create a dirac at specified position\n" - "\t 'help'\t: view this\n" - "outlet\t: signal~"); -} - - - -static void *dirac_new(t_floatarg where) -{ - t_dirac *x = (t_dirac *)pd_new(dirac_class); - - outlet_new(&x->x_obj, gensym("signal")); - - x->do_it = 0; - x->position = where; - return (x); -} - -void dirac_tilde_setup(void) -{ - dirac_class = class_new(gensym("dirac~"), (t_newmethod)dirac_new, 0, - sizeof(t_dirac), 0, A_DEFFLOAT, 0); - class_addfloat(dirac_class, dirac_float); - class_addbang(dirac_class, dirac_bang); - class_addmethod(dirac_class, (t_method)dirac_dsp, gensym("dsp"), 0); - - class_addmethod(dirac_class, (t_method)dirac_helper, gensym("help"), 0); - class_sethelpsymbol(dirac_class, gensym("zexy/dirac~")); - zexy_register("dirac~"); -} -- cgit v1.2.1