aboutsummaryrefslogtreecommitdiff
path: root/source/linspace.c
diff options
context:
space:
mode:
authorHans-Christoph Steiner <eighthave@users.sourceforge.net>2010-02-10 00:34:05 +0000
committerHans-Christoph Steiner <eighthave@users.sourceforge.net>2010-02-10 00:34:05 +0000
commit086e6b358ad45bda0e6a948cfb7ea2d33ab7da5a (patch)
treeb87b0adfbfd8f9b9439d8bf528b63b64f23dce03 /source/linspace.c
parent98e3e1214cf71a62b2de938c9c7e07f6bdd0090c (diff)
re-arranged into libdir and setup with the template Makefile+debian stuff. renabled vv+ and vv- as vvplus and vvminus
svn path=/trunk/externals/smlib/; revision=13158
Diffstat (limited to 'source/linspace.c')
-rw-r--r--source/linspace.c74
1 files changed, 0 insertions, 74 deletions
diff --git a/source/linspace.c b/source/linspace.c
deleted file mode 100644
index c3af9c2..0000000
--- a/source/linspace.c
+++ /dev/null
@@ -1,74 +0,0 @@
-#include "defines.h"
-
-/*--------------- linspace ----------------*/
-/* clips a vector */
-
-
-static t_class *linspace_class;
-
-typedef struct _linspace
-{
- t_object x_obj;
- float m_lo;
- float m_hi;
- float m_n;
-} t_linspace;
-
-
-static void linspace_bang(t_linspace *x)
-{
- int n;
- n=(int)x->m_n;
- if ((n<256)&&(n>1))
- {
- int i;
- float lo,step;
- t_atom *ap,*app;
-
- ap = (t_atom *)getbytes(sizeof(t_atom)*n);
- app=ap;
- lo=x->m_lo;
- step=(x->m_hi-lo)/(n-1);
- for (i = 0; i < n; i++)
- {
-
- SETFLOAT(app, lo);
- app++;
- lo+=step;
- }
- outlet_list(x->x_obj.ob_outlet,gensym("list"),n,ap);
- freebytes(ap,n);
- }
-}
-
-static void linspace_float(t_linspace *x, t_float lo)
-{
- x->m_lo=lo;
- linspace_bang(x);
-}
-
-static void *linspace_new(t_float lo, t_float hi, t_float n)
-{
- t_linspace *x=(t_linspace *)pd_new(linspace_class);
-
- floatinlet_new(&x->x_obj, &x->m_hi);
- floatinlet_new(&x->x_obj, &x->m_n);
-
- outlet_new(&x->x_obj, gensym("list"));
- x->m_lo=lo;
- x->m_hi=hi;
- x->m_n=n;
- return (void *)x;
-}
-
-void linspace_setup(void)
-{
- linspace_class = class_new(gensym("linspace"),
- (t_newmethod)linspace_new, 0,
- sizeof(t_linspace),
- CLASS_DEFAULT,
- A_DEFFLOAT,A_DEFFLOAT,A_DEFFLOAT,0);
- class_addfloat(linspace_class, (t_method)linspace_float);
- class_addbang(linspace_class, (t_method)linspace_bang);
-}
-