diff options
Diffstat (limited to 'externals/grill/vasp/source/opbase.cpp')
-rw-r--r-- | externals/grill/vasp/source/opbase.cpp | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/externals/grill/vasp/source/opbase.cpp b/externals/grill/vasp/source/opbase.cpp deleted file mode 100644 index 5abcb9fa..00000000 --- a/externals/grill/vasp/source/opbase.cpp +++ /dev/null @@ -1,85 +0,0 @@ -/* - -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 "main.h" -#include "opbase.h" -#include "opdefs.h" - -Vasp *VaspOp::m_run(OpParam &p,CVasp &src,CVasp *dst,opfun fun) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - ret = DoOp(vecs,fun,p); - delete vecs; - } - - return ret; -} - -Vasp *VaspOp::m_cun(OpParam &p,CVasp &src,CVasp *dst,opfun fun) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - ret = DoOp(vecs,fun,p); - delete vecs; - } - - return ret; -} - -Vasp *VaspOp::m_rbin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,opfun fun) -{ - Vasp *ret = NULL; - BL argvasp = arg.IsVasp(); - - RVecBlock *vecs = argvasp?GetRVecs(p.opname,src,arg.GetVasp(),dst):GetRVecs(p.opname,src,dst); - if(vecs) { - if(arg.CanbeDouble()) p.rbin.arg = arg.GetADouble(); - else if(arg.IsEnv()) { - if(p.args != 1) - ERRINTERNAL(); - else - p.arg[0].SetE(&arg.GetEnv()); - } - - ret = DoOp(vecs,fun,p); - delete vecs; - } - - return ret; -} - -Vasp *VaspOp::m_cbin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,opfun fun) -{ - Vasp *ret = NULL; - BL argvasp = arg.IsVasp(); - - CVecBlock *vecs = argvasp?GetCVecs(p.opname,src,arg.GetVasp(),dst):GetCVecs(p.opname,src,dst); - if(vecs) { - if(arg.CanbeComplex()) { - CX z = arg.GetAComplex(); - p.cbin.rarg = z.real; - p.cbin.iarg = z.imag; - } - else if(arg.IsEnv()) { - if(p.args != 1) - ERRINTERNAL(); - else - p.arg[0].SetE(&arg.GetEnv()); - } - - ret = DoOp(vecs,fun,p); - delete vecs; - } - - return ret; -} |