From 086e6b358ad45bda0e6a948cfb7ea2d33ab7da5a Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Wed, 10 Feb 2010 00:34:05 +0000 Subject: 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 --- source/linspace.c | 74 ------------------------------------------------------- 1 file changed, 74 deletions(-) delete mode 100644 source/linspace.c (limited to 'source/linspace.c') 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); -} - -- cgit v1.2.1