"version 0.1.1"

svn path=/trunk/; revision=267

1 files changed, 41 insertions, 0 deletions

diff --git a/externals/grill/vasp/source/ops_flt.h b/externals/grill/vasp/source/ops_flt.h
new file mode 100644
index 00000000..0ab37111
--- /dev/null
+++ b/externals/grill/vasp/source/ops_flt.h
@@ -0,0 +1,41 @@
+/* 
+
+VASP modular - vector assembling signal processor / objects for Max/MSP and PD
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#ifndef __VASP_OPS_FLT_H
+#define __VASP_OPS_FLT_H
+
+#include "opbase.h"
+
+// Filtering functions
+
+namespace VecOp {
+	BL d_flp(OpParam &p);
+	BL d_fhp(OpParam &p);
+
+	BL d_int(OpParam &p);
+	BL d_dif(OpParam &p); 
+
+	BL d_fix(OpParam &p); 
+}
+
+namespace VaspOp {
+	// passive filters
+	Vasp *m_fhp(OpParam &p,Vasp &src,const Argument &arg,Vasp *dst = NULL,BL hp = true); //! hi pass
+	inline Vasp *m_flp(OpParam &p,Vasp &src,const Argument &arg,Vasp *dst = NULL) { return m_fhp(p,src,arg,dst,false); } //! lo pass	
+
+	// int/dif functions
+	Vasp *m_int(OpParam &p,Vasp &src,const Argument &arg,Vasp *dst = NULL,BL inv = false); //! integrate
+	inline Vasp *m_dif(OpParam &p,Vasp &src,const Argument &arg,Vasp *dst = NULL) { return m_int(p,src,arg,dst,true); } //! differentiate
+
+	// fix denormals/NANs
+	inline Vasp *m_fix(OpParam &p,Vasp &src,Vasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_fix); }    // ! NAN/denormal filter
+}
+
+#endif