From 0ed7a8b68dd73e2b0473b8127aeca99f3bac9061 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
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/fftease/src/taint~.cpp | 99 ----------------------------------
 1 file changed, 99 deletions(-)
 delete mode 100644 externals/grill/fftease/src/taint~.cpp

(limited to 'externals/grill/fftease/src/taint~.cpp')

diff --git a/externals/grill/fftease/src/taint~.cpp b/externals/grill/fftease/src/taint~.cpp
deleted file mode 100644
index b9bf9cf9..00000000
--- a/externals/grill/fftease/src/taint~.cpp
+++ /dev/null
@@ -1,99 +0,0 @@
-/*
-
-FFTease - A set of Live Spectral Processors
-Originally written by Eric Lyon and Christopher Penrose for the Max/MSP platform
-
-Copyright (c)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 <stdlib.h>
-
-class taint:
-	public fftease
-{
-	FLEXT_HEADER_S(taint,fftease,setup)
-	
-public:
-	taint(I argc,const t_atom *argv);
-
-protected:
-
-	virtual V Transform(I n,S *const *in);
-
-	V ms_thresh(F thr) { _threshold = FromdB(_threshdB = thr); }
-
-	F _threshold,_threshdB;
-	BL _invert;
-
-private:
-	static V setup(t_classid c);
-
-	FLEXT_ATTRGET_F(_threshdB)
-	FLEXT_CALLSET_F(ms_thresh)
-	FLEXT_ATTRVAR_B(_invert)
-};
-
-FLEXT_LIB_DSP_V("taint~",taint)
-
-
-V taint::setup(t_classid c)
-{
-	FLEXT_CADDATTR_VAR(c,"thresh",_threshdB,ms_thresh);
-	FLEXT_CADDATTR_VAR1(c,"invert",_invert);
-}
-
-
-taint::taint(I argc,const t_atom *argv):
-	fftease(4,F_STEREO|F_BALANCED|F_BITSHUFFLE|F_NOPH2),
-	_threshdB(-10),_invert(false)
-{
-	/* parse and set object's options given */
-	if(argc >= 1) {
-		if(CanbeFloat(argv[0]))
-			_threshdB = GetAFloat(argv[0]);
-		else
-			post("%s - Threshold must be a float value - set to %f",thisName(),_threshdB);
-	}
-
-	if(argc >= 2) {
-		if(CanbeBool(argv[1]))
-			_invert = GetABool(argv[1]);
-		else
-			post("%s - Invert must be a boolean value - set to %0i",thisName(),_invert?1:0);
-	}
-
-	ms_thresh(_threshdB);
-
-	AddInSignal("Messages and frequency reference signal");
-	AddInSignal("Amplitude reference signal");
-	AddOutSignal("Transformed signal");
-}
-
-
-V taint::Transform(I _N,S *const *)
-{
-	register const F thr = _threshold;
-	
-	if(_invert) {
-		// use threshold for inverse filtering to avoid division by zero 
-		for (I i = 0; i <= _N; i += 2) {
-			const F magnitude = _channel2[i];
-
-			if ( magnitude < thr )
-				_channel1[i] = 0;
-			else
-				_channel1[i] /= magnitude;
-		}
-	}
-	else {
-		// simple multiplication of magnitudes 
-		for (I i = 0; i <= _N; i += 2) {
-			const F magnitude = _channel2[i];
-			if (magnitude > thr) _channel1[i] *= magnitude;
-		}
-	}
-}
-- 
cgit v1.2.1