From 0ed7a8b68dd73e2b0473b8127aeca99f3bac9061 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Wed, 1 Apr 2009 21:13:09 +0000 Subject: cleaned up grill externals - replaced with svn:externals to svn.grrrr.org/ext/trunk/ svn path=/trunk/; revision=10951 --- externals/grill/vasp/source/ops_gate.cpp | 63 -------------------------------- 1 file changed, 63 deletions(-) delete mode 100644 externals/grill/vasp/source/ops_gate.cpp (limited to 'externals/grill/vasp/source/ops_gate.cpp') diff --git a/externals/grill/vasp/source/ops_gate.cpp b/externals/grill/vasp/source/ops_gate.cpp deleted file mode 100644 index 919ee07f..00000000 --- a/externals/grill/vasp/source/ops_gate.cpp +++ /dev/null @@ -1,63 +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 "ops_cmp.h" -#include "opdefs.h" -#include "util.h" -#include - -// -------------------------------------------------------------- - - -Vasp *VaspOp::m_gate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - if(arg.IsList() && arg.GetList().Count() >= 1 && flext::CanbeFloat(arg.GetList()[0])) - p.rbin.arg = flext::GetAFloat(arg.GetList()[0]); - else { - post("%s - argument is invalid -> set to 1",p.opname); - p.rbin.arg = 1; - } - - ret = DoOp(vecs,VecOp::d_gate,p); - delete vecs; - } - return ret; -} - - -Vasp *VaspOp::m_rgate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - if(arg.IsList() && arg.GetList().Count() >= 1 && flext::CanbeFloat(arg.GetList()[0])) - p.cbin.rarg = flext::GetAFloat(arg.GetList()[0]); - else { - post("%s - argument is invalid -> set to 1",p.opname); - p.cbin.rarg = 1; - } - p.cbin.iarg = 0; // not used anyway - - ret = DoOp(vecs,VecOp::d_rgate,p); - delete vecs; - } - return ret; -} - -VASP_ANYOP("vasp.gate",gate,1,true,VASP_ARG_R(1),"set destination to 0 if source < argument") -VASP_ANYOP("vasp.rgate",rgate,1,true,VASP_ARG_R(1),"complex radius gate: set destination to 0 if rad(complex source) < rad(complex argument)") - - -// -------------------------------------------------------------- - -- cgit v1.2.1