aboutsummaryrefslogtreecommitdiff
path: root/cyclone/sickle
diff options
context:
space:
mode:
Diffstat (limited to 'cyclone/sickle')
-rw-r--r--cyclone/sickle/Makefile.sources1
-rw-r--r--cyclone/sickle/allsickles.c2
-rw-r--r--cyclone/sickle/pong.c247
3 files changed, 250 insertions, 0 deletions
diff --git a/cyclone/sickle/Makefile.sources b/cyclone/sickle/Makefile.sources
index e807a06..0cb46aa 100644
--- a/cyclone/sickle/Makefile.sources
+++ b/cyclone/sickle/Makefile.sources
@@ -47,6 +47,7 @@ peek.c \
phasewrap.c \
play.c \
poltocar.c \
+pong.c \
pow.c \
rand.c \
rampsmooth.c \
diff --git a/cyclone/sickle/allsickles.c b/cyclone/sickle/allsickles.c
index 624a48d..dd97ad2 100644
--- a/cyclone/sickle/allsickles.c
+++ b/cyclone/sickle/allsickles.c
@@ -50,6 +50,7 @@ void peek_tilde_setup(void);
void phasewrap_tilde_setup(void);
void play_tilde_setup(void);
void poltocar_tilde_setup(void);
+void pong_tilde_setup(void);
void pow_tilde_setup(void);
void rampsmooth_tilde_setup(void);
void rand_tilde_setup(void);
@@ -115,6 +116,7 @@ void allsickles_setup(void)
phasewrap_tilde_setup();
play_tilde_setup();
poltocar_tilde_setup();
+ pong_tilde_setup();
pow_tilde_setup();
rampsmooth_tilde_setup();
rand_tilde_setup();
diff --git a/cyclone/sickle/pong.c b/cyclone/sickle/pong.c
new file mode 100644
index 0000000..59a8beb
--- /dev/null
+++ b/cyclone/sickle/pong.c
@@ -0,0 +1,247 @@
+/* Copyright (c) 2002-2003 krzYszcz and others.
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
+
+/* CHECKED whatever args, there are always 3 inlets (refman's rubbish) */
+
+#include "m_pd.h"
+#include "unstable/forky.h"
+#include "sickle/sic.h"
+
+//#define PONG_DEBUG
+
+#define PONG_DEFLO 0.
+#define PONG_DEFHI 1.
+
+typedef struct _pong
+{
+ t_sic x_sic;
+ t_glist *x_glist;
+ int x_mode;
+} t_pong;
+
+static t_class *pong_class;
+
+static t_int *pong_perform(t_int *w)
+{
+ t_pong *x = (t_pong *)(w[1]);
+ int nblock = (int)(w[2]);
+ t_float *in1 = (t_float *)(w[3]);
+ t_float *in2 = (t_float *)(w[4]);
+ t_float *in3 = (t_float *)(w[5]);
+ t_float *out = (t_float *)(w[6]);
+ if (x->x_mode) while (nblock--)
+ {
+ float f = *in1++;
+ float lo = *in2++;
+ float hi = *in3++;
+ float range;
+ if (lo < hi) range = hi - lo;
+ else if (lo > hi)
+ {
+ range = lo;
+ lo = hi;
+ hi = range;
+ range -= lo;
+ }
+ else
+ {
+ *out++ = lo;
+ continue;
+ }
+ if (f < lo)
+ {
+ if (f < lo - range)
+ {
+ double dnorm = (f - lo) / range;
+ dnorm -= (int)dnorm;
+ *out++ = hi + dnorm * range;
+ }
+ else *out++ = f + range;
+ }
+ else if (f > hi)
+ {
+ if (f > hi + range)
+ {
+ double dnorm = (f - lo) / range;
+ dnorm -= (int)dnorm;
+ *out++ = lo + dnorm * range;
+ }
+ else *out++ = f - range;
+ }
+ else *out++ = f;
+ }
+ else while (nblock--)
+ {
+ float f = *in1++;
+ float lo = *in2++;
+ float hi = *in3++;
+ float range;
+ if (lo < hi) range = hi - lo;
+ else if (lo > hi)
+ {
+ range = lo;
+ lo = hi;
+ hi = range;
+ range -= lo;
+ }
+ else
+ {
+ *out++ = lo;
+ continue;
+ }
+ if (f < lo)
+ {
+ f = lo - f;
+ if (f <= range)
+ {
+ *out++ = lo + f;
+ continue;
+ }
+ }
+ else if (f > hi) f -= lo;
+ else
+ {
+ *out++ = f;
+ continue;
+ }
+ if (f > range + range)
+ {
+ double dnorm = f / range;
+ int inorm = (int)dnorm;
+ if (inorm % 2)
+ *out++ = lo + ((inorm + 1) - dnorm) * range;
+ else
+ *out++ = lo + (dnorm - inorm) * range;
+ }
+ else *out++ = hi + range - f;
+ }
+ return (w + 7);
+}
+
+static t_int *pong_perform_nofeeders(t_int *w)
+{
+ t_pong *x = (t_pong *)(w[1]);
+ int nblock = (int)(w[2]);
+ t_float *in1 = (t_float *)(w[3]);
+ t_float *in2 = (t_float *)(w[4]);
+ t_float *in3 = (t_float *)(w[5]);
+ t_float *out = (t_float *)(w[6]);
+ float lo = *in2;
+ float hi = *in3;
+ float range;
+ double coef;
+ if (lo < hi) range = hi - lo;
+ else if (lo > hi)
+ {
+ range = lo;
+ lo = hi;
+ hi = range;
+ range -= lo;
+ }
+ else
+ {
+ while (nblock--) *out++ = lo;
+ goto done;
+ }
+ coef = 1. / range;
+ if (x->x_mode) while (nblock--)
+ {
+ float f = *in1++;
+ if (f < lo)
+ {
+ if (f < lo - range)
+ {
+ double dnorm = (f - lo) * coef;
+ dnorm -= (int)dnorm;
+ *out++ = hi + dnorm * range;
+ }
+ else *out++ = f + range;
+ }
+ else if (f > hi)
+ {
+ if (f > hi + range)
+ {
+ double dnorm = (f - lo) * coef;
+ dnorm -= (int)dnorm;
+ *out++ = lo + dnorm * range;
+ }
+ else *out++ = f - range;
+ }
+ else *out++ = f;
+ }
+ else while (nblock--)
+ {
+ float f = *in1++;
+ if (f < lo)
+ {
+ f = lo - f;
+ if (f <= range)
+ {
+ *out++ = lo + f;
+ continue;
+ }
+ }
+ else if (f > hi) f -= lo;
+ else
+ {
+ *out++ = f;
+ continue;
+ }
+ if (f > range + range)
+ {
+ double dnorm = f * coef;
+ int inorm = (int)dnorm;
+ if (inorm % 2)
+ *out++ = lo + ((inorm + 1) - dnorm) * range;
+ else
+ *out++ = lo + (dnorm - inorm) * range;
+ }
+ else *out++ = hi + range - f;
+ }
+done:
+ return (w + 7);
+}
+
+static void pong_dsp(t_pong *x, t_signal **sp)
+{
+ if (forky_hasfeeders((t_object *)x, x->x_glist, 1, &s_signal) ||
+ forky_hasfeeders((t_object *)x, x->x_glist, 2, &s_signal))
+ dsp_add(pong_perform, 6, x, sp[0]->s_n,
+ sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec);
+ else
+ {
+#ifdef PONG_DEBUG
+ post("using pong_perform_nofeeders");
+#endif
+ dsp_add(pong_perform_nofeeders, 6, x, sp[0]->s_n,
+ sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec);
+ }
+}
+
+static void pong_mode(t_pong *x, t_floatarg f)
+{
+ x->x_mode = ((int)f != 0);
+}
+
+static void *pong_new(t_symbol *s, int ac, t_atom *av)
+{
+ t_pong *x = (t_pong *)pd_new(pong_class);
+ x->x_glist = canvas_getcurrent();
+ x->x_mode = (ac && av->a_type == A_FLOAT
+ && (int)av->a_w.w_float != 0);
+ sic_inlet((t_sic *)x, 1, PONG_DEFLO, 1, ac, av);
+ sic_inlet((t_sic *)x, 2, PONG_DEFHI, 2, ac, av);
+ outlet_new((t_object *)x, &s_signal);
+ return (x);
+}
+
+void pong_tilde_setup(void)
+{
+ pong_class = class_new(gensym("pong~"),
+ (t_newmethod)pong_new, 0,
+ sizeof(t_pong), 0, A_GIMME, 0);
+ sic_setup(pong_class, pong_dsp, SIC_FLOATTOSIGNAL);
+ class_addmethod(pong_class, (t_method)pong_mode,
+ gensym("mode"), A_FLOAT, 0);
+}