From 086e6b358ad45bda0e6a948cfb7ea2d33ab7da5a Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
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/vdelta.c | 75 ---------------------------------------------------------
 1 file changed, 75 deletions(-)
 delete mode 100644 source/vdelta.c

(limited to 'source/vdelta.c')

diff --git a/source/vdelta.c b/source/vdelta.c
deleted file mode 100644
index cc809db..0000000
--- a/source/vdelta.c
+++ /dev/null
@@ -1,75 +0,0 @@
-#include "defines.h"
-
-/*--------------- vdelta ----------------------------*/
-/* differences between element in succesive vectors  */
-
-static t_class *vdelta_class;
-
-typedef struct _vdelta
-{
-    t_object x_obj;
-	float m_c_leak;
-	float m_leak;
-	float *m_prev;
-	int m_n;
-} t_vdelta;
-
-
-static void vdelta_perform(t_vdelta *x, t_symbol *s, int argc, t_atom *argv)
-{
-	int i;
-	t_atom *ap,*app;
-	float *fp;
-	float m_leak;
-	float m_c_leak;
-	m_leak=x->m_leak;
-	m_c_leak=x->m_c_leak;
-
-	if (argc!=x->m_n)
-	{
-		int i;
-		if (x->m_prev)
-			freebytes(x->m_prev,x->m_n);
-		x->m_prev=(float*)getbytes(argc*sizeof(float));
-		for(i=0;i<argc;i++)
-			x->m_prev[i]=0.0f;
-		x->m_n=argc;
-	}
-
-	fp=x->m_prev;
-    ap = (t_atom *)getbytes(sizeof(t_atom)*argc);
-	app=ap;
-	for (i = 0; i < argc; i++)
-	{
-		float f=atom_getfloat(argv++);
-		SETFLOAT(app, f-*fp);
-		app++;
-		*fp++=f;
-	}
-	outlet_list(x->x_obj.ob_outlet,gensym("list"),argc,ap);
-    freebytes(ap,argc);
-}
-
-static void *vdelta_new()
-{
-	t_vdelta *x=(t_vdelta *)pd_new(vdelta_class);
-	outlet_new(&x->x_obj, gensym("list"));
-	x->m_n=0;
-	x->m_prev=0;
-	return (void *)x;
-}
-
-static void vdelta_free(t_vdelta *x)
-{
-	freebytes(x->m_prev,x->m_n);
-}
-
-void vdelta_setup(void)
-{
-    vdelta_class = class_new(gensym("vdelta"),
-    	(t_newmethod)vdelta_new, (t_method)vdelta_free,
-		sizeof(t_vdelta), 
-		CLASS_DEFAULT,
-	    0);
-    class_addlist(vdelta_class, (t_method)vdelta_perform);
-}
-- 
cgit v1.2.1