diff options
Diffstat (limited to 'sc4pd/source/HPZ1.cpp')
-rw-r--r-- | sc4pd/source/HPZ1.cpp | 132 |
1 files changed, 132 insertions, 0 deletions
diff --git a/sc4pd/source/HPZ1.cpp b/sc4pd/source/HPZ1.cpp new file mode 100644 index 0000000..0ab5f91 --- /dev/null +++ b/sc4pd/source/HPZ1.cpp @@ -0,0 +1,132 @@ +/* sc4pd + HPZ1~ + + Copyright (c) 2004 Tim Blechmann. + + This code is derived from: + SuperCollider real time audio synthesis system + Copyright (c) 2002 James McCartney. All rights reserved. + http://www.audiosynth.com + + + This program is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License + as published by the Free Software Foundation; either version 2 + of the License, or (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + + Based on: + PureData by Miller Puckette and others. + http://www.crca.ucsd.edu/~msp/software.html + FLEXT by Thomas Grill + http://www.parasitaere-kapazitaeten.net/ext + SuperCollider by James McCartney + http://www.audiosynth.com + + Coded while listening to: William Parker: Compassion Seizes Bed-Stuy + +*/ + +#include "sc4pd.hpp" + +/* ------------------------ HPZ1~ -------------------------------*/ + +class HPZ1_ar: + public sc4pd_dsp +{ + FLEXT_HEADER(HPZ1_ar,sc4pd_dsp); + +public: + HPZ1_ar(int argc, t_atom *argv); + +protected: + virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); + +private: + float m_x1; +}; + +FLEXT_LIB_DSP_V("HPZ1~",HPZ1_ar); + +HPZ1_ar::HPZ1_ar(int argc, t_atom *argv) +{ + AddOutSignal(); + + m_x1=0; +} + +void HPZ1_ar::m_signal(int n, t_sample *const *in, + t_sample *const *out) +{ + t_sample *nin = *in; + t_sample *nout = *out; + + float x0; + float x1 = m_x1; + + int t = n >> 2; + for (int i = 0; i!= t;++i) + { + x0 = ZXP(nin); + ZXP(nout) = 0.5f * (x0 - x1); + x1 = ZXP(nin); + ZXP(nout) = 0.5f * (x1 - x0); + x0 = ZXP(nin); + ZXP(nout) = 0.5f * (x0 - x1); + x1 = ZXP(nin); + ZXP(nout) = 0.5f * (x1 - x0); + } + + t = n & 3; + for (int i = 0; i!= t;++i) + { + x0 = ZXP(nin); + ZXP(nout) = 0.5f * (x0 - x1); + x1 = x0; + } + m_x1 = x1; +} + +/* ------------------------ HPZ1 -------------------------------*/ + +class HPZ1_kr: + public flext_base +{ + FLEXT_HEADER(HPZ1_kr,flext_base); + +public: + HPZ1_kr(int argc, t_atom *argv); + +protected: + void m_perform (float f); + +private: + float m_x1; + FLEXT_CALLBACK_F(m_perform); +}; + +FLEXT_LIB_V("HPZ1",HPZ1_kr); + +HPZ1_kr::HPZ1_kr(int argc, t_atom *argv) +{ + FLEXT_ADDMETHOD(0,m_perform); + + AddOutFloat(); + + m_x1=0; +} + +void HPZ1_kr::m_perform(float f) +{ + ToOutFloat(0,0.5f * (f - m_x1)); + m_x1=f; +} + |