"version 0.1.1"

svn path=/trunk/; revision=267

1 files changed, 121 insertions, 0 deletions

diff --git a/externals/grill/vasp/source/obj_q.cpp b/externals/grill/vasp/source/obj_q.cpp
new file mode 100644
index 00000000..f0465109
--- /dev/null
+++ b/externals/grill/vasp/source/obj_q.cpp
@@ -0,0 +1,121 @@
+/* 
+
+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.  
+
+*/
+
+#include "classes.h"
+#include "util.h"
+
+
+/*! \class vasp_list
+	\remark \b vasp.list
+	\brief Get samples of a single vasp vector.
+	\since 0.0.1
+	\param inlet vasp - is stored and output triggered
+	\param inlet bang - triggers output
+	\param inlet set - vasp to be stored 
+	\retval outlet vector - vasp samples
+
+	\note Outputs 0 if vasp is undefined or invalid
+	\note Only works for a vasp with one vector. No output otherwise.
+*/
+class vasp_list:
+	public vasp_op
+{
+	FLEXT_HEADER(vasp_list,vasp_op)
+
+public:
+
+	vasp_list()
+	{
+		AddInAnything();
+		AddOutList();
+		SetupInOut();
+	}
+
+	virtual V m_bang() 
+	{ 
+		if(!ref.Ok())
+			post("%s - Invalid vasp!",thisName());
+		else if(ref.Vectors() > 1) 
+			post("%s - More than one vector in vasp!",thisName());
+		else {
+			VBuffer *buf = ref.Buffer(0);
+			I cnt = buf->Length();			
+			S *p = buf->Pointer();
+			AtomList lst(cnt);
+			for(I i = 0; i < cnt; ++i,++p) SetFloat(lst[i],*p);
+			ToOutList(0,lst);
+		}
+	}
+
+	virtual V m_help() { post("%s - Get list of samples of a vasp vector",thisName()); }
+};
+
+FLEXT_LIB("vasp, vasp.list vasp.?",vasp_list)
+
+
+
+/*! \class vasp_nonzero
+	\remark \b vasp.nonzero
+	\brief Get samples of a single vasp vector.
+	\since 0.0.2
+	\param inlet vasp - is stored and output triggered
+	\param inlet bang - triggers output
+	\param inlet set - vasp to be stored 
+	\retval outlet.0 list - non-zero samples positions
+	\retval outlet.1 list - non-zero sample values
+
+	\note Outputs 0 if vasp is undefined or invalid
+	\note Only works for a vasp with one vector. No output otherwise.
+	\todo units for position list
+*/
+class vasp_nonzero:
+	public vasp_op
+{
+	FLEXT_HEADER(vasp_nonzero,vasp_op)
+
+public:
+
+	vasp_nonzero()
+	{
+		AddInAnything();
+		AddOutList(2);
+		SetupInOut();
+	}
+
+	virtual V m_bang() 
+	{ 
+		if(!ref.Ok())
+			post("%s - Invalid vasp!",thisName());
+		else if(ref.Vectors() > 1) 
+			post("%s - More than one vector in vasp!",thisName());
+		else {
+			VBuffer *buf = ref.Buffer(0);
+			I i,cnt = buf->Length(),cp,ci;
+			S *p = buf->Pointer();
+			for(cp = i = 0; i < cnt; ++i,++p) if(*p) ++cp;
+			
+			AtomList pos(cp),lst(cp);
+			p = buf->Pointer();
+			for(ci = i = 0; ci < cp; ++i,++p)
+				if(*p) {
+					SetFloat(pos[ci],i);
+					SetFloat(lst[ci],*p);
+					++ci;			
+				}
+			ToOutList(0,pos);
+			ToOutList(1,lst);
+		}
+	}
+
+	virtual V m_help() { post("%s - Get list of non-zero samples of a vasp vector",thisName()); }
+};
+
+FLEXT_LIB("vasp, vasp.nonzero vasp.??",vasp_nonzero)
+